计算机二级
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m◇n Do While m>n：m=m-n:Loop Do While m＜n：n=n-m:Loop Loop MyFund=m End FunctionA．0B．2C．4D．6
题目
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m◇n Do While m>n：m=m-n:Loop Do While m＜n：n=n-m:Loop Loop MyFund=m End Function
A．0
B．2
C．4
D．6
相似问题和答案
第1题：
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是 ______。
A．a=11
B．a=b+c
C．a=
D．假
解析：在本题中，变量a未定义，因此初始值为0，在表达式a=b+c中，a=0，b+c=5+6=11，所以表达式的值为False，程序的输出结果为False。
第2题：
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。
A．0
B．5
C．15
D．无任何输出
解析：单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并在窗体上输出f(5)，函数f的作用是，如果自变量x10，则直接返回 x，否则返回x＋10。故本题应输出5。
第3题：
单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click（）
BT 4
End Sub
Private Sub BT（x As Integer）
x=x * 2 + 1
If x < 6 Then
Call BT（x）
End If
x=x * 2
Print x;
End Sub（ ）。
A．15
B．16
C．17
D．18
第4题：
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为
A．80
B．60
C．70
D．15
解析：本题调用一个Function过程func，该过程只有一个参数，类型为整型，返回值也为整型。过程的调用十分简单，关键是要搞清楚过程func的功能。从For-Next循环可以看出，该过程的功能是：1×2+2×3+3×4+…+(n+1)×n。在调用过程时，实参a的值为5，即上式中的n=5。因此返回的值为：1×2+2×3+3×4+4×5+5×6=70。
第5题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第6题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第7题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A="12" B="34" C="56" Print A+B+C End Sub 程序运行后，单击命令按钮，输出结果是( )。
A．"123456"
B．123456
C．102
D．显示出错信息
第8题：
工程中有两个窗体，名称分别为Form1、Form2，Fonn1为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是 ______。
A．Private Sub Command1_click() Foma2.Show End Sub
B．Private Sub Command1_Click() Form2.Visible End Sub
C．Private Sub Command1_Click() Load Form2 End Sub
D．Private Sub Command1_click() Form.Load EndSub
解析：Show方法用来显示一个窗体。格式：窗体名称.Show[模式]，参数“模式”用来确定显示窗体的状态，可以取值0或1。取值为0(0值是缺省值)则窗体是“无模式”窗体，当该窗体显示出来时，不但可以对该窗体进行操作，还可以对其他显示出来的窗体进行操作：取值为1则窗体是“模式”窗体，当该窗体显示出来时，只能对该窗体进行操作，只有当该窗体关闭后，才能对其他窗体进行操作。
第9题：
单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x＜6 Then
Call BT(x)
End If
x=x*2
Print x；
End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程中判断语句的判断条件，执行x=x*2；Print x；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第10题：
有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是
A．Microson
B．错误提示
C．Visual
D．Basic
解析：使用Array函数创建的数组下界是由OphonBase语句指定的下界而确定的，在本题中，下界被OptionBase语句指定为0，所以x(0)的值为“Visual”，x(1)的值为“Basic”，x(2)的值为“Microsoit”，x(3)的值为“Programming”。