[填空题] 在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【12】和【13】、【14】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click( ) Dim a(100) For j=1 To 100 a(j)=Int ( 【12】 ) If a(j) 【13】 5=0 Then 【14】 Print a(j) Next j Pr

参考答案：

[12](999*Rnd)+1

● 参考解析

根据题意，Forj循环用来为数组a(100)赋值，所赋之值为Rnd随机产生。由于需要产生100个小于1000的正整数，故[12]处填：(999*Rnd)+1。注意，该处不能写成：(1000*Rnd)，因为它有可能产生一个小于1的小数，此时会被Int函数转换为0，如此就违反了题目中关于正整数的要求。[13]Mod[14]k=k+1If语句判断数组中5的倍数，故[13]填：Mod，表示取模。由于要计算出5的倍数所占的比例，故每判断出一个5的倍数，便令一个变量加1，观察Printk/100可以得出该变量为k。故[14]填：k=k+1。

当前位置：IT认证＞BASIC题库

相关题目: