（ 27 ）设有如下通用过程：

Public Function Fun(xStr As String) As String

D．im tStr As String, strL As Integer

tStr = ""

strL = Len(xStr)

i = 1

D．o While i <= strL / 2

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

i = i + 1

Loop

F．un = tStr

E．nd Function

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

Private Sub Command1_Click()

D．im S1 As String

S1 = "abcdef"

Text1.Text = UCase(Fun(S1))

E．nd Sub

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

A． ） ABCDEF

B． ） abcdef

C． ） AFBECD

D． ） DEFABC