Programación experimental en Vb
Subcomando privado 1_Click(índice como entero)
Control del botón 'Número aleatorio' si índice = 0
mi valor = int((100 * rnd) 1)' La función rnd() genera números aleatorios.
Yo. Texto1(0). 'Text = MyValue' almacena el número aleatorio generado en el cuadro de texto 1 y luego lo oculta.
Yo. Texto1(0). visible=falso
Yo.comando1 (0). El botón "Activar=Falso" no está disponible.
Yo.comando 1 (1). 'Habilitado = verdadero' Supongo que se puede utilizar el botón.
Yo. Texto1(1). texto = " "
Formulario1. Title=" "
Otro
Supongo que es un control de botón
Si es un valor numérico (me.text1 (1)). texto) No ingrese un número ni salga.
Para j = I a I
Si CInt(i.Text1(0).text)>; CInt(i.Text1(1).text) entonces
Yo. Etiqueta1(2). Caption = "¡Demasiado pequeño!"
Terminará si...
If CInt(I. Text1(0). Text) ltCInt(I. Text1(1). Text ) Entonces
yo. Etiqueta1(2). Caption = "¡Demasiado grande!"
Formulario 1. caption = " no . " ; I&《Veces》
Terminará si...
Si CInt(I.Text1(0).Text) = CInt(I.Text1 ( 1). texto) entonces
i. Etiqueta1(2). Caption = "¡Felicitaciones por haber acertado!"
Formulario 1. caption = " Usado " ; i amp "Segunda oportunidad"
i. Texto1(0). 'visible = Verdadero' Lo has adivinado, el número que muestra la computadora es correcto.
Yo.comando1 (0). Habilitado = verdadero 'Restaurar uso.
Yo.comando 1 (1). La recuperación "Habilitada = falsa" no está disponible.
Yo. Comando 1(0). SetFocus
I = 5
Salir para...
Terminará si...
Si I = 1 o I lt luego 1
Formulario 1. Caption = "¡0 oportunidades!"
Yo. Etiqueta1(2). Caption = "¡Felicitaciones por desperdiciar 5 oportunidades!"
Yo. Texto1(0). 'visible = Verdadero' Lo has adivinado, el número que muestra la computadora es correcto.
Yo.comando1 (0). Habilitado = verdadero 'Restaurar uso.
Yo.comando 1 (1). La recuperación "Habilitada = falsa" no está disponible.
Yo. Texto1(1). texto = " "
i. Comando 1(0). SetFocus
I = 5
Salir para...
Terminará si...
Formulario 1.
caption = " Y " ; 1 & "Segunda oportunidad"
I = I - 1
Salir para...
Siguiente j
Terminará si...
Terminará si...
Finalizar conector
Subform_Load privado()
Yo.comando 1 (1). No se puede utilizar "Habilitado = falso".
Yo. Texto1(0). "Bloqueado = Verdadero" no se puede editar.
Yo. Texto1(1). texto = " "
i. Texto1(0). text=" "
I = 5
Conector final