单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End FunctionA．0B．1C．3D．5
题目
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End Function
A．0
B．1
C．3
D．5
相似考题
更多“单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End FunctionA．0B．1C．3D．5”相关问题
-
第1题：
下列程序的运行结果是（ ）。 Private Function myfun(m，n) Do while m>n Do While m>n：m=m-n：Loop Do Wllile n>m：n=n-m：Loop Loop myfun=m End Function Private Sub Command1_Click（ ） print myfun(9，8) End Sub
A.2
B.1
C.4
D.3
正确答案：B
B。【解析】求解本题的关键在于理解好3个DoWhile循环的执行顺序，第2个和第3个DoWhile循环嵌套在第l个DoWhile循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个DoWhile循环。程序执行过程是：m=9，n=8；第1个DoWhile循环完，执行第2个DoWhile循环，m=m-n=1；退出第2个DoWhile循环；执行第3个DoWhile循环，n=n-m，最后n的值为1；退出第3个DoWhile循环；退出第1个DoWhile循环。程序执行结果是l。 -
第2题：
下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A．1
B．12
C．11
D．32
正确答案：C
解析：本题主要是对Do...Loop Until循环语句的考查。当Loop Until后的条件不成立时，即退出循环。该题在k为1、2、3、 4、5时，都执行了循环语句，故一共执行了五次，同时m＝m+2也执行了五次，最后m的值增加了10，故运行结果为11。 -
第3题：
单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click( ) Print MyBM(23，18)End SubPublic Function MyBM(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 MyBM=mEnd Function
A．0
B．1
C．3
D．5
正确答案：B
解析：此题程序代码中，被调过程采用了DoWhile……Loop的嵌套语句结构，主调过程只调用了一次被调过程，PrintMyBM(23，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyBM时，把数值23，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为5，然后循环调用，直到m=n，而由语句MyBM=m可看出，此过程的返回值就是m的值，即1。 -
第4题：
单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (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 MyFunc=m End FunCtion
A．0
B．2
C．4
D．6
正确答案：B
解析：此题程序代码中，被调过程采用了DoWhile…Loop的嵌套语句结构，主凋过程只调用了一次被调过程，PrintMyFtunc(20，18)语句表明，程序最后输出的只是被调过程的返回值，主调过程在调用被调过程MyFunc时，把数值20和18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为2，由语句MyFunc=m可看出，此过程的返回值就是m的值，即2。 -
第5题：
单击命令按钮后，下列程序代码的执行结果是______。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
正确答案：2 2 2 2
2 2 2 2 -
第6题：
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem ＜＞ n Do While m ＞ n : m--m - n: Loop Do While m ＜ n : n=n - m: Loop Loop Fun =m End Function
A．0
B．1
C．3
D．5
正确答案：B
解析：此题程序代码中，被调过程采用了Do While……Loop的嵌套语句结构，主调过程只调用了一次被调过程，Print Fun(23，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程Fun时，把数值23，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为5，然后循环调用，直到m=n，而由语句Fun=m可看出，此过程的返回值就是m的值，即为1。 -
第7题：
下列程序的运行结果是( )。 Private Function myfun(m，n) Do While m＞n Do While m＞n:m=m-n:Loop Do While n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9，8) End Sub
A．2
B．1
C．4
D．3
正确答案：B
解析：求解本题的关键在于理解好3个DoWhile循环的执行顺序，第2个和第3个DoWhile循环嵌套在第1个DoWhile循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个DoWhile循环。程序执行如下：m=9，n=8：第1个DoWhile循环内，执行第2个DoWhile循环，m=m-n=1；退出第2个DoWhile循环；执行第3个DoWhile循环，n=n-m，最后n的值为1；退出第3个DoWhile循环；退出第1个DoWhile循环。程序执行结果是1。 -
第8题：
下列程序的运行结果是（ ）。
Private Function myfun(m，n)
Do while m>n
Do While m>n：m=m-n：Loop
Do While n>m：n=n-m：Loop
Loop
myfun=m
End Function
Private Sub Command1_Click（ ）
print myfun(9，8)
End Sub
A.2
B.1
C.4
D.3
正确答案：B
B。【解析】求解本题的关键在于理解好3个DoWhile循环的执行顺序，第2个和第3个DoWhile循环嵌套在第l个DoWhile循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个DoWhile循环。程序执行过程是：m=9，n=8；第1个DoWhile循环完，执行第2个DoWhile循环，m=m-n=1；退出第2个DoWhile循环；执行第3个DoWhile循环，n=n-m，最后n的值为1；退出第3个DoWhile循环；退出第1个DoWhile循环。程序执行结果是l。 -
第9题：
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1Click（ ） Dim m As Integer，n As Integer m=InputBox("输入第一个数") nzInputBox("输入第二个数") Do While m<>n Do While m>n m= m-n Loop Do While n>m n=n-m Loop Loop Print m End Sub 该程序的功能是（ ）。
A.求数值m和n的最大公约数
B.求数值m和n的最小公倍数
C.求数值m和n中的较大数
D.求数值m和n中的较小数
正确答案：A
A。【解析】此题的算法为经典的辗转相减法求最大公约数算法，也可用特殊值法求解。 -
第10题：
阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．
A．16
B．21
C．26
D．31
正确答案：D
解析：过程Func有两个参数，使用的是引用方式，参数和返回值均为整型，在命令按钮事件过程的For循环中调用Func过程，共循环6次，每次循环调用一次。两个过程中使用的变量(包括参数)基本相同，但由于是局部变量，不会发生冲突。无论在事件过程还是通用过程中，y的值始终保持不变，总等于1。在Func过程中，DoLoop循环共执行5次，通过变量n控制(从0～4)，每次都执行x=x+1，因此，每调用一次Func过程，都使得x=x+5，并将返回值赋给事件过程中的变量z。6次调用中，循环变量n的计算过程为：1、2、3、4、5、6：返回值z的结果为：6、11、16、21、26、31。 -
第11题：
单击命令按钮时，下列程序的运行结果为 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
正确答案：B
解析：程序代码被调过程采用了DoWhile…Loop的嵌套语句结构，主调过程只调用了—次被调过程，PrintMyFund(20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyFund时，把数值20，18分另"专给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为2，而由语句MyFund=m可以看出，此过程的返回值就是m的值，即2。 -
第12题：
单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click（）
Print MyBM（23, 18）
End Sub
Public Function MyBM（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
MyBM=m
End Function（ ）。
A．0
B．1
C．3
D．5
正确答案：B
-
第13题：
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．4
B．6
C．9
D．15
正确答案：D
解析：fun1是一个递归过程，fun1函数过程共调用了5次，在Command1的单击事件中调用了fun1(4)，其他3次调用的分别是fun1(3)、fun1(2)和fun1(1)，由fun1函数过程自身调用。在fun1的调用过程中，相当于k=1、k=1+1×2=3、k=1+3×2=7、k=1+2×7=15。 -
第14题：
单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End Function
A．0
B．2
C．4
D．6
正确答案：B
解析：本题主要考查对函数的定义和调用的理解。此题程序代码中，被调过程采用了Do While…Loop的嵌套语句结构，主调过程只调用了一次被调过程，Print MyFunc (20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程 MyFunc时，把数值20和18分别传给形参m和n，从被调过程中的循环语句来看，因为此时 m的值大于n的值，所以执行语句m＝m-n， m的值变为2，由语句MyFunc＝m可看出，此过程的返回值就是m的值即2。 -
第15题：
有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m\2 End Function 单击命令按钮后，输出结果为
A．2 2
B．4 4
C．5 5
D．6 6
正确答案：D
解析：在Sub过程中，程序段先定义了3个Integer型变量k,m,p，并赋给k初值为4,m的初值为1，然后调用事件过程Fun，并将它的值赋给p；在事件过程Fun中定义了两个形参，参数的传送是通过引用实参，即将k,m的地址作为a,b的地址；在Fun中，将m,i定义为静态变量，所以第一次调用后的值仍然保留，但是m,i分别都有赋值语句，将它们的值变为5,2，所以返回值不变，都是6,6。 -
第16题：
有如下函数： Function fun(a As Integer，n As Integer)As Integer Dim m AS Integer While a>=n a=a-n：m=m+1 Wend Fun=m End Function 该函数的返回值是。 A．a乘以n的乘积 B．a加n的和 C．a减n的差 D．a除以n的商(不含小数部分)
正确答案：D
-
第17题：
下面程序的运行结果是 ______ 。程序的功能是 _______ 。
Public Function myfun(m,n)
Do while m＞n
Do while m＞n:m=m-n:Loop
Do While n＞m:n=n-m:Loop
Loop
Myfun=m
End Function
Private Sub Command1_Click()
Print myfun(15,15)
End Sub
正确答案：5 互换两数
5 互换两数 -
第18题：
单击命令按钮时，下列程序代码的执行结果为______ 。Public Function MyFune(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 MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub
A． 2
B．4
C．6
D．8
正确答案：C
-
第19题：
下列程序的运行结果是( )。
Private Function myfun(m,n)
Do While m>n
Do While m>n:m=m-n:Loop
Do While n>m:n=n-m:Loop
Loop
my fun=m
End Function
Private Sub Command1_Click()
Print myfun(9,8)
End Sub
A．2
B．1
C．4
D．3
正确答案：B
解析：求解本题的关键在于理解好3个Do While循环的执行顺序，第2个和第3个Do While循环嵌套在第1个Do While循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个Do While循环。程序执行过程是：m=9，n=8；第1个Do While循环内，执行第2个Do While循环，m=m-n=1；退出第2个Do While循环；执行第3个Do While循环，n=n-m，最后n的值为1；退出第3个Do While循环；退出第1个Do While循环。程序执行结果是1。 -
第20题：
单击命令按钮时，下列程序的运行结果为 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
正确答案：B
解析：此题程序代码中，被调过程采用了DoWhile…Loop的嵌套语句结构，主调过程只调用了一次被调过程，PrintMyFund(20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyFund时，把数值20，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为2，而由语句MyFund=m可看出，此过程的返回值就是m的值，即2。 -
第21题：
单击命令按钮时,下列程序的运行结果为
Private Sub Command1_Click()
Print Fun(23, 18)
End Sub
Public Function Fun(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
Fun=m
End Function
A．0
B．1
C．3
D．5
正确答案：B
解析：此题程序代码中,被调过程采用了Do While...Loop的嵌套语句结构,主调过程只调用了一次被调过程 ,Print Fun(23, 18) 语句表明,程序最后输出的只是被调过程的返回值。主调过程在调用被调过程Fun时,把数值23,18分别传给形参m和n,从被调过程中的循环语句来看,因为此时m的值大于n的值,所以执行语句m = m - n,m值变为5,然后循环调用,直到m=n,而由语句Fun = m可看出,此过程的返回值就是m的值,即为1。 -
第22题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Commandl Click（ ） MsgBox f(24，18)End Sub Public Function f(m As Integer，n As Integer)As"integerDo While m<>n Do While m>n m=m-n Loop Do While m<n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A.2
B.4
C.6
D.8
正确答案：C
C。【解析】本题第一个内层循环，m的值为24-18=6，n的值为18；第二个内层循环l，m的值为6，n的值为18-6=12；第二个内层循环2，In的值为6，n的值为12-6=6。 -
第23题：
单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24，18) End Sub Public Function MyFunc(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 My Func=m End Function
A．2
B．4
C．6
D．8
正确答案：C
解析：根据Myfune的定义，当m与n不相等时执行D。循环，此时如果m大于n，则执行m=m-n的Do循环。据此，MyFune(24，18)的值应该为24减去18。