|
Private Sub Command1_Click()
Label1.Caption = "SUMALE + " & Label2.Caption & " Y PULSA ACEPTAR"
Command2.Visible = True
Command1.Visible = False
Text1.Text = Label2.Caption
End Sub
Private Sub Command2_Click()
Dim Num As Byte
Num = Int(100 - 1) * Rnd + 0
Label2.Caption = Num
Label1.Caption = "AHORA RESTALE - " & Label2.Caption & " Y PULSA ACEPTAR"
Command2.Visible = True
Command1.Visible = False
Text2.Text = Label2.Caption
Command2.Visible = False
Command3.Visible = True
End Sub
Private Sub Command3_Click()
Dim Num As Byte
Num = Int(100 - 1) * Rnd + 0
Label2.Caption = Num
Label1.Caption = "NUEVAMENTE AUMENTALE + " & Label2.Caption & " Y PULSA ACEPTAR"
Text3.Text = Label2.Caption
Command3.Visible = False
Command4.Visible = True
End Sub
Private Sub Command4_Click()
Label1.Caption = " AHORA TODO ESE RESUSLTADO OBTENIDO RESTALE CON EL PRIMER NUMERO QUE PENSASTE, Y CUANDO TIENES EL RESUSLTADO PULSA ACEPTAR"
Command5.Visible = True
Command4.Visible = False
End Sub
Private Sub Command5_Click()
Dim resultado As String
resultado = Val(Text1.Text) - Val(Text2.Text) + Val(Text3.Text)
Label1.Caption = "LOS ESPIRITUS ACABAN DE DECIRME QUE TU RESULTADO ES " & resultado
Command5.Visible = False
Command6.Visible = True
End Sub
Private Sub Command6_Click()
Unload Me
Form1.Show
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Timer1_Timer()
Dim Num As Byte
Num = Int(100 - 1) * Rnd + 0
Label2.Caption = Num
End Sub
|
