設(shè)有如下通用過程：

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

程序運行后，單擊命令按鈕，輸出結(jié)果是

A．ABCDEF

B．a(chǎn)bedef

C．AFBECD

D．DEFABC

C解析：此題主要考核Mid函數(shù)、UCASE函數(shù)，MID返回文本字符串中從指定位置開始的特定數(shù)目的字符，其格式為：MID(text，start-num，hum-chars)。Text包含要提取字符的文本字符串。Start-num文本中要提取的第一個字符的位置。文本中第一個字符的start-num為1，以此類推。Num_chars指定希望MID從文本中返回字符的個數(shù)。UCASE函數(shù)則將小寫字母轉(zhuǎn)換成大寫字母。