各位大虾用vb怎么能把１２３４５６转换成５４６２１３呢？就是说在地一个眶里输入１２３４５６然后确定就在第二个匡里显示５４６２１３．帮帮我这个菜鸟吧谢了！最好能给个原码研究一下

怎么没人回答？自己顶！在顶！在在顶！

text2=strreverse(text1)

楼上的没看清题吧,是转成546213啊,不是反转

这个问题问的实在....没有任何条件,只说要转换
我看你就这么写吧:
Private Sub Command1_Click()
Text2.Text="546213"
End Sub
反正你只要转成这样嘛,又没说什么规则

Option Explicit

Private Sub Command1_Click()
Dim strDemo As String
strDemo = Trim(Text1.Text)
If Len(strDemo) > 6 Or Len(strDemo) < 1 Then
MsgBox ("请输入6个数")
Else
Dim LeftString As String
Dim RightString As String
Dim t As String
Dim strArray(1 To 3) As String
LeftString = Left(strDemo, 3)
RightString = Right(strDemo, 3)
t = Left(LeftString, 1)
Mid(LeftString, 1, 1) = Mid(LeftString, 2, 1)
Mid(LeftString, 2, 1) = t

t = Left(RightString, 1)
Mid(RightString, 1, 1) = Mid(RightString, 2, 1)
Mid(RightString, 2, 1) = t
Text2.Text = RightString & LeftString
End If
End Sub

非常感谢，还有个问题没弄明白，就是比如１２３４５６７８转换成３**Ｐ４－３**５*－１**２Ｉ－Ｄ８３*Ｃ，这里的３就是前边８为数的地三位４就是８为数的地四为，别的以次类推，*表示可以是任意的数字，字母是不变的字母的位置也是不边的．比如５２１０７８３９转换成３**Ｐ０－１**０*－５**２Ｉ－Ｄ９８*Ｃ．我弄很久没弄出来（因为太菜了）恳求大家和版主帮帮我，要是能给出代码研究就更好了．谢谢谢谢了

晕！是１２３４５６７８转换成７**Ｐ４－３**５*－１**２Ｉ－Ｄ８６*Ｃ上边的写错了

帖子写错了，是１２３４５６７８转换成７**Ｐ４－３**５*－１**２Ｉ－Ｄ８６*Ｃ，７就是前边８为数字的地７为数字，４就是８位数字的地４位数字，就是８位数字的地３为数字，别的一样的顺序．*表示可以是任何一个数字，别的英文字母是不变的总是那些字母，
比如在第一个诓里输入２８５６３４９７　
按确定在第二个诓里显示9**P6-5**3*-2**8I-D74*C
就是这样的顺序，大家帮帮我哦，给个代码让我这个菜鸟学习一下谢谢！

???????????