设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(h()As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next print j Knd Sub 以下叙述中错误的是______。A．数组b中的偶数被保存在数组c中B．程序运行结束时，在窗体上显示的是c数组中元素的个数C．GetArray过程的参数n是按值传送的D．如果输入的数据大于10，则窗体上不显示任何信息
设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(h()As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next print j Knd Sub 以下叙述中错误的是______。
A．数组b中的偶数被保存在数组c中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息
相关考题：
设有如下程序Option Base 1Private Sub Command1_Click()Dim arrlDim Min As Integer，i As Integerarrl=Array(12，435，76，-24，78，54， 866， 43)Min=____For i=2 To 8If arrl(i)＜Min ThenNext iPrint “最小值是：”；MinEnd Sub以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
设有如下程序Option Base 1Private Sub Command1_Click（）Dim a（10）As IntegerDim n As Integern=InputBox（"输入数据"）If n10 ThenCall GetArray（a,n）End IfEnd SubPrivate Sub GetArray（b（）As Integer,n As Integer）Dim c（10）As Integerj=0For i=1 To nb（i）=CInt（Rnd（）*100）If b（i）/2=b（i）\2 Thenj=j+1c（j）=b（i）End IfNextPrint jEnd Sub以下叙述中错误的是（ ）。A．数组b中的偶数被保存在数组c中B．程序运行结束后,在窗体上显示的是c数组中元素的个数C．GetArray过程的参数n是按值传送的D．如果输入的数据大于10，则窗体上不显示任何显示
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（）Dim aa= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1NextPrint a（3）End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．5C．6D．7
在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：private Sub Command1_Click()Dim an(5) As Integer，arrl(5) As Integern=3For i=1 To 5arr(i)=iarrl(n)=2*n+iNextPrint arrl(n);arr(n)End Sub程序的运行结果为A．3 11B．11 3C．13 3D．3 13
设有如下程序：Private Sub Form_Click（）Dim n As Integer, s As Integern = 8s = 0Dos = s + nn = n - 1Loop While n 0Print sEnd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。
设有如下程序：Option Base 1Private Sub Command1_Click（）Dim arr1Dim Min As Integer, i As Integerarr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）Min = ______For i = 2 To 8If arr1（i） Min Then______NextPrint "最小值是："; MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim aa=Array(1, 2, 3, 4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序，其输出结果是（ ）。A）1234B）12C）34D）4321
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click( )Dim s As IntegerDim aa(3, 2) As IntegerFor i = 1 To 3For j = 1 To 2aa(i, j) = i + jNext jNext is = aa(1, 2) + aa(2, 1)Print sEnd Sub程序运行后，单击命令按钮，窗体上显示的值是( )A. 4B. 5C.6D. 7
设有如下程序：Private Sub Form_Click()Dim ary(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(j)=i+1sum=sum+ary(i)Next 1Print sumEud Sub程序运行后，单击窗体，则在窗体上显示的是A．15B．16C．20D．25
（ 9 ）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序：Option Base 1Private Sub Command1_Click （）Dim a （ 10 ） As IntegerF or i=1 To 10a （ i ） =iNextCall swap （ 【 11 】 ）For i=1 To 10Print a （ i ） ;NextEnd SubSub swap （ b （） As Integer ）n =U b ound （ b ）For i=1 To n / 2t =b （ i ）b （ i ） =b （ n ）b （ n ） =t【 12 】NextEnd Sub上述程序的功能是，通过调用过程 swap ，调换数组中数值的存放位置，即 a ( 1 ) 与 a ( 10 ) 的值互换， a ( 2 ) 与 a ( 9 ) 的值互换 ， …… 。请填空。
以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。OptionBase 1Private Sub Command1_Click(Index As Integer)Dima(1 To 20,1 To 10)Dim b()ReDimb(1 To 200)For i=1 To 20For j=1 To 10A(i,j)=i*jNext jNext iTran a,20,10bEnd SubSub Tran(a()an,n,b())Dim i As IntegerFor i=1 To mFor j=1 To n______=a(i,j)Next jNext iEnd Sub
有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。
下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。A．33B．28C．35D．37
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As Integern=0For i=0 To 50i=i+3n=n+1If i＞10 Then Exit ForNext iText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是______。
设有如下程序：Private Sub Form. Click（ ）Dim ary(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(i)=i+lsum=sum+ary(i)Next iPrint sumEnd Sub程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = arr1(1)For i=2 To 8If arr1(i)＜Min ThenNext iPrint "最小值是:"; MinEnd Sub
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序：Function a(x As Integer, y As Integer) As Integera = IIf(x ＞ y, x, y)End FunctionPrivate Sub Command1_Click()Dim n As Integer, m As Integern = 10m = 20Print a(n, m)End Sub程序运行后，单击命令按钮，输出结果是______。
设有以下程序：Option Base 1Private Sub Command1_Click( )Dim arr1 ,Max as Integerart1 = Array(12,435,76,24,78,54,866,43)【 】= arr1(1)For i = 1 To 8If arrl(i)＞Max Then【 】Next iPrint "最大值："； MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。A．12B．24C．36D．48
设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是( )。A．数组b中的偶数被保存在数组C中B．程序运行结束时，在窗体上显示的是c数组中元素的个数C．GetArray过程的参数n是按值传送的D．如果输入的数据大于10，则窗体上不显示任何信息
在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是( )。Option Base 1Private Sub Command1_Click()Dim a(5) As IntegerDim k As IntegerDim total As Integera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6For k=1 To 5total=total+a(k)Next kPrint totalEnd SubA．10B．15C．27D．35
现有如下一段程序：Option base 1Private Sub Command1_Click()Dim aa=Array(3,5,7,9)X=1For i=4 to 1 step -1s=s+a(i)*xX=x*10NextPrint sEnd Sub执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是A)9753B)3579C)35D)79
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【 】、【 】、【 】处将程序补充完整。Option Base 1Private Sub Command1_Click ()Dim aa=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)For i=【 】For j=【 】If a(i)【 】a(j) Thena1=a(i)a(i)=a(j)a (j) =a1End IfNext jNext iFor i=1 To 10Print a(i)Next iEnd Sub
以下程序的功能是，产生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 MaxEnd Sub
在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：Option Base 1Private Sub command1_ Click() Dim arr (4)As Integer Dim arrt (4) As Integer for i= 1 To 4 Arr (i)= i arr1 (n)= 2 * n + i Next i Print arr1 (n); arr(n)程序的运行结果为______。A．3 11B．11 3C．10 3D．3 13
在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是______ 。A．4321B．12C．34D．1234
在窗体上添加一命令按钮,其名为Command1,然后编写代码如下。private Sub Command1_Click()Dim arr(5)As Integer,arr1(5)As Integern=3For i=1 To 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n);arr(n)End Sub程序的运行结果为A．3 11B．11 3C．13 3D．3 13