Private Sub Command1_Click()
Dim x As Integer
Dim ctr As Integer
ctr = 1
For x = 1 To Val(Text1.Text)
ctr = ctr * x
Next x
Label1.Caption = "Factorial of " & Text1.Text & " is" & ctr
End Sub
Download File
Dim x As Integer
Dim ctr As Integer
ctr = 1
For x = 1 To Val(Text1.Text)
ctr = ctr * x
Next x
Label1.Caption = "Factorial of " & Text1.Text & " is" & ctr
End Sub
Download File
Thankzzz>>>
ReplyDeleteNo Problem
ReplyDeletebulok ng program mu gago....
ReplyDeleteno problem... ako malaki problema q sau...!!!!
ReplyDeletepuro debug...
its giving error while finding fact of 10
ReplyDelete10 is too large to fit in integer
ReplyDeleteDim x As Long
Dim ctr As Long
can you explain why is that program like that?
ReplyDeletehow to write print button coding in vb6.0 when i am clicking on print button generating the report and print saved items using printer .
ReplyDeleteplease help me ,i am developing hotel billing project ,please send source code to my mail address
suresh84.a@gmail.com