作业帮 > 数学 > 作业

VB:随机产生10个小于100(不含100)的随机整数,并统计出其中5的倍数所占比例

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/26 13:59:36
VB:随机产生10个小于100(不含100)的随机整数,并统计出其中5的倍数所占比例
Dim MyValue(10) As Integer
Dim i,j As Integer
j = 0
For i = 0 To 9
Randomize
MyValue(i) = Int(100 * Rnd)
If MyValue(i) Mod 5 = 0 Then
j = j + 1
End If
Next
For i = 0 To 9
Print MyValue(i)
Next i
Print j