（33）假定有以下函数过程：

F．unction Fun(S As String)As String

D．im s1 As String

F．or i=1 To Len(S)

s1=LCase(Mid(S, i, 1))+s1

Next i

F．un=s1

E．nd Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

D．im Str1 As String, Str2 As String

Str1=InputBox("请输入一个字符串")

Str2=Fun(Str1)

Print Srt2

E．nd Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体

上的输出结果为（ ）。

A．）ABCDEFG

B．）abcdefg

C．）GFEDCBA

D．）gfedcba