在窗体中添加一命令按钮,(其Name属性为Commmld1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。 请在空白处填入适当的内容,将程序补充完整。 Private Sub Co

admin2010-03-30  84

问题  在窗体中添加一命令按钮,(其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)+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。
转载请注明原文地址:https://jikaoti.com/ti/rUq0FFFM
0

最新回复(0)