VB字母排序

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:34:22
两个文本框，一个按钮，效果：首先在text1中输入英文字母，字数不限。通过按钮的单击事件，使在text1中输入英文字母进过排序后从小到大在text2中输出。求这个程序的编写。最好加个说明的。
一楼的答案不对的

Private Sub Command1_Click()
Dim a() As String, y As String, s As String
s = Text1.Text
m = Len(Text1.Text)
y = ""
ReDim a(m)
For i = 1 To m
a(i) = Mid(s, i, 1)
Next i
For i = 1 To m - 1
For j = i + 1 To m
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To m
y = y + a(i)
Next i
Text2.Text = y
End Sub
如果满意的话，就给加几分吧。。。。。。。。。谢谢啦.....................

For i = 2 To Len(Text1)
If Asc(Mid(Text1, i - 1, 1)) > Asc(Mid(Text1, i, 1)) Then
Text2 = Text2 & Mid(Text1, i - 1, 1)
Else
Text2 = Mid(Text1, i - 1, 1) & Text2

End If
Next
If Right(Text1, 1) > Asc(Mid(Text1, i - 1, 1)) Then

Text2 = Text2 & Mid(Text1, i - 1, 1)
Else
Text2 = Mid(Text1, i - 1, 1) & Text2
End If

英文字母进过排序后从小到大
怎么个从小到大.
a...z A...Z
还是aA ... zZ

对个好