设有如下通用过程： Public Function Fun(xStr As Str

问题单项选择题

设有如下通用过程： Public Function Fun(xStr As String) As String Dim tStr As String，strL As Integer tStr=" " strL=Len(xStr) i=1 Do While i<=strL/2tStr=tStr & Mid(xStr，i，1) & Mid(xStr，strL-i+1，1) i=i+1LoopFun=tStr End Function在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringS1="abcdef"Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是

A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

答案

参考答案：C

解析：此题主要考核Mid函数、UCASE函数，MID返回文本字符串中从指定位置开始的特定数目的字符，其格式为：MID(text，start_num，num_chars)，Text包含要提取字符的文本字符串。Start_num文本中要提取的第一个字符的位置。文本中第一个字符的start_num为1，以此类推。Num_chars指定希望MID从文本中返回字符的个数。UCASE函数则将小写字母转换成大写字母。