计算机二级
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a() a＝Array(1，3，5，7) s=O 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() a＝Array(1，3，5，7) s=O For i＝1 TO 3 S=S*10十a(i) Next i PrInt S End Sub 程序运行后，输出结果为( )。
A．135
B．357
C．531
D．753
相似问题和答案
第1题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。
第2题：
在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl1_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．12
B．13
C．14
D．15
解析：经过循环后，数组array1(2，3)=5，array1(3，4)=7，然后将array1(2，3)+array1(3，4)赋给Text1，结果为12。
第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
第4题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。
第5题：
在窗体上画一个名称为Cl的命令按钮，然后编写如下事件过程：
程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是（ ）。
A)5
B)6
C)9
D)10
本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1234=10次。
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Y as String
X=5
Y=X & Space(3) & X
Print X；
Print Trim(Y)；Len(Trim(Y))
End Sub
该程序的执行结果是【 】。
□5□5□□□5□5
第7题：
在窗体上画一个命令按钮，然后编写如下事件过程： 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．135
B．357
C．531
D．753
解析：Dima()是定义一个动态数组，Array是给一维数组赋初值的函数。For循环控制的初值从1开始，可见s(i)的取值依次是3，5、7，而不是1、3、5。执行s=s*10+a(i)语句后的最后结果为357，所以程序运行的结果是选项B。
第8题：
在窗体上画一个名称为 \"Command1\" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a As String
A="123456789"
For i=1 To 5
Print Space（6-i）;Mid $ （a,______ ,2*i-1）
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
MiD $( 字符串，起始位置 \[ ，个数 \]) 函数用于取出字符串从指定位置开始的含指定个数字符的字符串。本题 MiD $ 的作用在于依次取出字符串居中位置的 1 、 3 、 5 、 7 、 9 个字符。故取字符串起始位置为 6-i ，即依次为 5 、 4 、 3 、 2 、 1 。
第9题：
在窗体上画一个名称为Text1的文本框和一个名称为Commsnd1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim arrayl(10, 10) As Integer Dim i, j as Integer For i = 1 To 3 For j = 2 To 4 arrayl(i, j) = i+j Next j Next i Text11.. Text=array1(2, 3) + array1(3, 4) End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。
A．12
B．13
C．14
D．15
解析：经过循环后，数组array1(2，3)=5，array1(3，4)=7，然后将array1(2，3)+array1(3，4)赋给Text1，可知正确答案为选项A。
第10题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A．空白
B．错误提示
C．北京
D．上海
解析：使用Array函数创建的数组的下界是由OptionBase语句指定的下界而确定的，在本题中，下界被OptionBase语句指定为0，所以city(0)的值为“北京”，而city(1)的值为“上海”。