Utilice la programación VB para generar aleatoriamente 10 números enteros positivos menores que 100 (sin incluir 100) y calcule el porcentaje de múltiplos de 5.
Privado
Sub
Command1_Click()
Atenuar
a(10)
Como
Entero
Aleatorizar
Para
i
=
1
A
10
a(i)
=
Rnd
*
100
''''Rnd
El valor devuelto por esta función es menor que
1
pero mayor que o igual a
0<
Así que aquí hay menos de 100
Imprimir
a(i)
Si
a(i)
Mod
5
=
Entonces
s
=
s
+
1
Siguiente
i
MsgBox
"La proporción de múltiplos de 5 es "
&
s
*
10
&
"%",
vbOKOnly
Fin
Sub
Privado
Sub
Form_Load()
Me.AutoRedraw
=
Verdadero
Fin
Sub