vb加法计算代码

Private Sub Command1_Click()Dim a As Integer,b As

Integera=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=a+bEnd Sub在这段VB程序中，“a=Val(Text1.Text)b=Val(Text2.Text)”是加法的代码。

代码如下：

Private Sub Command1_Click()

Label2.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = "": Text2.Text = "": Label2.Caption = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

扩展资料

Option Explicit

Private Sub Combo1_Change()

End Sub

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then

Select Case Combo1.Text

Case "+"

Text3.Text = CLng(Text1.Text) + CLng(Text2.Text)

Case "-"

Text3.Text = CLng(Text1.Text) - CLng(Text2.Text)

Case "×"

Text3.Text = CLng(Text1.Text) * CLng(Text2.Text)

Case "÷"

If CLng(Text2.Text) <> 0 Then Text3.Text = CLng(Text1.Text) / CLng(Text2.Text) Else MsgBox "出数不能为0", vbOKOnly, "提示"

Case Else

MsgBox "请选择运算方式", vbOKOnly, "提示"

End Select

Else

MsgBox "请输入数字", vbOKOnly, "提示"

End If

End Sub

Private Sub Form_Load()

Combo1.AddItem "+"

Combo1.AddItem "-"

Combo1.AddItem "×"

Combo1.AddItem "÷"

End Sub

参考资料：百度百科 加法 （汇编源程序用语）

VB6.0便携小程序很方便，今天我们就来看看vb制作一个加法计算器的教程。

1、启动软件，新建一个变准 EXE工程 。

2、我们在窗体上绘制好要使用到的控件。

3、双击 计算按钮 进入代码窗口，我们可以在这里编写代码。

4、接下来我们打入累加的 赋值语句。

5、接下来我们点击运行测试的 小三角。

6、这时候我们就可以开始计算了。

以上就是VB6.0编写一个加法计算器的方法，希望大家喜欢，请继续关注我们。

很简单，你在VB中、增加3个TEXT组件

分别为text1、text2、text3

并增加以下代码：

Private

Sub

Text1_Change()

Text3

=

Val(Text1)

+

Val(Text2)

End

Sub

Private

Sub

Text2_Change()

Text3

=

Val(Text1)

+

Val(Text2)

End

Sub

OK了

你在text1或text2中输入数字后

结果自动计算并在TEXT3中显示。

---