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