绳子怎么绑花盆:这条VB 题怎么编

你那个代码可以.
不过最好用变量,变量类型用Double

你可以先声明两个变量
Dim a As Double
Dim b As Double

如果想完美一些，可以在TextBox 失去焦点时验证一下其中内容是否是数字，然后将两个变量分别赋值。简单的话只要在点击运算按钮时赋值就可以了。

我不知道你想设计几个按钮。

比如直接点击加、减、乘、除按钮出结果，还是用其他方法得到运算类型，比如RadioButton什么的，再点击比如等于之类的按钮出结果

不过你都应该把计算做成方法，回头一调用就行了

Function Plus(ByVal n As Double,ByVal m As Double)
Dim r As Double
r=n+m
Return r
End Function

以此类推，四个运算都做成方法。然后再调用。如

TextBox1.Text=3
TextBox2.Text=5

赋给变量

a=TextBox1.Text
b=TextBox2.Text

相加

TextBox3.Text=Plus(a,b)

结果就出来8了

以下代码用VS2005做的，3个TextBox，4个Button，加减乘除

Public Class Form1
Dim a As Double
Dim b As Double
Private Function Plus(ByVal n As Double, ByVal m As Double)
Dim r As Double
r = n + m
Return r
End Function

Private Function Subtract(ByVal n As Double, ByVal m As Double)
Dim r As Double
r = n - m
Return r
End Function

Private Function Multiply(ByVal n As Double, ByVal m As Double)
Dim r As Double
r = n * m
Return r
End Function

Private Function Divide(ByVal n As Double, ByVal m As Double)
Dim r As Double
r = n / m
Return r
End Function

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
a = Me.TextBox1.Text
End Sub

Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
b = Me.TextBox2.Text
End Sub

Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
Me.TextBox3.Text = Plus(a, b)
End Sub

Private Sub btnSubtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubtract.Click
Me.TextBox3.Text = Subtract(a, b)
End Sub

Private Sub btnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiply.Click
Me.TextBox3.Text = Multiply(a, b)
End Sub

Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click
Me.TextBox3.Text = Divide(a, b)
End Sub
End Class

dim a as integer
dim b as integer
a=text1.text
b=text2.text
text3.text=a+b
收工了

'在窗体上放置三个文本框控件,和一个按钮控件
'将text1的值加上text2的值给text3,就这么简单
'按钮控件为:
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

不可以 因为 text3.text 是字符型的

必须先用 val 换成 数字

运算后再用 chr还是char？ 换成字符写出来