设有下列通用过程: 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&tStr End Function 在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程: Private Sub Commandl Click() Dim S1 As String S1="ABCDEF" Text1.Text=LCase(Fun(S1)) End Sub 程序运行后,单击命令按钮,文本框中显示的是()。
A.ABCDEF
B.abedef
C.defdef
D.defabc