Red de conocimiento informático - Problemas con los teléfonos móviles - Programación de clases Vb

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