![[单项选择题] 有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 remi](http://www.mshxw.com/aiimages/31/480127.png "[单项选择题] 有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 remi")
[单项选择题] 有如下函数过程： Function Fun(By Val x As Ingeger，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() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
A. 0
B. 25
C. 50
D. 100
正确答案：B
参考解析：本题的难点是子函数的调用过程。子函数Fun的功能是求x和y的公约数，由“欧几里德”求最大公约数的算法可知，当余数r为0时，x为x和y的最大公约数。变量z的值通过子函数名Fun返回。
