A.ABCDEF
B.FEDCBA
C.A
D.F
第1题
第2题
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ) ABCDEF
B ) FEDCBA
C ) A
D ) F
第3题
A.abcdef
B.afbecd
C.fedcba
D.defabc
第4题
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
第5题
A.abcdef
B.afbecd
C.fedcba
D.defabc
第6题
A.abcdef
B.aPDecd
C.fedcba
D.defabc
第7题
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
第8题
A.abcdef
B.afbecd
C.fedcba
D.defabc
第10题
A.abcdef
B.afbecd
C.fedcba
D.defabc
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!