如何VB制作答题器小软件？

来源：百度知道 编辑：UC知道 时间：2024/09/22 03:54:26
就是建立一个窗口 上面有问题，和选项。选择正确答案后弹出正确，选择错误的就弹出错误窗口，正确后进入下一个窗口答题。以此类推。
写一下代码，谢谢！

先建一个frame！

建四个CheckBox,

分别是CheckBox1，CheckBox2，CheckBox3，CheckBox4，把Caption修改成你的答案！

假设把正确答案写在CheckBox2

则在CheckBox1，CheckBox3，CheckBox4里写入语句

Private Sub Check1_Click()

  If Check1.Value = 1 Then

  MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"

  End If

End Sub

Private Sub Check3_Click()

  If Check3.Value = 1 Then

  MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"

  End If

End Sub

Private Sub Check4_Click()

  If Check4.Value = 1 Then

  MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"

  End If