设有以下函数过程：

F．unction fun(a As Integer，b As Integer)

D．im c As Integer

If a＜b Then

c=a：a=b：b=C

E．nd IF

c=0

D．o

c=c+a

Loop Until c Mod b=0

fun=c

E．nd Function

若调用函数fun时的实际参数都是自然数，则函数返回的是（ ）。

A．a、b的最大公约数

B．a、b的最小公倍数

C．a除以b的余数

D．a除以b的商的整数部分

[单选题]设有以下函数过程Private Function Fun(a()As Integer，b As String)As IntegerE．hd Function若已有变量声明：D．im x(5)As Integer，n As Integer，ch As String则下面正确的过程凋用语句是A．x(0)=Fun(x，“ch”)B．n=Fun(n，ch)C．Call Fun x，“ch”D．n=Fun(x(5)，ch)

[单选题]（23）设有以下函数过程Private Function Fun(a() As Integer, b As String) As Integer...E．nd Function若已有变量声明：D．im x(5）As Integer, n As Integer, ch As String则下面正确的过程调用语句是A．）x(o)＝Fun(x, "ch")B．）n＝Fun(n, chC．）Call Fun x, "ch"D．）n＝Fun(x(5), ch)

[单选题]有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Prin

[单选题]有下列函数过程：F．unction fun1(ByVal x As Integer,ByVal y As Integer)As IntegerD．o While y＜＞0reminder=x Mod yx=yy=reminderLoopfun1=xE．nd Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。Private Sub Command1_Click()D．im a As IntegerD．im b As Integera=100b=25x=fun1(a,B)

[单选题]有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x MOd y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim aA．0B．25C．50D．100

[单选题]（27）下列函数过程 Function Func（a As Integer,b As Integer）As Integer Static m As Integer,i As Integer M=0 i=2 A=i+m+1 b=i+a+b Func2=m End Function Private Sub Command1_Click() Dim p As Integer,k As Integer,m As Integer k=4 m=1 P=Func2(k,m) Print k;m End Sub

[单选题]有如下一个函数过程:F．unction Fun(a As Integer)Static cb=0:b=b+1:c=c+1F．un=a+b+cE．nd Function在窗体上添加一个命令按钮,事件过程如下:Private Sub Command1_Click()D．im a As Integera=2F．or i=1 To 3Print Fun(a);NextE．nd Sub运行该程序,单击命令按钮,输出结果是A．4 4 4B．4 5 6C．6 7 8D．4 7 9