Şekil 1
Public Class Form1
Private Function faktoriyel()
Dim i As Integer
faktoriyel = 1
For i = 1 To TextBox1.Text
faktoriyel = faktoriyel * i
Next
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Val(TextBox1.Text) & "!=" & faktoriyel(), "Faktoriyel", MessageBoxButtons.OKCancel)
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder