UC知道请vb高手帮忙看看这个程序！！！求求！！谢谢！！
来源：百度知道 编辑：UC知道 时间：2024/05/26 20:12:21
If TextBox8.Value = "报国无门" Or "壮志难伸" Or "内心痛苦" Then
ex = MsgBox("回答不够完整！", vbOKOnly, "提示")
ElseIf TextBox8.Value = "报国无门" And "壮志难伸" And "内心痛苦" Then
ex = MsgBox("答案完全正确！", vbOKOnly, "提示")
Else
ex = MsgBox("回答不正确！", vbOKOnly, "提示")
End If
想实现一道简答题的判断
ex = MsgBox("回答不够完整！", vbOKOnly, "提示")
ElseIf TextBox8.Value = "报国无门" And "壮志难伸" And "内心痛苦" Then
ex = MsgBox("答案完全正确！", vbOKOnly, "提示")
Else
ex = MsgBox("回答不正确！", vbOKOnly, "提示")
End If
想实现一道简答题的判断
If instr(TextBox8.Value , "报国无门")>0 and instr(TextBox8.Value , "壮志难伸")>0 and instr(TextBox8.Value , "内心痛苦")>0 Then
ex = MsgBox("答案完全正确！", vbOKOnly, "提示")
ElseIf instr(TextBox8.Value , "报国无门")>0 or instr(TextBox8.Value , "壮志难伸")>0 or instr(TextBox8.Value , "内心痛苦")>0 Then
ex = MsgBox("回答不够完整！", vbOKOnly, "提示")
Else
ex = MsgBox("回答不正确！", vbOKOnly, "提示")
End If
--------------------
如果编译不过就把textbox8.value换成textbox8.text
If TextBox8.Value = "报国无门" Or "壮志难伸" Or "内心痛苦" Then...
这是错误的语法，应该改为：
If TextBox8.Value = "报国无门" Or TextBox8.Value = "壮志难伸" Or TextBox8.Value = "内心痛苦" Then...
and 条件同样也要改成这样的形式。
ElseIf TextBox8.Value = "报国无门" And "壮志难伸" And "内心痛苦" Then
ex = MsgBox("答案完全正