PARA FRAN Y CARLOS, Esto sigue mal
Publicado por Manolo (10 intervenciones) el 31/03/2002 13:59:32
Private Sub Form_Load()
Dim numero As Integer
Randomize ' Inicializa el generador de números aleatorios.
numero = Int((9999 * Rnd) + 1) ' Genera valores aleatorios entre 1 y 9999
Show
Print numero ' saco el numero en pantalla para verlo
Private Sub Command3_Click()
If numero = Val(Textnumero.Text) Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub
Command3_Click()<<<Este boton lo utilizo para al darle que compare los dos numeros
Textnumero.Text<<<Es donde yo untroduzco el numero a comparar con el que saca la funcion Rnd
Da igual que acierte el numero o no siempre sale el mensaje de No
Dim numero As Integer
Randomize ' Inicializa el generador de números aleatorios.
numero = Int((9999 * Rnd) + 1) ' Genera valores aleatorios entre 1 y 9999
Show
Print numero ' saco el numero en pantalla para verlo
Private Sub Command3_Click()
If numero = Val(Textnumero.Text) Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub
Command3_Click()<<<Este boton lo utilizo para al darle que compare los dos numeros
Textnumero.Text<<<Es donde yo untroduzco el numero a comparar con el que saca la funcion Rnd
Da igual que acierte el numero o no siempre sale el mensaje de No
Valora esta pregunta
0