|
近期参考网上的这个考试系统修改了一下,但多选题无法核对答案及正确计算,哪位高手帮忙看看?
目前单选,判断没问题,
但多选在提交卷后统计不正确
以下看看哪 有问题?
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
|
|