填空题： 以下程序段的功能为，输入8个数给数组a,然后采用插入排序算法，将数组a中的数按照升序排列存入数组b中。请填空。Private Sub Command1_Cli

以下程序段的功能为，输入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