VB编写的简易计算器.doc

这是一个简易计算器的VB代码，下面是这个计算器的界面，有一个文本输入框和16个按钮Dim OperatorState As Integer Dim data1 As Integer Dim result As IntegerDim data2 As Integer下面是09十个按钮的点击事件 Private Sub Command9_Click()Text1.Text = Text1.Text + 1End SubPrivate Sub Command10_Click()Text1.Text = Text1.Text + 2End SubPrivate Sub Command11_Click()Text1.Text = Text1.Text + 3End SubPrivate Sub Command5_Click()Text1.Text = Text1.Text + 4End SubPrivate Sub Command6_Click()Text1.Text = Text1.Text + 5End SubPrivate Sub Command7_Click()Text1.Text = Text1.Text + 6End SubPrivate Sub Command1_Click()Text1.Text = Text1.Text + 7End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + 8End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text + 9End SubPrivate Sub Command13_Click()Text1.Text = Text1.Text + 0End Sub下面是清除键的代码Private Sub Command15_Click()Text1.Text = End Sub下面是加减乘除四个按钮的代码 Private Sub Command4_Click()data1 = Val(Text1.Text)OperatorState = 1Text1.Text = End SubPrivate Sub Command8_Click()data1 = Val(Text1.Text)OperatorState = 2Text1.Text = End SubPrivate Sub Command12_Click()data1 = Val(Text1.Text)OperatorState = 3Text1.Text = End SubPrivate Sub Command16_Click()data1 = Val(Text1.Text)OperatorState = 4Text1.Text = End Sub下面是等于号的的代码Private Sub Command14_Click()data2 = Val(Text1.Text)Select Case OperatorStateCase 1result = data1 + data2Case 2result = data1 - data2Case 3result = data1 * data