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编写一个加法计算器的方法，希望大家喜欢，请继续关注我们。

创建text1、text2、command1、command2、command3、command4代码如下Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "+"

Command2.Caption = "-"

Command3.Caption = "*"

Command4.Caption = "/"

End Sub

Private Sub Command1_Click()

s = Val(Text1.Text) + Val(Text2.Text)

MsgBox Text1.Text &" + " &Text2.Text &" = " &Str(s)

End SubPrivate Sub Command2_Click()

s = Val(Text1.Text) - Val(Text2.Text)

MsgBox Text1.Text &" - " &Text2.Text &" = " &Str(s)

End SubPrivate Sub Command3_Click()

s = Val(Text1.Text) * Val(Text2.Text)

MsgBox Text1.Text &" * " &Text2.Text &" = " &Str(s)

End SubPrivate Sub Command4_Click()

s = Val(Text1.Text) / Val(Text2.Text)

MsgBox Text1.Text &" / " &Text2.Text &" = " &Str(s)

End Sub

Private Sub Text1_lostfocus()

If Text1.Text = "" Then MsgBox "输入第一个数值"

End SubPrivate Sub Text2_lostfocus()

If Text2.Text = "" Then MsgBox "输入第二个数值"

If Text2.Text = "0" Then

MsgBox "除数不能为0"

Text2.SetFocus

End If

End Sub

---