单选题：设有下列通用过程：Public Function Fun（xStr As Stri ng）As Stri ngDi mt

设有下列通用过程：
Public Function Fun（xStr As Stri ng）As Stri ng
Di mtStr As Stri ng ，strLAs Integer
tStr ＝＂＂
strL＝Len（xStr）
i ＝strL／2
DO While i ＜＝StrL
tStr ＝tStr ＆Mid（xStr ，i ＋l ，1）
i ＝i ＋1
Loop
Fun ＝tStr ＆tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Co mmand1的命令按钮。然后编写下列的事件过程：
Private Sub Co mmand1＿Click（）
Di mS1As Stri ng S1＝＂ABCDEF＂
Text1．Text ＝LCase（Fun（S1））
End Sub
程序运行后，单击命令按钮，文本框中显示的是（　　）。 A．ABCDEF
B．abcdef
C．defdef
D．defabc