有如下函数过程：Function fun1(By Val x As Integer,By Val y As Integer)As Integer

时间: 2020-2-29 分类: 作业习题  【来自ip: 10.157.127.188 的 匿名网友 咨询】 手机版

单项选择题:
有如下函数过程：
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