Private Sub Form_Click()
D．im a(10) As Integer, i As Integer
Randomize
i=0
D．o
num＝Int(Rnd*90)＋10
F．or j=1To i ' 检查新产生的随机数是否与以前的相同，相同的无效
If num=a(j)Then
E．xit For
E．nd If
Next j
If j＞i Then
i=i＋1
a(i)＝(10)
E．nd If
Loop While i＜10
F．or i＝1 To 9
F．or j＝(11)To 10
If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：(12)
Next j
Next i
F．or i＝1To10
Print a(i)
Next i
E．nd Sub
[问答题] 随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。
[单选题]要求产生10个随机整数，存放在数组Arr中，从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：Option base 1Private Sub Command1_Click()D．im arr(10)as integerF．or i=1 to 10 ‘循环1A．rr(i)=int(rnd*100)Print arr(i);NextX=inputbox(“输入1-10的一个整数：”)F．or i=x+1 to 10 ‘循环2A．
[问答题]创建一个包含10个元素的一维数组count，任意输入10个整数，编程统计并输出数组本站于这10个数平均值的元素个数。
[问答题] 编一个程序，定义数组，用for循环语句，顺序输入10个实数，然后逆序输出这10个数。
[单选题]以下程序的功能是随机产生10个两位的整数：Option Base 1Private Sub Command1_Click()Dim a (10) As
[单选题]以下程序的功能是随机产生10个两位的整数：运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（ ）。A.a（i）=Int（R
[单选题]下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X＞50 Then
[单选题]（35）有下列程序代码实现生成20个0-100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段 ，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=________ Text1.Text=Text1.Text&arr(i)&Chr(13)&Chr(10) Next i Sum=0 For Each X________ If X>50
[单选题]下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For j=2 To 100 If a(j)＞max Then max=a(j) : p=j Next j Print "The largest numbe
[试题]产生10至100的随机整数的表达式是()。A．Int(90*Rnd+10)B．Int(91*Rnd+10)C．90*Rnd+10D．Int(91*Rnd)