从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

假定有下列函数过程：
Function Fun(S As String)As String
Dim sl As String
For i=1 To Len(S)
S1=LCass(Mid(S,i,1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
Dim Strl 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 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

假定有以下函数过程：
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
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 String
Str1=InputBox(“请输入一个字符串”)
Str2=Fun(Str1)
PrintStr2
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=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

假定有以下函数过程： 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 String Str1=InputBox(“请输入一个字符串”) Str2=Fun(Str1) PrintStr2 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 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 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