7,763
社区成员
发帖
与我相关
我的任务
分享如何把字符串进行奇偶对换呢？
比如我要把"12345678"换成"21436587"，或者把"abcdef"换成"badcfe"，有什么好的方法？
...全文
请发表友善的回复…
发表回复
likesome 2003-12-01
- 打赏
- 举报
rainstormmaster：我第一次知道
MID还有这个用法，如果是我也是用 mmcgzs(毛毛虫)的方法
其实这个问题的本身并不难
MID还有这个用法，如果是我也是用 mmcgzs(毛毛虫)的方法
其实这个问题的本身并不难
kmzs 2003-12-01
- 打赏
- 举报
用Mid呀！
mingtian2008 2003-12-01
- 打赏
- 举报
up
mmcgzs 2003-12-01
- 打赏
- 举报
Private Sub Command1_Click()
On Error Resume Next
Dim s As String
s = "123456789"
ss = ""
For i = 1 To Len(s) Step 2
ss = ss & Mid(s, i + 1, 1) & Mid(s, i, 1)
Next
MsgBox ss
End Sub
On Error Resume Next
Dim s As String
s = "123456789"
ss = ""
For i = 1 To Len(s) Step 2
ss = ss & Mid(s, i + 1, 1) & Mid(s, i, 1)
Next
MsgBox ss
End Sub
Neoking 2003-12-01
- 打赏
- 举报
高，实在是高！叫我做我就用那种麻烦的做法了！你居然能用MID函数，佩服！！真的！！不愧是高手！
rainstormmaster 2003-12-01
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
On Error Resume Next
Dim s As String
s = "123456789"
Dim s1 As String
s1 = s
Dim i As Long, j As Long
For i = 1 To Len(s) Step 2
j = i + 1
Mid(s, j, 1) = Mid(s1, i, 1)
Mid(s, i, 1) = Mid(s1, j, 1)
Next
MsgBox s
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim s As String
s = "123456789"
Dim s1 As String
s1 = s
Dim i As Long, j As Long
For i = 1 To Len(s) Step 2
j = i + 1
Mid(s, j, 1) = Mid(s1, i, 1)
Mid(s, i, 1) = Mid(s1, j, 1)
Next
MsgBox s
End Sub
