VB編程產生10個小於100(不含100)的隨機正整數,並統計其中5的倍數所占比例

Sub

Command1_Click()

Dim

a(10)

As

Integer

Randomize

For

i

=

1

To

10

a(i)

=

Rnd

*

100

''''Rnd

函數返回小於

1

但大於或等於

0

的值,所以這裏小於100

Print

a(i)

If

a(i)

Mod

5

=

0

Then

s

=

s

+

1

Next

i

MsgBox

"5的倍數所占比例為"

&

s

*

10

&

"%",

vbOKOnly

End

Sub

Private

Sub

Form_Load()

Me.AutoRedraw

=

True

End

Sub