[填空题] 在窗体中添加一个命令按钮,(其Name属性为Command1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。请在【12】和【

19 查阅

[填空题] 在窗体中添加一个命令按钮,(其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

Print

print k/100

End Sub

参考答案:

[12] (999*Rnd)+1

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

计算机考试