UC知道一个判断计算正误的程序
来源：百度知道 编辑：UC知道 时间：2024/06/18 07:32:01
这是我的代码，可是我无论我在Text1,Text2,Text3里输入的正确与否，出来的结果都是false,有什么问题么？怎么更改？
我写的代码如下：
Private Sub Command1_Click()
Dim a As String, b As String, c As String
Dim d As Boolean
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = ((a + b) = c)
Label3.Caption = d
End Sub
一楼的兄弟，我试了，不行啊，但我发现把a,b,c改成变体型就可以了，这是为什么啊？
我写的代码如下：
Private Sub Command1_Click()
Dim a As String, b As String, c As String
Dim d As Boolean
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = ((a + b) = c)
Label3.Caption = d
End Sub
一楼的兄弟，我试了，不行啊，但我发现把a,b,c改成变体型就可以了，这是为什么啊？
你都声明成字符串了当然不行啦，字符串相加是这样的
"1"+"2"="12"，明白？
如果你输入的都是整数就声明成Integer或Long，如果有小数就声明成Double，这样应该行了
d = ((a + b) = c)
改成d = iif(a+b=c,true,false)