VB 2005 求排序代码

来源：百度知道 编辑：UC知道 时间：2024/05/13 03:03:32
Visual Basic 2005 版本的代码
3个textbox,一个button,一个listbox.分别为textbox1,textbox2,textbox3, 然后有个按钮button1
点了按钮之后, listbox会出现把textbox1,2,和3里面的数值分别以从小到大的排列出来(0-9然后z-a,不需要中文字的排序)

急要! 谢谢
谢谢,完成后追加50分,感激!
有问题可加 QQ: 8963530

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim strS As String
Dim strM As String
Dim strL As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = TextBox1.Text
str2 = TextBox2.Text
str3 = TextBox3.Text
If str1 < str2 Then
strS = str1
strL = str2
Else
strL = str1
strS = str2
End If
If strS > str3 Then
strM = strS
strS = str3
End If
If strL < str3 Then
strM = strL
strL = str3
End If
ListBox1.Items.Add(strS)
ListBox1.Items.Add(strM)
ListBox1.Items.Add(strL)
End Sub

我建议就