vb.net计算器的解析,VB编写计算器

VB 计算器程序代码解析，以下是代码，要求详细，新手VB勿喷

Option Explicit

网站建设哪家好，找成都创新互联！专注于网页设计、网站建设、微信开发、小程序设计、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了永清免费建站欢迎大家使用！

Dim FirstNumber, NumberBuffer As Double'定义数据类型

Dim chr As String

Dim ScaleCodeState As Boolean

Dim ScaleCode As Integer

Dim ScaleSymbol(0 To 7) As String '上面这些DIM都是定义数据类型

Private Sub Init()'==sub过程，实际功能就是清零。把label、FirstNumber、等都初始化

Label1.Caption = "0"

FirstNumber = 0

ScaleCode = 0

ScaleCodeState = False

Label2.Caption = ""

End Sub        '==sub过程结束

Private Sub ClearAll_Click() '点击ClearAll按钮

Call Init'执行init过程，就是清零

End Sub

Private Sub Form_Load()'程序启动

Call Init'先清零，下面分别赋值加减乘除

ScaleSymbol(0) = "+"

ScaleSymbol(1) = "-"

ScaleSymbol(2) = "*"

ScaleSymbol(3) = "/"

End Sub

Private Sub NumberKey_Click(Index As Integer)'点击NumberKey按钮,NumberKey是数组控件

chr = Val(Index)

If Left(Label1.Caption, 1) = "0" And Mid(Label1.Caption, 2, 1)  "." Then Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1)

'如果label1的第一个字符是0，并且第二个字符不是.，则label1去掉第一个0。这个功能是防止输入了00.9999这样的数，就自动变为0.9999

If Len(Label1.Caption)  20 Then '判断输入的数字长度小于20

If ScaleCodeState = True Then

ScaleCodeState = False

Label1.Caption = ""

End If

Label1.Caption = Label1.Caption + chr

NumberBuffer = Val(Label1.Caption)

End If

End Sub

Private Sub ScaleKey_Click(Index As Integer)'点加减乘除

ScaleCode = Index

FirstNumber = NumberBuffer

ScaleCodeState = True

Label2.Caption = ScaleSymbol(Index)

Label1.Caption = "0"

End Sub

Private Sub Equal_Click()'开始计算

Select Case ScaleCode

Case 0'加

NumberBuffer = FirstNumber + NumberBuffer

Case 1'减

NumberBuffer = FirstNumber - NumberBuffer

Case 2'乘

NumberBuffer = FirstNumber * NumberBuffer

Case 3'除

NumberBuffer = FirstNumber / NumberBuffer

End Select

Label1.Caption = NumberBuffer'显示结果

FirstNumber = NumberBuffer

ScaleCodeState = True

Label2.Caption = ""

End Sub

如何用VB.net制作一个简单的计算器

script language="javascript"

function EnterKeyClick(){

if (window.event.keyCode==13){

event.KeyCode=9;

event.returnValue = false;

//你需要执行的函数

}

}

/script

有关vb.net制作计算器的问题

判断吧，如果点击+按钮，则一个全局变量为1，-按钮，则全局变量为2.以此类推，然后if或case判断哪个数，如果为1，就两个数相加。