更多"设有以下函数过程：
Functio fun(m As Intege"的相关试题:
[填空题]设有以下函数过程：
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(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的值为（）。
[单项选择]设有以下函数过程： 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 Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是（）
A. a、b的最大公约数
B. a、b的最小公倍数
C. a除以b的余数
D. a除以b的商的整数部分
[填空题]设有以下函数过程：
Functiofun(m As Integer)As Integer
Dimk As Integer,sum As Integer
sum=0
Fork=m To 1 Step-2
sum=sum+k
Nextk
fun=sum
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为______。
[填空题]设有以下函数过程：
Functiofun(m As Integer)As Integer
Dimk As Integer,sum As Integer
sum=0
Fork=m To 1 Step-2
sum=sum+k
Nextk
fun=sum
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为______。
[单项选择]设有以下函数：
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 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
Str1=Input Box(“请输入一个字符串”)
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
A. abederg
B. ABCDEFG
C. gfedcba
D. GFEDCBA
[单项选择]假定有以下函数过程： Function Fun(S As String)As string Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S,i,1)+s1 Next i Fun=s1 End Function 在窗体上画—个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim Str1 As String,Str2 As String Str1=InputBox("请输入—个字符串") Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。
A. ABCDEFG
B. abcdefg
C. GFEDCBA
D. gfedeba
[单项选择]假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i=1 To Len(s)
s1=LCase(Mid(S,i,1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击“确定”按钮后在窗体上的输出结果为
A. ABCDEFG
B. abcdefg
C. GFEDCBA
D. gfedcba
