Visual Basic语言程序设计
单选题在窗体上画一个命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，输出结果是（ ）。A ABCDEB 1 2 3 4 5C abcdeD 出错信息
题目
ABCDE
1 2 3 4 5
abcde
出错信息
相似问题和答案
第1题：
在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5) As String
FOR i=1 To 5
a(i) =Chr(Asc("A") +(i-1))
Next
For Each b In a
Print b；
Next
End Sub
程序运行后，单击命令按钮，输出结果是
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
解析：本题考查数组的赋值操作及For Each…In循环语句。本程序段首先定义了一个一维数组变量，然后用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中元素的值，所以正确答案是选项A。
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程：
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．出错信息
第3题：
在窗体上画一个名称为 \"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 。
第4题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。
第5题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是【 】。
18 解析：对于内层循环而言，当j为1、3时，a会各加两次1；当j为2、4时，a会各加一次1。因此整个内层会加6次1。考虑到外层循环要执行三次循环体，所以一共要加18次1，最终的输出结果为18。
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A="12" B="34" C="56" Print A+B+C End Sub 程序运行后，单击命令按钮，输出结果是( )。
A．"123456"
B．123456
C．102
D．显示出错信息
第7题：
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,单击命令按钮,输出结果是
A．12
B．13
C．16
D．17
解析：观察程序,由于每次执行外层循环时x都被重新赋值,因此只要看到i=4时,执行内循环所得到的结果就可以。
第8题：
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。
A．0
B．2
C．3
D．4
解析：在内层循环中，在奇数次执行时，a的值不变，偶数次执行时，a的值加1。每执行一轮外层循环，内层循环中的语句将要执行4次，即a的值要加2，一共执行了两次内层循环语句，故a的值要加4，而初始时a的值为0，故最后输出的a的值为4。
第9题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Do Whileb＞=0
c=a+b
Loop
End Sub
程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是( )。
-3 解析： 本题考查VBA中，循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次：由于在每次循环中均会重新对a、b、c进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中c等于最后两次输入的值之和也就是-3。
第10题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，消息框输出的是系统当前日期和当前时间。
72【解析】本题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。我们只需要注意这两个数组元素在循环中被赋了什么值，当i=3，j=3时，al(3，3)=3 3=6，a2(3，3)=al(3，3) 3 3=12，所以最后二者之积为72。