设有如下通用过程： Public Function Fun(xStr As String)As String Dim t Str As String，strL As 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 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abedef" Prim UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是( )

ABCDEF
B. abcdef
C. AFBECD
DEFABC