Programación de la estrella de Marte

Opción explícita

Dim d (1 a 20) es un número entero

Subcomando privado 1_Click()

Marcar I como un número entero

Imagen 1. Cls

Para i = 1 a 20

d(I)= Int(Rnd()* 100)+1

Imagen 1. printFormat(d(i), "0");

Si i Mod 4 = 0, entonces Imagen 1. Imprimir

Siguiente yo

Conector final

Subcomando privado 2_Click()

Dim b(5) es un número entero

Etiqueta I como un número entero

Imagen 2. Cls

Para i = 1 a 20

Seleccione el caso d(i)

Caso 0 a 59

b(1) = b(1) + 1

Caso 60 al 69

b(2) = b(2) + 1

Caso 70 al 79

b(3) = b(3) + 1

Caso 80 al 89

b(4) = b(4) + 1

Caso 90 a 100

b(5) = b(5) + 1

Finalizar selección

Luego

Imagen 2. Imprimir "0~59":b(1); "uno"

Imagen 2. Imprimir "60~79": b(2); "uno"

Imagen 2. Imprimir "70 ~ 89:"; b(3); "uno"

Imagen 2. Imprimir "80 ~ 99:"; b(4); "uno"

Imagen 2. Imprimir "90~100": b(5); "one"

Conector final

Subform_Load() privado

Comando 1. Caption="Generar y mostrar datos"

Comando 2. Caption="Calcular el número de personas en segmentos fraccionarios"

Conector final