下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pa

下列程序的执行结果为

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．abcdef

B．afbecd

C．fedcba

D．defabc

B解析：主调函数最终输出值是Pat(FirStr)过程的返回值，这就需要调用函数过程Pat。被调过程Pat的参数xStr从主调函数中收到实参FirStr传来的值“abcdef”，过程Pat开始声明了两个变量：一个是String型的tempStr；一个是Integer型的strLen。语句tempStr=""。strLen=Len(xStr) 以上两条语句的功能是：为变量tempStr赋空值，变量strLen的值就是xstr的长度，此题为6。程序代码执行Do While…Loop的循环语句：第1次循环结