题目内容
（请给出正确答案）
有如下函数过程： 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() Dim
A．0
B．25
C．50
D．100
如果结果不匹配，请 联系老师 获取答案
更多“有如下函数过程：FunctiOngyS（By Val X A…”相关的问题
有以下函数过程： 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 Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，B)Print x End Sub
A．0
B．10
C．50
D．100
有如下的一个函数过程：
通过以下事件过程阔用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为（）。
A.12
B.6
C.3
D.1
有如下函数过程： 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．25
B．35
C．45
D．55
有如下函数过程。
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
有如下函数过程:
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
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
有如下函数过程： 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
有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜ ＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click() Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，B)Print x End Sub
A．0
B．6
C．2
D．80
有如下函数过程： Function fun1(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 fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是()。 Private Sub Command1_CliCk() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a，b)Print x End Sub
A．0
B．25
C．50
D．100
有如下的函数过程： Function Func2(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=Fune2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
有如下的函数过程： Function Func2(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 p=Func2(k,m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
