Numero factorial Iniciando Visual

Numero factorial

Practica 1

Se introduce el número y a continuación en calcular,

Después de esto nos da nuestro factorial en la sección de resulta, aparte nos abre una ventana en la cual nos dice el resultado.

Código;

Dim res, num1, cont As Double

Private Sub Command1_Click()

res = 1

For cont = 1 To num1

res = res * cont

Text2.Text = res

Next

MsgBox (res)

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