有如下函数过程： Function Fun(By Val x As Ingeger

问题单项选择题

有如下函数过程： 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

A．0

B．25

C．50

D．100

答案

参考答案：B

解析：本题的难点是子函数的调用过程。子函数Fun的功能是求x和y的公约数，由“欧几里德”求最大公约数的算法可知，当余数r为0时，x为x和y的最大公约数。变量x的值通过子函数名Fun返回。