有如下函数过程： 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) Print x End Sub

A．0

B．25

C．50

D．100

[单选题]有如下函数过程：F．unction Fun(By Val x As Ingeger，ByVal y As Integer) As IntegerD．O While …y＜＞0reminder=x Mod yx=yy=reminderLoopF．un=xE．nd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Command1_Click()D．im a As IntegerD．im b As Integera=100:b=25x=Fun(a,B)Print

[单选题]有如下函数过程。F．unction Fun(By Val x As Integer,By Val y As Integer)As IntegerD．o While y<>0reminder=x Mod yx=yy=reminderLoopF．un=xE．nd Function以下调用函数的事件过程,该程序的运行结果是Private Sub Command7_Click()D．im a As Integer,b As Integera=100:b=25x=Fun(a,B)Print x

[单选题]有如下函数过程:F．unction Fun(By Val x As Ingeger, ByVal y As Integer)As IntegerD．o While … y <>0reminder=x Mod yx=yy=reminderLoopF．un=xE．nd Function以下是调用该函数的事件过程,该程序的运行结果是Private Sub Command1D．im a As IntegerD．im b As Integera=100:b=25x=Fun(a,b)Print

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

[单选题]有如下函数过程： 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)

[单选题]有如下函数过程： FunctiOngyS(By Val X As Integer，ByValy As Integer)As Integer DOWhiley＜＞0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程，该程序的运行结果是，( )。 PriVate Sub Command7_Click() DimA．0B．25C．50D．100

[单选题]有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick()A．25B．35C．45D．55

[单选题]有如下函数过程： Function funl(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 a As Integer Dim b As Integer a=100 b=25 x=

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

[单选题]有如下一个函数过程: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