设有如下通用过程:Pubfic Function Fun(xStr As String)As StringDim tStr As String,strL As In

14 查阅

设有如下通用过程：

Pubfic Function Fun(xStr As String)As String

Dim tStr As String，strL As Integer

tstr=“”

strL=Len(xStr)

i=1

Do While i<=strL／2

tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1)

i=i+1

Loop

Fun=tStr

EndFunction

在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：

Private Sub Commandl_Click()

Dim S1 As String

S1=“abcdef”

Print UCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，输出结果是

A．ABCDEF

B．abedef

C．AFBECD

D．DEFABC

参考答案:

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

计算机二级