问题
单项选择题
设有下列通用过程： 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
解析：【解析】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”。