编名为sort 的Sub过程，功能是将一整型数组按升序排序。

来源：百度知道 编辑：UC知道 时间：2024/06/30 04:44:47
编写一个名为sort 的Sub过程，其功能是将一整型数组按升序排序。在某一事件过程中随机产生20个互不相同的数组(元素值在100－800之间)，调用sort过程将该数组排序，并输出结果。要求：排序结果的输出在调用程序中完成。
大哥些 帮帮忙 越快越好赶时间！把程序写出来就可以了。

窗体上放上一个按钮,还有一个文本框(设置其MultiLine属性为True)
然后贴入以下代码

Option Explicit

'定义一个全局数组,用以存放排序前和排序后的数值
Dim Num(10) As Integer

'这是冒泡排序法
Sub Sort()
Dim i As Integer, j As Integer, tmp As Integer
For i = 1 To 10
For j = 1 To 10 - i
If Num(j) > Num(j + 1) Then
tmp = Num(j)
Num(j) = Num(j + 1)
Num(j + 1) = tmp
End If
Next
Next
End Sub

'点击按钮后按升序排列
Private Sub Command1_Click()
Dim i As Integer
Sort
Text1.Text = "排序后"
For i = 1 To 10
Text1.Text = Text1.Text & vbCrLf & Num(i)
Next
End Sub

'初始化的时候随机给出100~800范围的数值
Private Sub Form_Load()
Dim i As Integer
Text1.Text = "排序前"
Randomize
For i = 1 To 10
Num(i) = Rnd() * 700 + 100
Text1.Text = Text1.Text & vbCrLf & Num(i)
Next
End Sub