[单项选择]有下列函数过程：

Function fun1(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=fun1(a,b)

Print x

End Sub
A. 0
B. 25
C. 50
D. 100

更多"有下列函数过程： Function fun1(ByVal x As "的相关试题:

[单项选择]有如下函数过程：
Function fun1(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=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. 0
B. 6
C. 2
D. 80

查看答案

[填空题]有如下函数过程：
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 UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是【7】。
Private Sub Command1_Click（　）
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub

查看答案

[单项选择]有如下函数过程： 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=funl(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
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 Fun(ByVal x As Integer,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 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 UNC (ByVal x As Integer，ByVal y As Integer) As Integer　　　Do While y＜＞0　　　　sic=x/y　　　　x=y　　　　y=sic　　　Loop　　　UNC=x　　End Function　　以下是该函数的调用过程，该程序的运行结果是　　PriVate Sub COmmand1_Click（　）　　　　Dim a As Integer　　　　Dim b As Integer　　　　a=12　　　　b=2　　　　x=UNC (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 gcd(ByVal x As Integer,ByVal y As Integer)As Integer
若要输出8、12、16这3个数的最大公约数，下面正确的语句是( )
A. Print gcd(8,12)，gcd(12,16),ged(16,8)
B. Print ged(8,12,16)
C. Print gcd(8),gcd(12),ged(16)
D. Print gcd(8,gcd(12,16))

查看答案

[单项选择]阅读程序：
Function fac(ByVal n As Integer)As Integer
Dim temp As Integer
temp=1
For i%=1 To n
temp=temp*i%
Next i%
fac=temp
End Function
Private Sub Form_Click（　）
Dim nsum As Integer
nsum=1
For i%=2 To 4
nsum=nsum+fac(i%)
Next i%
Print nsum
End Sub
程序运行后，单击窗体，输出结果是( )。
A. 35
B. 31
C. 33
D. 37

查看答案

[填空题]

设有以下函数过程：
Function fun(m As Integer)As Integer
Dim k As Integer, sum As Integer
sum=0
For k=m To 1 Step-2
sum=sum+k
Next k
fun=stlm
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为（）。

查看答案

我来回答:

提交