Programación de clases Vb
Subcomando privado 1_Click()
Atenuar a (0 a 4) es un número entero, I es un número entero, iScore es un número entero
Irregularizar
Para i = 1 a 20
iScore = Rnd * 100
Si Mod 4 = 0, se imprimen cada 4 líneas.
Imprimir "estudiante";i&"logros":;iScore,
Si iScore gt entonces = 90
a(4) = a(4) 1
De lo contrario, si iScore gentonces = 80
a(3) = a(3) 1
De lo contrario, iScore gentonces = 70
a( 2) = a(2) 1
De lo contrario, si iScore gtentonces = 60
a(1) = a(1) 1
Otro
a(0) = a(0) 1
Terminará si...
A continuación
imprimo 'nueva línea
Imprimir "0-59*** tiene: ";a(0) y amp "人"
Imprimir "60-69***tiene: ";a(1) y amp "人"
Imprimir "70-79*** tiene: "; a(2) y amp "人"
Imprimir "80-89*** tiene: " ";a (3) y amp"人"
Imprimir "90-100***there";a(4) y amp"人"
Conector final