填空题下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
Sub GASR()
Dim m
m=Array(10，1，5，6，7)
For i=0 To 3
For j= 1
If m(i) ＞=m(j) Then
2
m(i) =m(j)
m(j) =t
End If
Next j
3
For i=0 To 4
Print m(i)
Next i
End Sub

【正确答案】

【答案解析】i + 1 To 4
t = m(i)
Next i [解析] 考核考生对循环控制结构和条件控制语句综合运用的能力。
本题考查冒泡法的程序，就是拿前面的数与后面的数比较，如果前面的数大于后面的就互换，反之什么也不做，依次类推，最小的将在前面，最大的在后面，有序排列。
用冒泡法数据按降序排列。