VB編程：輸入10個二位整數數組元素，用選擇法從小到大排序後輸出。

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

Picture1.Cls

Picture2.Cls

Randomize

'產生10個二位隨機整數，並在Picture1輸出

For i = 1 To 10

a(i) = Int(Rnd * 90) + 10

Picture1.Print a(i);

Next

'選擇法排序

For i = 1 To 9

j = i

For k = i + 1 To 10

If a(j) > a(k) Then j = k

Next

If i <> j Then

k = a(i)

a(i) = a(j)

a(j) = k

End If

Next

'在Picture2輸出排序後的數組

For i = 1 To 10

Picture2.Print a(i);

Next

End Sub