用VB編程，隨機生成30個0至80的數，並排序（選擇法）

Dim i, j, t, a(1 To 30)

Cls

Randomize

Print "30個隨機數："

For i = 1 To 30

a(i) = Int(81 * Rnd)

Print a(i);

If i Mod 10 = 0 Then Print

Next

Rem 用選擇法排序

For i = 1 To 29

For j = i + 1 To 30

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

Print "從大到小排序後："

For i = 1 To 30

Print a(i);

If i Mod 10 = 0 Then Print

Next

End Sub