CICLO FOR --------------< http://youtu.be/1if0lfZXGMo
Borra todo el formulario y pega lo que esta aqui
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numero, factorial, i As Integer
numero = InputBox("introduce el numero ")
If numero = 0 Then
factorial = 1
Else
factorial = 1
For i = 1 To numero
factorial = factorial * i
Next i
End If
MsgBox("introduce el factorial :" & "" & factorial)
End Sub
End Class
No hay comentarios.:
Publicar un comentario