[單項(xiàng)選擇題] 下列程序的執(zhí)行結(jié)果為

Private Sub Command1_Click( )

Dim FirStr As String

FirSt = "abcdef"

Print Pat(FirStr)

End Sub

Private Function Pat( xStr As String) As String

Dim tempStr As String, strLen As Integer

tempStr =""

strLen = Len(xStr)

i=1

Do While i＜=Len(xStr)-3

tempStr = tempStr + Mid(xStr, i, 1 ) + Mid(xStr, strLen - i + 1, 1 )

i=i+1

Loop

Pat = tempStr

End Function

A．a(chǎn)bcdef

B．a(chǎn)fbecd

C．fedcba

D．defabc

B

主調(diào)函數(shù)最終輸出值是Pat (FirStr)過程的返回值，這就得調(diào)用函數(shù)過程Pat。被調(diào)過程Pat的參數(shù)xStr從主調(diào)函數(shù)中收到實(shí)參 FirStr傳來的值“abcdef”，過程Pat開始聲明了兩個(gè)變量，一個(gè)是String型的tempStr，一個(gè)是Integer型的 strLen。語(yǔ)句tempStr=" "。 strLen；Len(xStr) 以上兩條語(yǔ)句的功能是：為變量tempStr賦空值，變量strLen的值就是xstr的長(zhǎng)度，此題為6。程序代碼執(zhí)行Do While…Loop的循環(huán)語(yǔ)句：第1次循環(huán)結(jié)束后，tempStr=“af”； 第2次循環(huán)，i=2，i＜=3成立，繼續(xù)執(zhí)行循環(huán)體， tempStr=“afbe”； 第3次循環(huán)，i=3，i＜=3成立，繼續(xù)執(zhí)行循環(huán)體， tempStr=“atbecd”； 第4次循環(huán)，i=4，i＜=3不成立，則跳出循環(huán)體，執(zhí)行語(yǔ)句Pat=tempStr。所以最終Pat(FirStr)=“afb ecd”。