谁能帮我修改一下填空题 提交答案 命令

ccfyl 发表于: 2013-3-08 09:37 来源: 扑奔PPT网

ccfyl 发表于 2013-3-08 10:43:17

Private Sub CommandButton1_Click()
    Dim ex
    If Trim(TextBox1.Text) = "多" And Trim(TextBox2.Text) = "洗涤" And Trim(TextBox3.Text) = "生出枝蔓" And Trim(TextBox4.Text) = "隐居的人" And Trim(TextBox5.Text) = "立" And Trim(TextBox6.Text) = "亲近而不庄重" And LTrim(TextBox7.Text) = "少" And Trim(TextBox8.Text) = "应当" Then
        ex = MsgBox("真棒！你答对了！", vbOKOnly)
    ElseIf LTrim(TextBox1.Text) = "多" Then
    ex = MsgBox("第1个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox2.Text) = "洗涤" Then
    ex = MsgBox("第2个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox3.Text) = "生出枝蔓" Then
    ex = MsgBox("第3个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox4.Text) = "隐居的人" Then
    ex = MsgBox("第4个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox5.Text) = "立" Then
    ex = MsgBox("第5个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox6.Text) = "亲近而不庄重" Then
    ex = MsgBox("第6个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox7.Text) = "少" Then
    ex = MsgBox("第7个填对了，继续努力吧！", vbOKOnly)
    ElseIf LTrim(TextBox8.Text) = "应当" Then
    ex = MsgBox("第8个填对了，继续努力吧！", vbOKOnly)
        Else: MsgBox ("太遗憾了，都错了，加油！")
    End If

End Sub

Private Sub CommandButton2_Click()    '重做按钮

    TextBox1.Value = " "
    TextBox2.Value = " "
    TextBox3.Value = " "
    TextBox4.Value = " "
    TextBox5.Value = " "
    TextBox6.Value = " "
    TextBox7.Value = " "
    TextBox8.Value = " "
   
End Sub

Private Sub CommandButton3_Click()

    TextBox1.Value = "多"
    TextBox2.Value = "洗涤"
    TextBox3.Value = "生出枝蔓"
    TextBox4.Value = "隐居的人"
    TextBox5.Value = "立"
    TextBox6.Value = "亲近而不庄重"
    TextBox7.Value = "少"
    TextBox8.Value = "应当"
   
End Sub



请高手帮我修改一下吧。急等！

killtwd 发表于 2013-3-10 13:36:27

这个好难哦~不会耶~帮顶下~

yixiao9999 发表于 2013-3-18 22:16:22

如果第一个是正确的，那么代码执行到“ex = MsgBox("第1个填对了，继续努力吧！", vbOKOnly)”就结束了，后面的就不会再提示了。
能否换一种思路，比如对的显示“对”，可能会更容易实现。

amwyq 发表于 2013-4-06 00:47:23

if怎么用？