题目内容：

[单选题]（ 30 ）有如下通用过程：

Public Function Fun(xStr As String) As String

D．im tStr As String ,strL As Integer

tStr= ” ”

strL=Len(xStr)

i=strL/2

D．o While i<=strL

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

i=i+1

Loop

F．un=tStr & tStr

E．nd Function

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

Private Sub Command1_Click()

D．im S1 As String

S1= ” ABCDEF ”

Text1.Text=Lcase(Fun(S1))

E．nd Sub

程序运行后，单击命令按钮，文本框中显示的是

A． ） ABCDEF

B． ） abcdef

C． ） defded

D． ） defabc