Examen de programación de Anhui

Supongamos que agrega un control label1 en la interfaz, llamado label1, y establece la propiedad AutoSize en True.

Subcomando privado 1_Click()

Dim i es un número entero, strTmp es una cadena, intTmp es un número entero

StrTmp= "Generar aleatoriamente 5 números:" 'A la variable de cadena temporal se le asigna un valor inicial.

Para i = 1 a 5

Int tmp = Int(Rnd()* 90)+10

strTmp = strTmp & ampintTmp & ampvbTab p>

Siguiente yo

Etiqueta1. Caption=strTmp

Adaptador final