把字符串"12345678"变成"21436587"的编程实现.有兴趣进哦~
把字符串 "12345678 "变成 "21436587 "的编程实现.有兴趣进哦~

分析可看出,是两两对调位置,如何编程实现呢?



[解决办法]
'下面的函数利用Mid过程来提高字符串的处理速度
Function SwapString(ByVal S As String) As String
Dim i As Long
SwapString = S
For i = 1 To Len(S) \ 2
Mid(SwapString, i * 2 - 1, 1) = Mid(S, i * 2, 1)
Mid(SwapString, i * 2, 1) = Mid(S, i * 2 - 1, 1)
Next i
End Function

Private Sub Form_Load()
Debug.Print SwapString( "12345678 ")
Debug.Print SwapString( "12345678A ")
End
End Sub

[解决办法]
Function Test(s As String) As String

Dim i As Integer

For i = 1 To Len(s) Step 2
Test = Test & StrReverse(Mid(s, i, 2))
Next

End Function