这个应该很好做呀,把考试页面设计好之后,最后或最前添加一个CommandButton按钮,考生答完之后点击CommandButton时,在“thisdocument”的事件:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton1.Value = True Then
’做判断,给分或给提示
End If
End Sub
如果想让考生在每答一题后就给出答案,并提示考生,那就在相应的事件:
Private Sub OptionButton1_Click()
‘做判断
End Sub