把随机产生的十个数排序。
Public Class Form1
Dim a(9) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click
Label1.Text = ""
Label2.Text = ""
Dim t As Integer
For i = 0 To 9
a(i) = Int(Rnd() * 90 + 10) '随机产生十个数
Label1.Text = a(i) & " " & Label1.Text '显示
Next
For n = 0 To 8
For i = 0 To 8 - n
If a(i) > a(i + 1) Then
t = a(i + 1)
a(i + 1) = a(i) : a(i) = t
End If
Next
Label2.Text = a(1 + n) & " " & Label2.Text
Next
Label2.Text = Label2.Text & a(0)
End Sub
End Class

没人吗？？

Public Class Form1
Dim a(9) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click
Label1.Text = ""
Label2.Text = ""
Dim t As Integer
For i = 0 To 9
a(i) = Int(Rnd() * 90 + 10) '随机产生十个数
Label1.Text = a(i) & " " & Label1.Text '显示
Next
For i = 0 To 8
For j = i To 0 Step -1
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
Else
Exit For
End If
Next
Next
For i = 0 To 9
Label2.Text = Label2.Text & a(i) & " "
Next
End Sub
End Class

数组应该都有sort这个方法吧，直接用就是了不用自己实现。