Red de conocimiento informático - Conocimientos de programación - Problemas de altura de programación

Problemas de altura de programación

Subcomando privado 1_Click()

Dim Hgt (0 a 19) es único

Marcar I como un número entero

El valor mínimo de Dim es un número entero y el el valor máximo es Entero

Aleatorización (temporizador)

Para i = 0 a 19

HGT(I)= Int(Rnd()* 26+155) / 100

Imprimir Hgt(I);

Si i = 9, entonces imprimir

Siguiente i

Para i = 0 a 19

Si Hgt(min)> entonces Hgt(i)

Mínimo = i

Terminará si...

Si Hgt(max)& lt; entonces Hgt(i)

Valor máximo = i

Terminará si...

Siguiente yo

Imprimir

Imprimir "valor máximo": &Hgt (máximo) y "Valor mínimo: "&Hgt (mínimo)

Conector final