Kod:
Public Class Form1
Dim sayi, kuvvet As Integer
Dim sonuc As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sayi = txtsayi.Text
kuvvet = txtkuvvet.Text
sonuc = 1
For sayac = 1 To kuvvet
sonuc = sayi * sonuc 'Sayı, kuvvet defa kendisi ile çarpılıyor.
Next (sayac)
txtsonuc.Text = sonuc
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sayi = txtsayi.Text
sonuc = 1
For sayac = 1 To sayi
sonuc = sayac * sonuc 'Sayıya kadar olan bütün sayılar çarpılıyor.
Next (sayac)
txtfaktor.Text = sonuc
End Sub
End Class
Kod: