以下程序段的功能为，输入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______Then
s = s + 1
End If
Next j
______
Next i
End Sub

原始记录的登机制度能保证绩效管理信息的有效性和可靠性，它要求______

A．说明材料的来源

B．以图像记录为依据

C．应包括有利和不利的记录

D．详细记录事件的时间、地点和参与者

E．尽可能对行为的过程、环境和结果做出说明