作业帮 > 综合 > 作业

VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 05:45:21
VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数
Private Sub Command1_Click()
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 Su