UC知道VB小毛病
来源：百度知道 编辑：UC知道 时间：2024/06/23 12:59:16
我输入代码
Private Sub Command1_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
Text3.Text = "a*b"
End Sub
做一个加法程序
可是我输入2+3 当然我只输入了2 3
得数框里却是23 应该是5呀，
请各位指教
引号去掉不管用
我又试了一下 ，别的运算都行，减 乘 除 都行，就是加法不行
上文的代码 应该是
Private Sub Command1_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
Text3.Text = a+b
End Sub
我打错了
Private Sub Command1_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
Text3.Text = "a*b"
End Sub
做一个加法程序
可是我输入2+3 当然我只输入了2 3
得数框里却是23 应该是5呀，
请各位指教
引号去掉不管用
我又试了一下 ，别的运算都行，减 乘 除 都行，就是加法不行
上文的代码 应该是
Private Sub Command1_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
Text3.Text = a+b
End Sub
我打错了
Private Sub Command1_Click()
Dim a, b, c As Single '定义a为变体，b为变体，c为单精度变量
a = Text1.Text 'a根据情况成为字符串型
b = Text2.Text 'b根据情况成为字符串型
Text3.Text = a+b '两个字符串相加，表示字符串相连，因此为23
End Sub
通过以上注释，我想你应该明白错误的原因了吧。
c=a+b
Text3.Text = c
Private Sub Command1_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
Text3.Text = a*b
End Sub
Private Sub Command1_Click()
Dim a, b, c As Single
a = val(Text1.Text)
b = val(Text2.Text)
Text3.Text = a+b
End Sub
我打错了
在vb中，“+”号有更多的意义，因此建议你这样写：
Text3.Text =val(a+b)
或
Text3.Text =str(val(a+b))