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