vb程序设计加法代码(vb加减代码)
vb:简易计算器（加减乘除）代码
代码如下：
Dim t, t1 As Integer
Dim x, y As Double
Public Sub com()
x = Val(l1.Caption)
Select Case t1
Case Is = 1: y = y + x
Case Is = 2: y = y - x
Case Is = 3: y = y * x
Case Is = 4: y = y / x
End Select
t1 = 0
t = 0
l1.Caption = "0"
End Sub
Private Sub Form_Load()
x = 0
y = 0
t = 0
t1 = 1
End Sub
Private Sub c0_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "0"
Else
l1.Caption = l1.Caption + "0"
End If
End Sub
Private Sub C1_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "1"
Else
l1.Caption = l1.Caption + "1"
End If
End Sub
Private Sub c10_Click(Index As Integer)
If t = 0 Then
l1.Caption = l1.Caption + "."
t = 1
End If
End Sub
Private Sub C2_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "2"
Else
l1.Caption = l1.Caption + "2"
End If
End Sub
Private Sub C3_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "3"
Else
l1.Caption = l1.Caption + "3"
End If
End Sub
Private Sub C4_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "4"
Else
l1.Caption = l1.Caption + "4"
End If
End Sub
Private Sub C5_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "5"
Else
l1.Caption = l1.Caption + "5"
End If
End Sub
Private Sub C6_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "6"
Else
l1.Caption = l1.Caption + "6"
End If
End Sub
Private Sub C7_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "7"
Else
l1.Caption = l1.Caption + "7"
End If
End Sub
Private Sub C8_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "8"
Else
l1.Caption = l1.Caption + "8"
End If
End Sub
Private Sub C9_Click(Index As Integer)
If l1.Caption = "0" Then
l1.Caption = "9"
Else
l1.Caption = l1.Caption + "9"
End If
End Sub
Private Sub z1_Click(Index As Integer)
com
t1 = 1
End Sub
Private Sub z2_Click(Index As Integer)
com
t1 = 2
End Sub
Private Sub z3_Click(Index As Integer)
com
t1 = 3
End Sub
Private Sub z4_Click(Index As Integer)
com
t1 = 4
End Sub
Private Sub z5_Click(Index As Integer)
tmp = Mid(l1.Caption, Len(l1.Caption), 1)
If tmp = "." Then
t = 0
End If
If Len(l1.Caption) = 1 Then
l1.Caption = "0"
Else
l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)
End If
End Sub
Private Sub z6_Click(Index As Integer)
l1.Caption = "0"
Form_Load
End Sub
Private Sub z7_Click(Index As Integer)
If (l1.Caption "0") Then
l1.Caption = "-" + l1.Caption
End If
End Sub
Private Sub z8_Click(Index As Integer)
com
l1.Caption = Str(y)
End Sub
扩展资料
语言缺点
Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。
不支持继承
VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。
无原生支持多线程
Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。
异常处理不完善
Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。
Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。
参考资料：百度百科-VB
VB简单的计算机制作加法程序代码
添加3个TEXT，和1个COMMAND按钮，把下面代码复制即可
Private
Sub
Command1_Click()
Text3
=
Val(Text1)
+
Val(Text2)
End
Sub
其中Text1和Text2是你要输入的两个加数，command是把两个数相加，text3是结果
VB做加减乘除的代码是什么？
代码如下 \x0d\x0a'已增加操作数正确性验证及 除数不能为0验证 \x0d\x0a\x0d\x0aPrivate Sub Command1_Click() \x0d\x0aIf IsNumeric(Text1.Text) And Text1.Text "" And IsNumeric(Text2.Text) And Text2.Text "" Then \x0d\x0aSelect Case Combo1.ListIndex \x0d\x0aCase 0 \x0d\x0aText3.Text = Val(Text1.Text) + Val(Text2.Text) \x0d\x0aCase 1 \x0d\x0aText3.Text = Val(Text1.Text) - Val(Text2.Text) \x0d\x0aCase 2 \x0d\x0aText3.Text = Val(Text1.Text) * Val(Text2.Text) \x0d\x0aCase 3 \x0d\x0aIf Val(Text1.Text) 0 Then \x0d\x0aText3.Text = Val(Text1.Text) / Val(Text2.Text) \x0d\x0aElse \x0d\x0aMsgBox "除数不能为0", , "错误" \x0d\x0aEnd If \x0d\x0aEnd Select \x0d\x0aElse \x0d\x0aMsgBox "请输入操作数", , "错误" \x0d\x0aEnd If \x0d\x0aEnd Sub \x0d\x0a\x0d\x0aPrivate Sub Form_Load() \x0d\x0aCombo1.AddItem "+" \x0d\x0aCombo1.AddItem "-" \x0d\x0aCombo1.AddItem "*" \x0d\x0aCombo1.AddItem "/" \x0d\x0aCombo1.ListIndex = 0 \x0d\x0aText1.Text = "" \x0d\x0aText2.Text = "" \x0d\x0aText3.Text = "" \x0d\x0aCommand1.Caption = "计算" \x0d\x0a\x0d\x0aEnd Sub
求VB 加法自动计算代码
很简单，你在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中显示。