VB考试一道题目求大神解决

Question

下列程序的功能是利用比较法实现数组中数据元素的排序，请在？处添加代码，将程序补充完整。（9分）
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i%, j%, t%
Randomize
For i = 1 To 10
a(i) = Int(200 * Rnd) + 100
List1.AddItem a(i)
Next i
’考生在下面编写程序，实现比较法排序
？
’编写完成
For i = 1 To 10
List2.AddItem a(i)
Next i
End Sub

Answer 1

for i=1 to 9
 for j=1 to 10 -i
  if a(j)>a(j+1) then
   t=a(j):a(j)=a(j+1):a(j+1)=t
  end if
 next j
next i