（28）阅读程序：Private Sub Commandl_Click()Dim arrDim i As Integerarr＝Array(0，1，2, 3，4, 5，6，7，8，9, 10)For i＝0To2Print arr(7-i);NextEnd Sub程序运行后，窗体上显示的是：A）8 7 6B）7 65C）6 5 4D）5 4 3
（28）阅读程序：
Private Sub Commandl_Click()
Dim arr
Dim i As Integer
arr＝Array(0，1，2, 3，4, 5，6，7，8，9, 10)
For i＝0To2
Print arr(7-i);
Next
End Sub
程序运行后，窗体上显示的是：
A）8 7 6
B）7 65
C）6 5 4
D）5 4 3
相关考题：
阅读程序Option Base 1Private Sub Form_Click（）Dim arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3 = arr（i）\3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15
设有如下程序：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个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。A． 21B．13C．8D．25
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
有如下程序：Option Base 1Private Sub Form_Click（）Dim arr, SumSum = 0arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）For i = 1 To 10If arr（i） / 3 = arr（i） \ 3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．25B．26C．27D．28
下列程序输出的结果为【 】。Private Sub Commandl_Click( )Dim a As Booleana = TrueIf a Then GoTo 11 Else GoTo 2211:Print "VB";22:Print "VC"End Sub
阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。A．135B．357C．531D．753
下面程序的输出结果是【 】。Private Sub Commandl_Click( )Dim a(1 To 20)Dim iFori = 1 To 20a(i) = iNext iFor Each i In a( )a(i) = 20Next iPrint a(2)End Sub
下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。Option Base 1Private Sub Command1_Click()Dim arr1()Dim 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______Next iText1=MinEnd 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 = arr1(1)For i=2 To 8If arr1(i)＜Min ThenNext iPrint "最小值是:"; MinEnd Sub
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End FunctionA．t=18B．t=24C．t=30D．t=32
阅读程序：Private Sub Commandl一Click()Dim arrDim i AS Integerarr=Array(0，1, 2，3，4，5，6，7,8，9，10)For i=0 To 2Print arr(7-i)；NextEnd Sub程序运行后，窗体上显示的是：A．8 7 6B．7 6 5C．6 5 4D．5 4 3
阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
设有程序：Option Base 1Private Sub Command1_Click()Dim arr1,Max as Integerarr1＝Array(12,435,76,24,78,54,866,43)【 】＝arr1(1)For i＝1 To 8If arr1(i)＞Max Then【 】Next iPrint"最大值是:";MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A． 25B．26C．27D．28
阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15
下列程序的输出结果是______。Private Sub Commandl_Click()Dim alt(1 To 10)Fori＝1 To 10arr(i) ＝INext iFor Each i In arr()arr(i) ＝arr(i) *2+1Next iMsgBox arr(7)End Sub
阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（ ）。A.35B.31C.33D.37
阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer，j As IntegerReDim arr(3,2)For i=1 To 3For j=1 To 2an(i,j) =i*2+jNextNextReDim Preserve an(3,4)For j=3 To 4an(3,j) =j+9NextPrint arr(3,2) +air(3,4)End Sub程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) Fori=1 To 6 1fx(i)＞c Then d=d+x(i) c=x(i) ElseA．10B．16C．12D．20
阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行以上程序，单击命令按钮，输出结果为______ 。A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写．如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。A．12B．13C．14D．15
下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtionA．abcdefB．afbecdC．fedcbaD．defabc
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim array1（10，10）As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array1（I，j）=I+j Next j Next I Text1.Text=array1（2，3）+array1（3，4） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）A、12B、13C、14D、15