设计一个VB程序，将数组元素排序

来源：百度知道 编辑：UC知道 时间：2024/05/29 07:04:33
1.数组随机输入,其数组元素的值和个数亦随机确定

2.要求用两个text,其中一个用来输入数组元素，另一个用来输出排序好的数组元素，还有一个命令按钮。

Private Sub Command1_Click()
Dim A()
Dim N As Integer
Randomize
N = Int(5 * Rnd) + 5 'N的范围为：5~9 ,是生成随机数的个数
ReDim A(N)
For i = 1 To N
A(i) = Int(Rnd * 900) + 100 '随机的三位整数
Next
Text1.Text = Trim(Join(A, " "))
For i = 1 To N
For j = i + 1 To N
If A(i) > A(j) Then
t = A(i)
A(i) = A(j)
A(j) = t
End If
Next
Next
Text2.Text = Trim(Join(A, " "))
End Sub

看不出来是一个题，还是两个题目。
按一个题目做吧。
Private Sub paixu(x() As Single)
For i = 0 To UBound(x) - 1
For j = i + 1 To UBound(x)
If x(i) > x(j) Then
t = x(i)
x(i) = x(j)
x(j) = t
End If
Next j
Next i
End Sub

Private Sub Command1_Click()
Dim a
a = Split(Text1, ",")
paixu a()
Text2