问题
单项选择题
有如下函数过程：
Function Fun(ByVal x As Integer, ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是( )。
Private Sub Command1_Click()
Dima As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,B)
Print X
End Sub
A) 0
B) 25
C) 50
D) 100
答案
参考答案：B
解析： 本题的难点是子函数的调用过程。子函数Fun的功能是求x和y的公约数，由欧几里德公式求最大公约数的算法可知，当余数r为0时，x为x和y的最大公约数。变量x的值通过子函数名Fun返回。