Vb simula la visualización de los números del 1 al 6 en la etiqueta. Haga clic en el botón para generar aleatoriamente cualquier resultado del 1 al 6 y mostrarlo en la etiqueta.

¿Dim? ¿Número? ¿Como? Entero

¿Privado? ¿Sub? Command1_Click()

Hacer irregular

¿Respuesta? =?Int(Rnd?*?(6)?+?1)

Etiqueta 2. ¿título? =?a

¿Fin? Submarino

¿Privado? ¿Sub? Inicialización del formulario()

Núm. =?1

¿Fin? Submarino

¿Privado? ¿Sub? Temporizador 1 _Temporizador()

¿Núm? =?Número? +?1

¿Y si? ¿Número? >? 6? ¿Y entonces qué? ¿Número? =?1

Etiqueta1. ¿título? =?Número

Fin? Captura de pantalla de la subejecución:

Algunos consejos:

En el código, los números del 1 al 6 se muestran como desplazamiento circular. ¿Es el número 1? ¿Antes de las seis? El cambio.

En el código se utilizan dos etiquetas. Si solo se utiliza 1 etiqueta, es necesario detener el temporizador 1.