vb计算器代码（vb计算器代码编程）

本篇文章给大家谈谈vb计算器代码，以及vb计算器代码编程对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、vb:简易计算器（加减乘除）代码
• 2、用VB做一个简单的加减乘除的计算器，代码是什么？
• 3、Vb中计算器清空需要什么代码?
• 4、如何用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做一个简单的加减乘除的计算器，代码是什么？

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。

我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。

我们现在要把command拉出四个，把里面command1-4都给成+-*/

现在我们现在要双击+，我们开始进行输入代码

在里面我们现在要：text3.text=val(text1.text)+val(text2.text)

我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

Vb中计算器清空需要什么代码?

Vb中计算器清空代码如下所示：

Private Sub Cmdcls_Click()    

Text1.Text = 0

End Sub

VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。

扩展资料

VB变量类型：

1、Integer（类型符%）

Integer指的是-32768到+32767之间的整数，通常这个范围已经涵盖了大多数可能会用到的数字。如果认为要用到的数字可能会超出这个范围，可以考虑将其定义为Long。

2、Long（类型符）

这种数据类型垢数字有时又称为Long Integer。这种数据类型可以处理-2147483648到+2147483647之间的所有数字。与使用2个字节的Integer不同，它使用4字节内存存储数据。

3、Single（类型符!）

Single适用于需要小数点的数字。Single可以处理-3.402823E38到-1.401298E-45之间的负值和1.401298E_45到3.402823E38之间的正值。

4、Double（类型符#）

这种数据类型需要使用8字节内存来存储数据。如果必须处理超大范围的值，这种数据类型会很有用。

如何用VB编写一个计算器

建立14个按钮，按钮的名字都要Command1，设置Index属性，0~9分别对应数字0~9，10为小数点，11为等号，12~14分别对应+、-、*和/。

2、输入如下代码：

Dim Num1, Num2 As Single

Dim StrNum1, StrNum2 As String

Dim FirstNum As Boolean

Dim PointFlag As Boolean

Dim Runsign As Integer

Dim SignFlag As Boolean

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 To 9

If FirstNum Then

StrNum1 = Str(Index)

FirstNum = False

Else

StrNum1 = LTrim(StrNum1) + LTrim(Str(Index))

End If

Text1.Text = Val(StrNum1)

Case 10

If Not PointFlag Then

If FirstNum Then

StrNum1 = "0."

FirstNum = False

Else

StrNum1 = LTrim(StrNum1) + LTrim(".")

End If

Else

Exit Sub

End If

PointFlag = True

Text1.Text = Val(StrNum1)

Case 12 To 15

FirstNum = True

PointFlag = False

If SignFlag Then

Call Run

Else

SignFlag = True

StrNum2 = StrNum1

StrNum1 = ""

End If

Runsign = Index - 11

Case 11

On Error Resume Next

If Not SignFlag Then

Text1.Text = StrNum1

equal = Val(StrNum1)

FirstNum = True

PointFlag = False

Else

Call Run

SignFlag = False

End If

Case Else

Call ClearData

End Select

End Sub

Private Sub Form_Load()

If App.PrevInstance Then MsgBox "请不要多次运行此程序，谢谢！", vbAbortRetryIgnore: Unload Me

Num1 = 0

Num2 = 0

StrNum1 = ""

StrNum2 = ""

FirstNum = True

PointFlag = False

Runsign = 0

SignFlag = False

End Sub

Sub Run()

On Error Resume Next

Dim equal As Single

Dim equal2 As Double

Num1 = Val(StrNum2)

Num2 = Val(StrNum1)

Select Case Runsign

Case 1

equal = Num1 + Num2

If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then

equal = 0

equal2 = Num1 + Num2

End If

Case 2

equal = Num1 - Num2

If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then

equal = 0

equal2 = Num1 - Num2

End If

Case 3

equal = Num1 * Num2

If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then

equal = 0

equal2 = Num1 * Num2

End If

Case 4

equal = Num1 / Num2

If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then

equal = 0

equal2 = Num1 / Num2

End If

End Select

If equal = 0 Then a = equal2 Else a = equal

StrNum2 = Str(a)

StrNum1 = StrNum2

Text1.Text = Val(StrNum2)

End Sub

Sub ClearData()

Num1 = 0

Num2 = 0

StrNum1 = ""

StrNum2 = ""

FirstNum = True

PointFlag = False

Runsign = 0

SignFlag = False

Text1.Text = 0

End Sub

vb计算器代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb计算器代码编程、vb计算器代码的信息别忘了在本站进行查找喔。