计算机二级
在窗体上画一个命令按钮，然后编写如下事件过程： 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() 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
相似问题和答案
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程： 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
解析：本题考查考生对数组和表达式的理解。如果没有特别说明，数组的下界都是从0开始的，即如果由定义数组语句Dima(10)，则数组元素的个数是11个，而不是10个。程序中的定义语句Dima()是定义一个动态数组，在定义动态数组时，维的界默认不写，但数组名的括号不能省略。程序中的Array是给一维数组赋初值的函数，需要注意，它只能给一维数组赋初值，数组只能是变体类型；赋值号只需写上数组名，不要写上括号。程序中For循环控制的初值从1开始，可见a(i)的取值依次是3、5、7，而不是1、3、5。所以程序运行的结果是选项B。
第2题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array("机床"，"车床"，"钻床"，"轴承")Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第3题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(“机床”，“车床”，“钻床”，“轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程。 Private Sub Commandl Click（ ） Dima0a=Array（1，3，5，7）s=0Fori——1t0 3S=s*10+a（i）NextiPrint sEndSub程序运行后，输出结果为（ ）。
A.135
B.357
C.53l
D.753
暂无解析，请参考用户分享笔记
第5题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Pfivate Sub Commandl_Click（） Dima（） a=Array（"机床"，"车床"，"钻床"，"轴承"）Print a（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
C．【解析】本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，通常使用Dim语句来定义数组，其中下标下限默认为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第6题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a()
a＝Array("机床"，"车床"，"钻床"，"轴承")
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第7题：
在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。
A． ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
解析：语句Chr(Asc("A")+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此ASCII码对应的字符。将计算出的字符赋值给数组arr的第i个元素。循环结束后，arr的5个元素分别为字符ABCDE。Print方法输出项的最后用分号结束，使得输出不换行。
第8题：
在窗体上画一个命令按钮，然后编写如下事件过程： 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。
第9题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。