求将文本框中的数字按升序和降序排列并显示在文本框中的代码

Question

求将文本框中的数字按升序和降序排列并显示在文本框中的代码

Answer 1

Dim Arr()
Private Sub Command1_Click() '冒泡排序---降序
Line:
j = 0
For i = 0 To UBound(Arr) - 2
If Arr(i) < Arr(i + 1) Then
x = Arr(i)
y = Arr(i + 1)
Arr(i) = y
Arr(i + 1) = x
j = j + 1
Else
j = j + 0
End If
Next
If j > 0 Then
GoTo Line
End If
For i = 0 To UBound(Arr) - 1
S = S & CStr(Arr(i)) & ","
Next
Text1.Text = S
End SubPrivate Sub Form_Load()
Arr = Array(32, 45, 78, 24, 4, 9, 10, 10, 26, 23, 44)
vstr = ""
For i = 0 To UBound(Arr) - 1
vstr = vstr & Arr(i) & ","
Next
Text1.Text = Left(vstr, Len(vstr) - 1)
End Sub
Private Sub Command2_Click() '冒泡排序---升序
Line:
j = 0
For i = 0 To UBound(Arr) - 2
If Arr(i) > Arr(i + 1) Then
x = Arr(i)
y = Arr(i + 1)
Arr(i) = y
Arr(i + 1) = x
j = j + 1
Else
j = j + 0
End If
Next
If j > 0 Then
GoTo Line
End If
For i = 0 To UBound(Arr) - 1
S = S & CStr(Arr(i)) & ","
Next
Text1.Text = S
End Sub