下列程序的执行结果为
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

题库:计算机等级考试 类型:最佳选择题 时间:2017-07-03 15:19:53 免费下载:《单项选择》Word试卷

下列程序的执行结果为
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.aPDecd
C.fedcba
D.defabc

本题关键词:行为结果,行为结果评价,道德行为效果,竣工结算程序,执业资格行为,行政诉讼程序,结果,工程行为识别,行为过程评价,序列关系;