设有下列通用过程：Public Function Fun（xStr As String)As StringDim tStr As String strL As In
过程,按钮,命令
已帮助 人
设有下列通用过程：
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
请帮忙给出正确答案和分析，谢谢！
-
正确答案：C
C。【解析】LCase函数用于将字符串中大写字母转化为小写字母，原本小写或非字母字符保持不变。Mid(字符串，起始位置[个数])函数用于从已有字符串中取出按指定位置开始的含指定个数字符的字符串。在本题源程序的Fun函数过程中，当第1次执行Do循环体后，变量tStr=Mid("ABCDEF"，3+1，1)="D"；当第2次执行D0循环体后，变量tStr="D"＆Mid("ABCDEF"，4+1，1)="DE"；当第3次执行Do循环体后，变量tStr="DE"＆Mid("ABCDEF"，5+1，1)="DEF"。函数返回值为“DEFDEF”，故文本框中显示内容为“defdef”。