下面的程序是使用选择法对数组进行升序排列,请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim iA(1 To 10) n = 6 iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7 For i = 1 To n - 1 ' 进行n-1遍比较 iMin = i ' 对第i遍比较时,初始假定第i个元素最小 For ________________ ' 在数组 i~n个元素中选最小元素的下标 If _________________Then iMin = j Next j t = iA(i) 'i~n个元素中选出的最小元素与第i个元素交换 iA(i) = iA(iMin) iA(iMin) = t Next i End Sub