更多"有如下函数过程： Function fun1(By Val x As"的相关试题:
[单项选择]有如下函数过程：
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(By Val x As Integer，By Val 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 Fun( By Val x As Integer,By Val y As Integer) As Integer Do While y ＜＞ 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_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(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 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. 5O
D. 100
[单项选择]有下列函数过程：
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 fun(a As Integer, b As Integer)
Dim c As Integer
If a＜b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数，则函数返回的是
A. a、b的最大公约数
B. a、b的最小公倍数
C. a除以b的余数
D. a除以b的商的整数部分
[单项选择]有如下函数过程：
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. 学生.姓名
[单项选择]有如下函数过程： 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（ ） Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub
A. 25
B. 35
C. 45
D. 55
[单项选择]有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click（ ） Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End Sub
A. 25
B. 35
C. 45
D. 55
[单项选择]有如下函数过程： 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 f1(x As Integer)As Long
Dim s As Long
Dim i As Integer
s=0
For i=1 To x
s=s+i
Next i
f1=s
End Function
在窗体上添加一个命令按钮，名为Command1，并编写事件过程调用该函数，则输出结果为( )。
Private Sub Command1_Click（ ）
Dim i As Integer
Dim sum As Long
For i=1 To 5
sum=sum+f1(i)
Next i
Print sum
End Sub
A. 25
B. 35
C. 45
D. 55
[单项选择]有如下一个函数过程：
Function Fun(a As Integer)
Static C
b=0:b=b+1:c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮，事件过程如下：
Private Sub Command1_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print Fun(
A. ；
