設有如下通用過程:Pubfic Function Fun(xStr As String)As StringDim tStr As String,strL As
設有如下通用過程：
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函數則將小寫字母轉換成大寫字母。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。