vb中怎样分别用选择法和冒泡法分别对100个随机数进行递增排序?

Private Sub Command1_Click()
Dim a(1 To 100) As Integer
For i = 1 To 100
Randomize
a(i) = Int(Rnd * 900 + 100) '产生100至999之间的整数
Next i
For i = 1 To 99
Dim t As Integer
t = i
For j = i + 1 To 100
If a(t) > a(j) Then t = j '找出最小数的下标
Next j
b = a(i): a(i) = a(t): a(t) = b '交换两数的值
Next i
For i = 1 To 100 '输出排序后数组
Print a(i);
If i Mod 10 = 0 Then Print '如果一行输出达十个,换行输出
Next i
End Su