VB編程 隨機產生50個10~200的整數,統計能被5整除的數的個數

Dim a(50), i, n

Randomize

For i = 1 To 50

a(i) = Int(Rnd * 191) + 10

Print a(i);

If i Mod 10 = 0 Then Print

If a(i) Mod 5 = 0 Then n = n + 1

Next

Print "能被5整除的數的個數="; n

End Sub