题目内容:
下列程序的执行结果为 PrivateSubCommand1_Click()
DimFirStrAsString
FirStr="abcdef"
PrintPct(FirStr)
EndSub
PrivateFunctionPct(xStrAsString)AsString
DimtempStrAsString,strLenAsInteger
tempStr=""
strLen=Len(xStr)
i=1
DoWhilei<=Len(xStr)-3
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
i=i+1
Loop
Pct=tempStr
EndFunction( )。 A.abcdef
B.afbecd
C.fedcba
D.defabc
参考答案:
答案解析: