下列程序的執(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ù)中收到實參FirStr傳來的值“abcdef”，過程Pat開始聲明了兩個變量：一個是String型的tempStr；一個是Integer型的strLen。語句tempStr=""。strLen=Len(xStr) 以上兩條語句的功能是：為變量tempStr賦空值，變量strLen的值就是xstr的長度，此題為6。程序代碼執(zhí)行Do While…Loop的循環(huán)語句：第1次循環(huán)結(jié)