Soru : Inputbox’tan girilen sayının faktöriyelini alıp textbıx’a yazan programın kodlarını yazınız.
Public Class Form1 'Daha fazla bilgi için : www.gorselprogramlama.com
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sayi, c As Single
Dim i As Integer
c = 1
sayi = Val(InputBox("Faktöriyeli alınacak sayıyı giriniz"))
For i = 1 To sayi
c = c * i
Next
TextBox1.Text = c
End Sub
End Class
