Mensajes

gracias

este es el codigo k tengo pero esta mal... y no c kmo hacer para k me aparezca eso...

Código (vb) [Seleccionar] Expandir


Dim num As Integer
Dim fact As Integer

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text1.Text.SetFocus
End Sub

Private Sub Command2_Click()
    fact = 1
    num = Text1.Text
   
    While num <> 0
        fact = fact * num
        num = num - 1
    Wend
   
    Text2.Text = fact
    Me.Text1.Enabled = False
    Me.Text2.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub


Ingresar un número distinto de cero. Calcular su factorial. Nota: factorial de 5 = 5 x 4 x 3 x 2 x 1 = 120