[填空题]有如下函数过程：
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(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 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 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. _学生姓名
B. 学生□姓名
C. 学生_姓名
D. 学生.姓名

查看答案

我来回答:

提交