题目内容：
设有如下通用过程：Public Function Fun（xStr As Stri ng）As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF＝＂＂
strL＝Len（xStr）
i ＝1 Do While i ＜＝strL／2
tStr ＝Tstr ＆Mid（xStr ，i ，1）＆Mid（xStr ，strL－i＋1，1）
i ＝i ＋l
Loop
Fun ＝tStr
End Function
在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程：
Private Sub Co mmandI＿Click（）
Di mS1As Stri ng
S1＝＂abedef＂
Pri m UCase（Fun（S1））
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。 A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
参考答案：
答案解析：