以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form. Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor I = 1 To 10Arr(i) = Int (Rnd * 1000)Next iMax= ______For i = 2 To 10If______ThenMax = Arr(i)End IfNext iPrint Ma
题目
以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form. Click()
Dim Arr(10) As Integer
Dim Max As Integer
Randomize
For I = 1 To 10
Arr(i) = Int (Rnd * 1000)
Next i
Max= ______
For i = 2 To 10
If______Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
相似考题
参考答案和解析
Arr(1) , Arr(i) ＞ Max
更多“以下程序的功能是,产生10个0~1000之间的随机整数,放入数组Arr中,然后输出其中的最大值。请填空。Op ”相关问题
-
第1题：
以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
Randomize
For I=1 To 20
X=Int(Rnd* ______ )
If X/2= ________ Then Print x
Next I
End Sub
正确答案：98+1 Int(X/2)或X\2
98+1 Int(X/2)或X\2 -
第2题：
根据条件，回答 46～48 题： 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
第46题：请填写【1】处答案 。
正确答案：
Rnd或Rnd(n)，其中n为任意整数 -
第3题：
（8）以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Randomize
i=0
Do
num＝Int(Rnd*90)＋10
For j=1To i ' 检查新产生的随机数是否与以前的相同，相同的无效
If num=a(j)Then
Exit For
End If
Next j
If j＞i Then
i=i＋1
a(i)＝【10】
End If
Loop While i＜10
For i＝1 To 9
For j＝【11】To 10
If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：【12】
Next j
Next i
For i＝1To10
Print a(i)
Next i
End Sub
正确答案：
（10）num
（11）i+1
（12）a[j]=temp
-
第4题：
在考生文件夹中有一个工程文件execise37.vbp，相应的窗体文件为execise37.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“输出大于1000的整数之和”的命令按钮。其功能是产生40个0～2000的随机整数，放入一个数组中，然后输出这40个整数中大于1000的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后；按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第5题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。
正确答案：
1000arr(i)>Maxarr(i)<Min【解析】本题考查VBA中程序设计的知识。对于这个问题，首先要产生l00个1000以内的随机整数，放入数组an"中，由于Rnd函数可以产生0～l之间的随机数，所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值，然后在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值还大，则让这个数组元素成为新的最大值：如果比当前的最小值还小，则让这个数组元素成为新的最小值，接着继续比较直至数组元素都比较一遍为止。