Función aleatoria en programación vb

Trate a(10) como una dimensión entera

Trate I, j, t, max, min como números enteros

Etiqueta1. título = " "

Etiqueta 2. title = " "

Suma = 0

Para i = 0 a 9

a(i) = 20 * Rnd() 30

Etiqueta1. Título = Etiqueta1. Título vbCrLf CST(a(i))

Entonces

Máximo = a(0): Mínimo = a(0)

Para i = 1 a 9

Si max lta(i) entonces max = a(i)

Si min gta(i) entonces min = a(i)

Entonces

Etiqueta 2. Título = CStr(max)

Etiqueta 3. Título = CStr(minutos)

Conector final