帮忙看看我编的VB这个哪错了啊?

显示全部楼层 · 2007-10-6 20:44:50

呵呵，你不是少了一个endif而是少写了3个 endif。前面一共有4个判断符号的if再加上最后个判断是否计算正确的if所以在程序的最后应该一共有5个 endif你只写了2个当然会少，你加上再试试吧。Private Sub Command1_Click()c = Text1.TextIf fuhao = "*" ThenIf a * b = c ThenMsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"ElseMsgBox "回答错误，正确结果是：" + Str(a * b), vbOKOnly + vbQuestion, "糟糕"End IfElse:If fuhao = "+" ThenIf a + b = c ThenMsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"ElseMsgBox "回答错误，正确结果是：" + Str(a + b), vbOKOnly + vbQuestion, "糟糕"End IfElse:If fuhao = "-" ThenIf a - b = c ThenMsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"ElseMsgBox "回答错误，正确结果是：" + Str(a - b), vbOKOnly + vbQuestion, "糟糕"End IfElse:If fuhao = "/" ThenIf a / b = c ThenMsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"ElseMsgBox "回答错误，正确结果是：" + Str(a / b), vbOKOnly + vbQuestion, "糟糕"End IfEnd IfEnd IfEnd IfEnd IfEnd Sub

千问 · 2007-10-6 20:44:50

把下面的拷过去：Option ExplicitDim a As Integer, b As Integer, c, fuhaoPrivate Sub Command1_Click()
c = Text1.Text
If fuhao = "*" Then
If a * b = c Then
MsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"
Else
MsgBox "回答错误，正确结果是：" + Str(a * b), vbOKOnly + vbQuestion, "糟糕"
End If
ElseIf fuhao = "+" Then
If a + b = c Then
MsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"
Else
MsgBox "回答错误，正确结果是：" + Str(a + b), vbOKOnly + vbQuestion, "糟糕"
End If
ElseIf fuhao = "-" Then
If a - b = c Then
MsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"
Else
MsgBox "回答错误，正确结果是：" + Str(a - b), vbOKOnly + vbQuestion, "糟糕"
End If
ElseIf fuhao = "/" Then
If a / b = c Then
MsgBox "回答正确", vbOKOnly + vbExclamation, "恭喜你"
Else
MsgBox "回答错误，正确结果是：" + Str(a / b), vbOKOnly + vbQuestion, "糟糕"
End If
End IfEnd SubPrivate Sub Command2_Click()
EndEnd SubPrivate Sub Command3_Click()
Dim S(1 To 4) As String
Dim d As Integer
Dim fuhao As String
Randomize
S(1) = "+": S(2) = "-": S(3) = "*": S(4) = "/"
a = Rnd() * 3
fuhao = S(a)
Text1.Text = ""
a = Int(11 * Rnd)
b = Int(11 * Rnd)
Label1.Caption = a
Label2.Caption = fuhao
Label3.Caption = b
Text1.SetFocusEnd Sub