在Word2003中使用Word

第9步，双击刚才添加的命令按钮，打开“Visual Basic编辑器”窗口，将判断对错的代码输入到Private Sub panduan1_Click()和End Sub代码中间。 以下是全部代码：
If DaAn1.Value = True And DaAn2.Value = False And DaAn3.Value = False And DaAn4.Value = True Then MsgBox "选对了，你真棒！", vbOKOnly, "结果" Else If DaAn1.Value = True And DaAn2.Value = True And DaAn3.Value = False And DaAn4.Value = False Or DaAn1.Value = True And DaAn2.Value = False And DaAn3.Value = True And DaAn4.Value = False Or DaAn1.Value = False And DaAn2.Value = True And DaAn3.Value = False And DaAn4.Value = True Or DaAn1.Value = False And DaAn2.Value = False And DaAn3.Value = True And DaAn4.Value = True Then MsgBox "你只选对了一个，继续加油！", vbOKOnly, "提示" Else MsgBox "很遗憾，你选错了，再思考一下！", vbOKOnly, "提示" End If End If 完成输入后关闭“Visual Basic编辑器”窗口，如图2008070709所示。 图2008070709 输入VBA代码 上述代码含义如下： （1）如果选择A和D且不选择B和C，则按下“判断正误”弹出消息框“选对了，你真棒！”； （2）如果选择A和B且不选择C和D，则按下“判断正误”弹出消息框“你只选对了一个，继续加油！”； （3）如果选择A和C且不选择B和D，则按下“判断正误”弹出消息框“你只选对了一个，继续加油！”； （4）如果选择B和D且不选择A和C，则按下“判断正误”弹出消息框“你只选对了一个，继续加油！”； （5）如果选择C和D且不选择A和B，则按下“判断正误”弹出消息框“你只选对了一个，继续加油！”； （6）如果选择B和C且不选择A和D，或选择了三项以上的选项，则按下“判断正误”弹出消息框“很遗憾，你选错了，再思考一下！”

最新评论