Question

VB 中字符串反顺序输出问题（strreverse）

Private Sub Command1_Click()
Dim i As Integer, str2 As String
Dim t As String
u = "6665686770697271747376757877"
For i = 1 To (Len(u)) Step 2
t = (Mid((u), i, 2))
str2 = (str2 & (Chr(t)))
Next
Text2 = str2
End Sub

结果：
Text2="BADCFEHGJILKNM"
请问怎么样才可以编程以下的呢？
Text2="ABCDEFGHIJKLMN"
Private Sub Command1_Click()
Dim i As Integer, str2 As String
Dim t As String
Dim i1 As Integer, str3 As String
Dim t1 As String
u = "6665686770697271747376757877"
For i = 1 To (Len(u)) Step 2
t = (Mid((u), i, 2))
str2 = (str2 & (Chr(t)))
Next
p = str2
For i1 = 1 To (Len(p)) Step 2
t1 = (Mid((p), i1, 2))
str3 = (str3 & (StrReverse(t1)))
Next
Text2 = str3
End Sub
这样可以了，但有没有简化一点的？

Answer 1

仔细看一下u的内容，本来出来的就应该是 "BADCFEHGJILKNM"
如果楼主一定要出现按顺序的结果的话，就是对上方的字符进行重新排序了

追问

不是的，U 的值是例题，U 的作用读数据的...

追答

都一样的，如果是读取的值，那在 转换成字符的时候，可能就不一定是 ABCD 了，对吧？也可能没有A，或者没有B。如果想按顺序输出的话，对 u 进行分段取值后，直接按数值顺序先输出，然后再转换成字符输出

追问

这个我不懂，麻烦将例题写出啦，谢谢！！！