题目内容
（请给出正确答案）
假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As Str
A．abcdefg
B．ABCDEFG
C．gfedcba
D．GFEDCBA
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“假定有以下函数过程：Function Fun（S As String)As StringDimsl As StringFori=1 To Len（S)s1=UCa”相关的问题
假定有以下函数过程： 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
（33）假定有以下函数过程：
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 Srt2
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 在窗体上画一个命令按钮，然后编写如下事件过程： 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 = 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
A. Private Function f（x As String ） As Single
B. Private Function f（x As String ）
C. Private Sub f（x As String ） As Single
D. Private Sub f（x As String ）
A．Private Function f（x As String ） As Single
B．Private Function f（x As String ）
C．Private Sub f（x As String ） As Single
D．Private Sub f（x As String ）
设有以下函数过程：
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的值为______。
计算n!的函数过程如下:
Private Function fact(n As Integer)As Long
f = 1
For i = 1 To n
f = f * i
Next i
(___________________)
End Function
下划线处需要编写的语句是()。
A. f = 1
B. f = fact
C. fact = f
D. 不需要其他任何语句
设有一个窗体，内有一个名称为Command1的命令按钮，该模块内还有一个函数过程：
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click()
Dim y As Integer
StatiC x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub程序运行后，如果单击命令按钮，则在立即窗口上显示的内容是( )。
A．10 5 B．20 5 C．20 40 D．10 40
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
