CALCULAR Y MOSTRAR EL FACTORIAL DE UN NUMERO DADO

Dim res, num1, cont As Double

Private Sub Command1_Click()
res = 1

For cont = 1 To num1
res = res * cont
Text2.Text = res
Next


End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub



Private Sub Text1_Change()
If Text1.Text <> " " Then
num1 = Val(Text1.Text)
End If
End Sub