学进去

货轮在装载货物时，不相容的物品不能装在一只箱子中。比如酸类腐蚀物品不宜和碱类腐蚀物品混装，否则容易造成事故。物品不相容关系用下图所示：

每一种货物用一个整数编号表示，如第i物品和第j物品不相容，则表第i行j列和第j行i列的值均为1。如1号物品和3号物品不相容，则表中第1行第3列，第3行第1列的值均为1。小明设计了一个VB程序检查n张货物装箱清单是否合理（检查每张装箱单中是否有不相容的物品）。数组a依次存储各装箱清单中的物品编号（1~m的整数），每张清单的物品数量依次存储在数组b中。如b(1)=3，表示第1张装箱清单有3件物品。
请回答下列问题：
（1）如物品不相容关系如图所示，有3张装箱清单，b(1)=3，b(2)=3，b(3)=4，数组a的值依次是6,2,3,1,4,3,4,2,5,1 ,则不合理的清单数量是_______（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 20, m =10        '清单数量n，物品种类m
Dim a(1 To 500) As Intger   
Dim b(1 To n) As Integer
Dim c(1 To m) As Integer   'c数组中初值为0
Dim f(1 To m * m) As Integer
Private Sub Form_Load()

'读取各装箱清单中的物品编号存入a数组，每张清单的物品数量存入b数组

'按物品不相容的关系，初始化f(1)~f(m*m)，代码略
End Sub
Private Sub Command1_Click()
     Dim i As Integer, p As Integer, k As Integer
     Dim flag As Boolean
     For i = 2 To n
          b(i) = ________            '计算到第i张装箱清单的累计物品数量
     Next i
     p = 1: flag = True: k = 1
     Do While p <= b(n)
        If c(a(p)) = 0 Then
             For i = 1 To m
                    If _________ Then c(i) = 1
             Next i
        Else
             List1.AddItem "第" + Str(k) + "张清单不合理"
             flag = False
        End If
        If _______ Then
             k = k + 1
             For i = 1 To m
                 c(i) = 0
             Next i
             If Not flag Then
                 p = b(k - 1)
                 flag = True
             End If
        End If
        p = p + 1
     Loop
End Sub