![[填空题] 以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。Private Sub Command1_Click () Dim a(1](http://www.mshxw.com/aiimages/31/256786.png "[填空题] 以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。Private Sub Command1_Click () Dim a(1")
[填空题] 以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。
Private Sub Command1_Click ()
Dim a(1 To 8), b(1 To 8)
For i = 1 To 8
a(i) = InputBox("请输入")
Print a(i)
Next i
Print
For i = 1 To 8
s = 1
For j = 1 To 8
If 【6】 Then
s = s + 1
End If
Next j
【7】
Next i
End Sub
参考答案：
a(i)＞a(j) b(s)=a(i)问题解析:
首先通过InputBox语句输入8个数给数组a。将数组a中的每个元素按顺序与其余 9个元素比较。例如对元素a(1)，如果有n个元素小于该元素，则该元素赋值给数组b中的b(n +1)。
