更多"有如下函数过程：
Function gys(By Val x As"的相关试题:
[填空题]有如下函数过程：
Function gys(By Val x As Integer, ByVal y As Integer) As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程：
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10；b=2
x=gys(a，b)
Print x
End Sub
该程序的运行结果是______。
[填空题]有如下函数过程：
Function gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是 【9】 。
Private Sub Command1_Click（ ）
Dim a As Integer，b As Integer
a=10：b=2
x=gys(a，b)
Print x
End Sub
[单项选择]有如下函数过程：
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 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
[单项选择]有以下函数过程：
Function Gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜ >0
Remender=x Mod v
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=Cys(a，b)
Print x
End sub
A. 0
B. 10
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
