VB:帮我看下代码.

2025-05-01 19:15:15

推荐回答（2个）

回答1：

Dim a, b, c
Dim d As String

Private Sub cmdcount_Click()
a = Val(txta.Text) '要变成数
b = Val(txtc.Text)
c = txtd.Text
d = txtb.Text

If d = "+" Then
c = a + b

ElseIf d = "-" Then
c = a - b
ElseIf d = "÷" Or d = "/" Then
c = a / b
ElseIf d = "*" Then
c = a * b
Else
Print "你输入的符号不正确，本程序只能计算加减乘除,请重新输入"
End If
txtd.Text = c

End Sub

这样子改就可以拉，老兄你的IF语句的运用还要加强啊。。

回答2：

If d <> "+" Or d <> "-" Or d <> "÷" Or d <> "/" Or d <> "×" Then

把这里边的Or全部改成And

看看有没有问题