题目内容
（请给出正确答案）
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“有下列函数过程：Function funl（ByVal x As Integer, ByVal y As Integer) Do While y $amp;”相关的问题
有如下函数过程： 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 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 Fun(By Val x As Ingeger，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 Command1_Click()
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,B)Print x
End Sub
A．0
B．25
C．50
D．100
Function Fun(By Val x As Ingeger, ByVal y As Integer)As Integer
Do While … y $amp;reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是
Private Sub Command1
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub
A．0
B．25
C．50
D．100
Function Fun(By Val x As Integer,By Val y As Integer)As Integer
Do While y$amp;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
设有以下函数过程
Private Function Fun(a()As Integer，b As String)As Integer
Ehd Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程凋用语句是
A．x(0)=Fun(x，“ch”)
B．n=Fun(n，ch)
C．Call Fun x，“ch”
D．n=Fun(x(5)，ch)
设有以下函数过程 Private Function Fun(a（）As Integer，b As String)As Integer … End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是（）。
A.x(O)=Fun(x．"ch")
B.n=Fun(n．ch)
C.CallFun X，"ch"
D.n=Fun(x(5)，ch)
假定有以下函数过程： Function Fun(S As String) As String Dim sl As String For i＝1 To Len(S) s1＝UCase (Mid(S，i，1))+s1 Next i Fun＝s1 End Function则Str2=Fun("abcdefg”)的输出结果为()。
A．abcdefg
B．ABCDEFG
C．gfedcba
D．GFEDCBA
设有以下函数过程：
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 = sum
End Function
若在程序中用语句 s = fun（10） 调用此函数，则s的值为______。
（23）设有以下函数过程
Private Function Fun(a() As Integer, b As String) As Integer
...
End Function
若已有变量声明：
Dim x(5）As Integer, n As Integer, ch As String
则下面正确的过程调用语句是
A）x(o)＝Fun(x, "ch")
B）n＝Fun(n, ch
C）Call Fun x, "ch"
D）n＝Fun(x(5), ch)
函数过程如下： FUNCTION FUN(N AS STRING)AS STRING DIM N1 AS STRING FOR I=1 TO LEN(N) N1 =UCASE(MID(N,I, 1)) + N1 NEXT I FUN: N1 END FUNCTION 则S=FUN("uvwxyz")的输出结果为()。
A．uvwxyz
B．zyxwvu
C．UVWXYZ
D．ZYXWVU
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
