Dim a(1 To 20) As Integer
Private Sub Command1_Click()
Print "20个随机数："
For n = 1 To 20
a(n) = Int((Rnd * 100) + 200)
Print a(n);
Next
Print
Print "能被五整除："
For n = 1 To 20
If a(n) Mod 5 = 0 Then Print a(n);: Sum = Sum + a(n)
Next
Print
Print "和为："
Print Sum
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024