vb 数值大小判断

来源：百度知道 编辑：UC知道 时间：2024/05/27 18:34:44
有10个大小不同的数字，要求将10个数字按大小排列后打印出来。
VB代码怎样写？

Private Sub Form_Click()
Dim A(1 to 10) as integer
for i=1 to 10
A(i)=Int(Rnd*1000)
Next
For i=1 to 10
For j=i to 10
If A(i)<A(j) Then
T=A(i)
A(i)=A(j)
A(j)=T
End If
Next
Print A(i);
Next
End Sub

冒泡排序法

For i = 1 To m - 1
For j = 1 To m - i
If (Bobo(j) > Bobo(j + 1)) Then
tem = Bobo(j)
Bobo(j) = Bobo(j + 1)
Bobo(j + 1) = tem
End If
Next j
Next i