A-A+
在窗体中添加一命令按钮 (其Name属性为Commmld1) 然后编写代码。程序的功能是产生
问题详情
在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。
请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1 Click()
Dim a(100)
For j=1 To 100
a(j)=Int(______)
If a(j)______5=0 Then______
Print a (j)；
Next i
Print
Print k/100
End Sub请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：(999*RnD)+1Modk=k+1
(999*RnD)+1,Mod,k=k+1 解析：本题综合考查Visual Basic内部函数、For循环等知识点。根据题意，For j循环用来为数组a(100)赋值，所赋之值为Rnd随机产生。由于需要产生100个小于1000的正整数，故第一处空白填：(999(RnD)+1。注意，该处不能写成： (1000(RnD)，因为它有可能产生一个小于1的小数，此时会被Int函数转换为0，如此就违反了题目中关于正整数的要求。
If语句判断数组中5的倍数，故第二处空白填： Mod。表示取模。
由于要计算出5的倍数所占的比例，故每判断出一个5的倍数，便令一个变量加1，观察Print k/100可以得出该变量为k。故第三处空白填：k=k+1。
