VB中的五个数字排序···

来源：百度知道 编辑：UC知道 时间：2024/07/05 07:36:09
VB中的五个数字排序···先开始
class1，class2，class3，class4，class5分别对应一个数字最后排序，但是结果还要相对应，其结果就要象这样一样～～
class2<class5<class3<class1<class4这样的～～
急求～～～在线等～～谢谢～～

Option Explicit
Dim Class(5) As Single
Dim A(5) As String
Dim B As String
Dim I As Byte, J As Byte
Private Sub Form_Load()
Form1.AutoRedraw = True
A(1) = "class1"
A(2) = "class2"
A(3) = "class3"
A(4) = "class4"
A(5) = "class5"
For I = 1 To 5
Class(I) = Val(InputBox("输入第" & I & "个数字:", "输入", 0))
Next
For I = 1 To 4
For J = I + 1 To 5
If Class(I) > Class(J) Then
Class(0) = Class(I)
A(0) = A(I)
Class(I) = Class(J)
A(I) = A(J)
Class(J) = Class(0)
A(J) = A(0)
End If
Next
Next
For I = 1 To 4
Print Class(I); "<";
Next
Print Class(5)
For I