VB crea una máquina de sorteo de números aleatorios para dibujar al azar a 30 personas. Timer1 controla el salto de los números de las etiquetas. Cada persona tiene una foto y debe elegir ese número para saltar de esa imagen.

Establezca el valor del intervalo en la barra de atributos del temporizador1 en 300 u otro (1000 es 1 s)

Cree una nueva carpeta de imágenes en la carpeta del proyecto, que almacene fotos de 30 compañeros de clase y nombres. es "x.jpg", x es un número del 0 al 30

El código es el siguiente:

Subcomando privado1_Click()

Temporizador1. Habilitado = Verdadero

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

En caso de error, Ir a tishi

Image1.Picture = LoadPicture(App.Path y "image\" y Label1.Caption y ".jpg")

tishi:

MsgBox "El Falta la foto del estudiante, agregue "

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Fin Sub

Sub Timer1_Timer() privado

Aleatorio

Label1.Caption = Int(Rnd() * 30)

Fin Sub