Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas y respuestas para principiantes de VB 2008~

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

Texto1.Texto?=?100?+?Int(900?*?Rnd)

End?Sub

Texto1.Texto?