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

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

计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是的选择, VB程序设计语言就是其中一个典型的代表。Visual Basic是Microsoft Windows的编程语言。Visual Basic是在一个集成开发环境（IDE）中创建的，IDE使得程序员可以方便地创建、运行和调试Visual Basic程序。Visual Basic是世界上使用最广泛的快速应用程序开发语言。为提高大家学习VB的兴趣，在这里，我们以一个简单的加法程序来体验一下VB的强大功能。

首先我们启动VB，在出现"新建工程"对话框后，选择"标准EXE"，单击"打开"按钮，即进入如下图的VB开发环境。

第一步：单击工具箱中的"TextBox(文本框)"图标 ，移动鼠标指针到窗体Form1上，这时鼠标指针变成了"+"形状。拖出3个并排的有一点间距的方框出来，里面有text1、text2、text3的字样，分别选中它们，按鼠标退格键删除这些字样。再单击"Label(标签)"图标A，在刚才的3个方框之间拖2个标签框，分别键入加号"+"和等于号"="，最后单击"Command（命令按钮）"图标 ，在窗体的下方拖出一个按钮出来，拖出一个带有Command1字样的按钮，直接写上"计算"二字。如图所示：

第二步：双击"计算"按钮，会出现如下的代码窗口：

在Private Sub Command1_Click()和End Sub之间写上如下代码：

M = Val (Text1.Text)

N = Val (Text2.Text)

K = Val (Text3.Text)

If m + n = k Then

Label1.Caption = "正确！"

Else

Label1.Caption = "错误！"

End If

第三步：关闭代码窗口，点"运行"---"启动"。在文本框中分别填写2、5、7，再点"计算"按钮，看窗体上出现什么文字，关闭Forml，再"启动"，填写3、5、7后"计算"，看窗体上出现什么文字。这时你会发现，在输入第一次数据时，会显示正确！在输入第二次数据时，会显示错误！

第四步：最后，我们来保存这个程序：首先点按"文件"----"生成工程"----选择保存地点为"C：\",文件名为"jiafa"----"确定"。再到"C：\"中去，找到这个"jiafa"文件，我们可以从它的后缀名中得知，这是个不依赖VB程序可以独立运行的可执行程序。运行一下，很有成就感吧。

短短四步，我们就可以编制出一个简单的加法程序，可见，软件的编制并不是那么神秘，只要你肯专心学习，一定会取得非凡成就的。以上程序已在vb6.0调试通过。以上所讲的只是VB的一些基本 *** 作，仅取抛砖引玉的作用，希望各位VB高手能提出更多更好的方法，让我们在学习VB的过程中不断地得到提高。

---