Programación VB simple, nivel de secundaria, para el examen de ingreso a la universidad~

Supongamos que ha agregado el control label1 a la interfaz, llamado label1 y establecido la propiedad AutoSize en True.

Private Sub Command1_Click()

Atenuar i como entero, strTmp como cadena, intTmp como entero

strTmp="Generar aleatoriamente 5 números: " 'Asignación temporal valor inicial a variable de cadena

Para i = 1 a 5

intTmp= Int(Rnd() * 90) 10;

strTmp=strTmp amp; amp; vbTab

Siguiente i

Label1.Caption=strTmp

End Sub