怎么将一串数字两两对调？

Question

怎么将一串数字两两对调？
就是把手机号两两对调。不足位补F。
如：13431236547变换为3134216354f7
我编出来的只能是把它变成31342163547，少那个f.
这个是我编的，谁帮我改改。谢谢。
Dim str, outstr       As String
  Dim length     As Integer
  Dim i     As Integer
  str = Text1
  length = Len(str)
  outstr = ""
  For i = 1 To length / 2
      outstr = outstr & Mid(str, i * 2, 1)
      outstr = outstr & Mid(str, i * 2 - 1, 1)
  Next
   Text2 = outstr

Answer 1

if length  mod 2 <>0 then
str=str & "f"
end if
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

    dim s as string
    dim i as long
    const length as long=12
    
    s="13431236547"
    s=mid(s & "f",1, length)
    for i=1 to length step 2
        mid(s,i,2)= strreverse(mid(s,i,2))
    next
    debug.? s