下面的程序是使用冒泡法对数组进行排序,请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim iA(0 To 10) n = 6 iA(0) = 8: iA(1) = 6: iA(2) = 9: iA(3) = 3: iA(4) = 2: iA(5) = 7 For i= 1 To n - 1 ' 进行n-1遍比较 ' 对第i遍比较时,大数沉底 For _______________ ' 在数组 i~n个元素中选最小元素的下标 If _______________ Then t = iA(j) iA(j) = iA(j + 1) iA(j + 1) = t End If Next j End Sub