以下程序段的功能为,输入8个数给数组a,然后采用插入排序算法,将数组a中的数按照升序排列存入数组b中。请填空。Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8a(i) = InputBox("请输入") Print a(i) Next i Print For i = 1 To 8s = 1For j = 1
主观题
以下程序段的功能为,输入8个数给数组a,然后采用插入排序算法,将数组a中的数按照升序排列存入数组b中。请填空。Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8a(i) = InputBox("请输入") Print a(i) Next i Print For i = 1 To 8s = 1For j = 1