关于考试系统多选题无法核对答案及正确计算

lvhq76

近期参考网上的这个考试系统修改了一下，但多选题无法核对答案及正确计算，哪位高手帮忙看看？
　　目前单选，判断没问题，
　　但多选在提交卷后统计不正确
以下看看哪　有问题？
If bxt > 0 Then
ss = 0

For i = 1 To bxt
jj = 1
For j = 1 To 4
If j = 1 Then qq = "A、"
If j = 2 Then qq = "B、"
If j = 3 Then qq = "C、"
If j = 4 Then qq = "D、"
ss = ss + 1
With Sheet3.Cells(i + axt, 7)
Set c = .Find(arr(i + axt, j + 1))
Controls("CheckBox" & ss).Locked = True

If Not c Is Nothing Then
Controls("CheckBox" & ss).Font.Bold = True

If Controls("CheckBox" & ss).Value = True Then

'da = da & qq '答案叠加

jj = jj * 1

Else
Controls("CheckBox" & ss).ForeColor = &HFF&
jj = jj * 0
End If
Else
If Controls("CheckBox" & ss).Value = True Then
jj = jj * 0
Controls("CheckBox" & ss).ForeColor = &HFF&
End If
End If
End With
Next j

ZF = ZF + jj
Next i
End If

chxw68

这个考试系统做的非常好！

lvhq76

以上代码改成如下，但是若没有选择就标准答案不像单选那样显示为黑色，而是显示红色了。什么原因？
If bxt > 0 Then
   ss = 0

  For i = 1 To bxt
      jj = 1
   For j = 1 To 4
     If j = 1 Then qq = "A、"
     If j = 2 Then qq = "B、"
     If j = 3 Then qq = "C、"
     If j = 4 Then qq = "D、"
        ss = ss + 1
Controls("CheckBox" & ss).Locked = True
       dxda = InStr(arr(i + axt, 6), qq) '多选答案查找核对
      
       If dxda > 0 Then
          Controls("CheckBox" & ss).Font.Bold = True

           If Controls("CheckBox" & ss).Value = True Then
              Controls("CheckBox" & ss).Locked = True
           
               jj = jj * 1
            Else
                Controls("CheckBox" & ss).ForeColor = &HFF&
                 jj = jj * 0
           End If
      Else
         Controls("CheckBox" & ss).ForeColor = &H80000012
           If Controls("CheckBox" & ss).Value = True Then
              Controls("CheckBox" & ss).ForeColor = &HFF&
              jj = jj * 0
           End If
         
    End If
Next j
ZF = ZF + j
Next i
End If