假定有以下函数过程：FunctionFun(sAsString)AsStringDims1AsStringFori=1ToLen(s)s1=UCase(Mid(s,i,1)) s1NextiFun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimStr1AsStringDimStr2AsStringStr1=InputBox(“请输入一个字符串”)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。
A.Abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
正确答案：D