Defina una matriz de números enteros con 20 elementos. Encuentre el promedio de elementos con subíndices pares e impares en el código del programa VB.
Private Sub Form_Click()
Atenuar a(1 a 20) como entero
Temporizador de aleatorización
Para i = 1 a 20
a(i) = Int(Rnd * 90 * 10)
Si a(i) Mod 2 = 0 entonces
os = os + 1
oshe = oshe + a(i)
En caso contrario
js = js + 1
jshe = jshe + a(i)
Fin If
Imprimir a(i);"";
Siguiente i
Imprimir
Imprimir "El promedio de los números pares es: " & oshe / os
Print "El promedio de los números impares es: " & jshe / js
End Sub