itgle.com
设有如下程序：程序运行后，单击窗体，则在窗体上显示的是（ ）。A. 4 3 2 1B. 5 4 3 2C. 6 5 4 3D. 7 6 5 4
题目
设有如下程序：
程序运行后，单击窗体，则在窗体上显示的是（ ）。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
相似考题
更多“ 设有如下程序：程序运行后，单击窗体，则在窗体上显示的是（ ）。A. 4 3 2 1B. 5 4 3 2C. 6 5 4 3D. 7 6 5 4 ”相关问题
-
第1题：
设有如下程序： 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
正确答案：C
解析：本题综合考查For循环控制语句与用Array函数为数组进行初始赋值．注意，由于“Option Base 0”，故数组的下标下界为0，所以a(5)应该是数组a的第六个元素“6”，以此类推，可知正确答案为C。 -
第2题：
设有如下程序： 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 1
B．5 4 3 2
C．6 5 4 3
D．7 6 5 4
正确答案：C
-
第3题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(a)a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A．4
B．5
C．6
D．7
正确答案：B
解析：UBound(a)函数返回数组a中指定上界，即For循环的终值为5。a(3)的值为3+3-1=5。 -
第4题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(A) a(i)=a(i)+i-1 Next Print a(3) End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是
A．4
B．5
C．6
D．7
正确答案：B
解析：题目中存在Option Base语句，则数组中第一个元素的索引值为1，当i=3时，a(i)=3，计算a(i)=a(i)+i-1结果为5，选项B为正确答案。 -
第5题：
设有如下程序： 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 1
B．5 4 3 2
C．6 5 4 3
D．7 6 5 4
正确答案：C
解析：不要把下标和数组元素值相混淆。函数Array将初值赋给数组a，在循环中将下标为5、4、3、2的数组元素值打印出来，即6、5、4、3。 -
第6题：
设有如下程序： 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 1
B．54 3 2
C．6 5 4 3
D．7 6 5 4
正确答案：C
解析：注意，由于"OptionBase0"，故数组的下标下界为0，所以a(5)应该是数组a的第六个元素"6"，以此类推，可知正确答案为C。