计算机二级
单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,A)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As Integ
题目
单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,A)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As Integer,y As Integer, z As Integer) SecProc=FirProc(z,x,y)+x End Function
A．20
B．22
C．28
D．30
相似问题和答案
第1题：
在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量)
Dim x As Integer
Sub inc(a AS Integer)
X=K+a
End Sub
Private Sub Command1_Click()
inc2
inc3
inc4
Prmt x；
Ead Sub
程序执行后，单击Command1命令按钮，输出的结果是【 】。
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=9。
第2题：
设有命令按钮Commandl的单击事件过程，代码如下：
运行程序，单击命令按钮，消息框输出结果是（ ）。
A. 7
B. 8
C. 15
D. 22
本题考查VBA中二维数组和循环的知识。本题中的第一个二重循环为二维数组进行了赋值，第二个循环 完成累加，关键是分析出累加了哪些元素。由循环体可以看出，实 际上3次累加分别累加的是a(1，3)、a(2，2)、a(3、1)，实际上就是二维 数组的对角线，累加和为7+8+7=22。
第3题：
在窗体上添加一个命令按钮，然后编写其单击事件过程为：
则单击命令按钮后消息框的输出结果是（ ）。
A)7
B)8
C)9
D)13
本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了：同理中层循环每一次开始前都把X置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=355=13。
第4题：
在窗体上有一个命令按钮，然后编如下事件过程：
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。
-1的平方根是一个虚数
【解析】在Sub过程中，定义了一个Double型变量N，并调用InputBox函数，给N赋值，即将从对话框中输入的-1赋给N；通过运算符”&”，将N与字符串”的平方根”连接起来并赋给Msg；在条件块语句中将N作为参数，调用SR事件过程，将Function过程的返回值作为测试表达式；在SR函数中，调用Sgn函数测试x的值为正数还是负数，如果是正数，那么就执行条件块语句中的SR=Sqr(x)，即将X的平方根作为返回值，如果x值为零，Sgn函数返回值为零，那么就将0作为返回值；如果为负数。Sgn函数返回值为-1，SR=-1，即将-1作为返回值；在Sub程序的条件块语句中，根据SR返回值的不同，执行不同操作，当返回值为0，将Msg字符串加”是0”，赋给Ms9，如果是-1，将Msg加”是一个虚数”赋给Msg，当为其他时，即在平方根时，将字符串Msg加”是”，再加上这个数的平方根赋给Msg，并用MsgBox函数输出。
第5题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。
A. 输出0
B. 输出25
C. 输出45
D. 无任何输出
D) 【解析】本题考查VB程序的执行特点。程序执行时，布尔型变量SW默认为False，单击命令按钮后弹出对话
框，在该对话框中输入25之后，始终没有在窗体上单击鼠标，因而没有改变SW的值，所以没有进行fun函数过程的调用，也就无
任何输出。
第6题：
在窗体上添加一个命令按钮，然后编写其单击事件过程为：
则单击命令按钮后消息框的输出结果是（ ）。
A. 7
B. 8
C. 9
D. 13
本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后～次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=3+5+5=13。
第7题：
在窗体上画一个名为Commandl的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是（ ）。
A. 4
B. 5
C. 6
D. 8
A) 【解析】本题考查数组中元素的分析。数组中的第k个元素的值为12-k，因此M(6)数据为6，M(8)为4。
第8题：
在窗体上画一个命令按钮，然后编写如下事件过程：
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。
第9题：
编写如下代码：
运行上面的程序，单击命令按钮，其输出结果是
A．9885
B．5889
C．988
D．889
关键是For循环的含义。它实际上是依从数组尾都取数，分别作为十进制个位及其他位的权值，然后组成一个数字。直接可以写出结果9885，所以选择A。
第10题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。