有如下VB程序段
Dim a(1 To 8) As Integer, b(1 To 8) As Integer
a(1)=1: a(2)=2: a(3)=3: a(4)=2: a(5)=1:a(6)=4:a(7)=3: a(8)=5
b(1)=5:b(2)=3:b(3)=5:b(4)=9:b(5)=7:b(6)=7:b(7)=7:b(8)=6
n=8
For i=1 To n-1
For j=n-1 To i Step-1
If a(j)*b(j+1)<a(j+1)*b(j)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j) =b(j+1):b(j+1)=t
End If
Next j
Next i
For i=1 To 8
List1.AddItem str(a(i))+" "+str(b(i))
Next i
运行该程序段后,列表框List1第5行显示的内容为( )