（33）假定有以下函数过程： Function Fun（S As String)As String Dim s1 As String For i=1 To L

（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