Preguntas y respuestas para principiantes de VB 2008~
Escribí uno y las consultas que contiene son realmente aburridas Jaja, solo usa lo que veas. Hay declaraciones condicionales if anidadas ahí, no te asustes, en realidad es muy simple.
(El profesor definitivamente te dará una paliza después de ver tu método para generar números de tres dígitos al azar. Jaja, es como si lo hubieras descubierto el primer día de clases. Es difícil)
Dim?i?As?Integer
Privado?Sub?Command1_Click()
Timer1.Enabled?=?Not?Timer1.Enabled
Command1. Caption?=?"Detener "
Si Timer1.Enabled?=?False?Entonces
Command1.Caption?=?"Comenzar a dibujar"
¿Fin? If
End?Sub
Privado?Sub?Command2_Click()
If?Text1.Text?=?"" Entonces
MsgBox?"¡Por favor, ejecute primero Vibrator! "
Más
Más
If?Text2.Text?=?"" ?Entonces
MsgBox?"¡Ingrese su número de lotería! "
Else
If?Text2.Text?=?
Else
If ?Text2.Text ?=?Text1.Text?Entonces
MsgBox?"¡Felicitaciones!"
Si no
Si no
MsgBox? "Gracias por participar"
Text2.Text?=?Text1.Text?"
Fin?
Fin?If
Fin ?If
Fin?If
Fin?Sub
Privado?Sub?Form_Load()
Temporizador1.Enabled?=?False
Timer1.Interval?Interval?=?500
Fin?Sub
Privado?Sub?Timer1_Timer()
Aleatorización p>
Texto1.Texto?=?100?+?Int(900?*?Rnd)
End?Sub
Texto1.Texto?