有如下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行显示的内容为（    ）

A、1 5

B、3 7

C、2 5

D、4 7