更多"设有以下函数过程： Functiofun(m As Integer)"的相关试题:
[填空题]设有以下函数过程：
Functio 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的值为 ______。
[单项选择]设有以下函数过程：
Function fun(a As Integer，b As Integer)
Dim c As Integer
If a 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 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的值为 _________。
[单项选择]设有如下函数过程：
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的商的整数部分
[单项选择]设有以下函数：
void fun(int n,char*s)
……
则下面对函数指针的定义和赋值均正确的是______。
A. void(*pf)(int,char*);pf=fun;
B. void*pf();pf=fun;
C. void*pf();*pf=fun;
D. void(*pf)(int,chad;)pf=＆fun;
[单项选择]有以下函数过程： 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 Fun(S As String) As String
Dim s1 As String
For i=1 To Len(S)
s1 = UCase(Mid(S， i， 1)) +s1
Next i
Fun =s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim Str1 As String， Str2 As String
Strl = InputBox(“请输入一个字符串”)
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”
按钮后在窗体上的输出结果为，
A. abcdefg
B. ABCDEFG
C. gfedcba
D. GFEDCBA
[填空题]假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i=1 To len(S)
s1=Ucase(Mid(S，i，1))+s1
Next i
Fun=s1
End Function
则Str2=Fun("abcdefg")的输出结果为______。
