niusouti.com
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a（5） As StringFor i = 1 To 5a（i） = Chr（Asc（"A"） + （i - 1））Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息
题目
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_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．出错信息
相似考题
更多“在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Dima(5)AsS ”相关问题
-
第1题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a()
a＝Array("机床"，"车床"，"钻床"，"轴承")
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
正确答案：C
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。 -
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
正确答案：A
-
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 T0 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．abode
D．出错信息
正确答案：A
解析：本程序段首先定义了一维数组a，然后用For循环为其赋值，Asc()函数的作用是返回字符的ASCII码，字符“A”的ASCII码为65，Chr()函数的作用是将ASCII码值变为相应的字符，而“a(i)=Chr(Asc("A")+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a，所以a的元素是A、B、C、D、E。For Each-In用于输出a中元素的值。 -
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub Command1_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
正确答案：B
解析：程序中的Array是给一维数组赋初值的函数。需要注意，它只能给一维数组赋初值，数组只能是变体类型；赋值号只需写上数组名，不要写上括号。程序中For循环控制的初值从1开始，可见a(i)的取值依次是3、5、7，而不是1、3、5，所以程序运行的结果是选项B。 -
第5题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array("机床"，"车床"，"钻床"，"轴承")Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
正确答案：C
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。