设有如下通用过程：Public FunctionFun(x StrAs String)As String DimtStrAs String，strLAs IntegertStr=""strL=Len(xStr)i=1 DoWhilei＜=strL/2 tStr=tStr&Mid(xStr,i，1)&Mid(xStr,strL-i+1，1)" i=i+1LoopFun=tStr End Function在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程：Private SubCommandl_Click() Dim S1As StringS1="abcdef"Text1.Text=UCase(Fun(S1)) End Sub程序运行后，单击命令按钮，则Text1中显示的是()。