律诗、绝句平仄都有（）。

下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823) For i = 【5】 For j = 【6】 If a(i) 【7】 a(j) Then al = a(i) a(i) = a(j) a(j) = al End If Next jNext iFor i = 1 To 10 Print a(i)Next i End Sub