设有如下通用过程：

Public Function Fun(xStr As String)As String

Dim tStr As String,strL As Integer

tStr=""

strL=Len(xStr)

i=1

Do While i＜＝strL/2

tStr＝tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1，1)

i＝i+1

Loop

Fun=tStr

End Function

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click()

Dim S1 As String

S1="abcdef"

Text1.Text=UCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，则Text1中显示的是（）。

A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

手机阅读WAP网址是（）。