网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是
A．4 3 21
B．543 2
C．6 54 3
D．7 6 54
参考答案
更多 “ 设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 21B．543 2C．6 54 3D．7 6 54 ” 相关考题
考题
设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 – I);Next IEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。
A.4321B.5432C.6543D.7654
考题
设有如下程序：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个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
考题
设有如下程序： 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
考题
设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。A．ABCDE 20 10B．10 20 ABCDEC．ABCDE 10 20D．出错信息
考题
设有如下程序： Option Base 0 Private Sub Form_Click（ ） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 4
考题
设有如下程序：Option Base 1Private Sub Commandl 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 Then【 】NextPrint"最小值是:";MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
考题
设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。A．4 3 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4
考题
设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dimi As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。A．4 3 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4
考题
设有如下程序： Option Base 0 Private Sub Form_Click( ) Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 2 1B．54 3 2C．6 5 4 3D．7 6 5 4
热门标签
最新试卷