单项选择题

设有如下通用过程：Public Function Fun(xStr As String)As String　　Dim tStr As String， strL As Integer　　tStr＝""　　strL＝Len(xStr)　　i＝strL / 2　　Do While i<＝strL　　　　tStr＝tStr & Mid(xStr， i＋1， 1)　　　　i＝i＋1　　Loop　　Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()　　Dim S1 As String　　S1＝"ABCDEF"　　Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是(　　)。