下面程序的功能是对具有 10 个元素的数组 a 中的元素进行选择法排序,由小到大排序,阅读填空。 Option base 1 Private Sub Form_Click() Dim a(10) As Integer,i As Integer,j As Integer Dim k As Integer 'k变量代表数组元素存放的位置,即下标 For i=1 To 10 a(i)=InputBox(" 请输入一个数组元素值 ") Next i For i=1 To 9 'i循环变量代表,共需要进行几轮排序 For j=i+1 To 10 'j循环变量代表,每一轮需要进行几次比较 If Then k=j Next j If k<>i Then t=a(k) : : a(i)=t End If Next i For i=1 To 10 Print a(i) ; Next i End Sub