问题
单项选择题
设有下列通用过程：
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
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写下列的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是( )
A．ABCDEF
B．abcdef
C．defdef
D．defabc
答案
参考答案：C
解析： LCase()函数用于将字符串中的大写字母转化为小写字母，原本小写字母或非字母字符保持不变。Mid(字符串,起始位置[个数])函数用于从已有字符串中取出按指定位置开始的含指定个数字符的字符串。
在本题源程序的Fun函数过程中，当第1次执行Do循环体后，变量tStr=Mid("ABCDEF",3+1,1)="D"；当第2次执行Do循环体后，变量tStr="D"&Mid("ABCDEF",4+1,1)="DE"；当第3次执行Do循环体后，变量tStr="DE"＆Mid("ABCDEF",5+1,1)="DEF"。函数返回值为"DEFDEF"，故文本框中显示内容为“defdef”。