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.