設有如下通用過程:Public Function Fun (xStr As String) As StringDim tStr As String,strL A
設有如下通用過程：Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=-" " strL=Len(xStr) i=strL/2 Do Whilei＜=strL tStr=tStr &id(xStr,i+1，1) i=i+1 Loop Fun=tStr & tStrEnd Function 在窗體上畫—個名稱為Text1的文本框和—個名稱為Command1的命令按鈕，然后編寫如下的事件過程：Private Sub Command1_ Click() Dim S1 String S1="ABCDEF" Text1.Text=LCase(Fun(S1))End Sub 程序運行后，單擊命令按鈕，文本框中顯示的是 ______。
A．ABCDEF
B．a(chǎn)bcdef
C．defdef
D．defabc
正確答案：C解析：Mid(字符串，p，n)：從第p個字符開始，向后截取n個字符。p和n都是算術(shù)表達式?！?amp;”：字符串連接運算符，將兩個字符串按順序連接起來。LCase(字符串)：將字符串所有的字母都轉(zhuǎn)換成小寫字符。Len(字符串)：返回字符串的長度。由LCase可知，最后結(jié)果為小寫字符串，可排除選項A。當Fun過程用語句Fun(S1)調(diào)用后，S1的值“ABCDEF”被賦給xStr，執(zhí)行第一次循環(huán)時Mid(xStr,i+1，1)相當Mid(xStr,4，1)，此時tStr=D，執(zhí)行第二次循環(huán)時Mid(xStr
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。