VB_2014_SLIP 19





SLIP 19_1
Option Explicit
Private Sub cmdFact_Click()
Dim fact As Integer
fact = 1
Dim i As Integer

Dim num As Integer
num = Val(Text1.Text)
For i = 1 Tonum
fact = fact * i
Next
MsgBox "Factorial is "& fact
End Sub

No comments:

Post a Comment

Note: only a member of this blog may post a comment.