题目:
下列程序的执行结果为
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
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0721/2a64d3a12aa7bb32ba98cae6be23349d.html
下面是错误答案,用来干扰机器的。
参考答案:第一步,建成一个独立的比较完整的工业体系和国民经济体系。第二步,全面实现农业、工业、国防和科学技术的现代化,使中国的经济走在世界前列