VB简易计算器代码
以下是一个简单的VB计算器代码：
```
Public Class Form1
Dim firstNum As Double  ' 第一个数字
Dim secondNum As Double  ' 第二个数字
Dim operation As Integer  ' 1-加法，2-减法，3-乘法，4-除法
简单的vb程序代码Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click
TextBoxResult.Text = TextBoxResult.Text & "0"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBoxResult.Text = TextBoxResult.Text & "1"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBoxResult.Text = TextBoxResult.Text & "2"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBoxResult.Text = TextBoxResult.Text & "3"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBoxResult.Text = TextBoxResult.Text & "4"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBoxResult.Text = TextBoxResult.Text & "5"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
TextBoxResult.Text = TextBoxResult.Text & "6"
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
TextBoxResult.Text = TextBoxResult.Text & "7"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
TextBoxResult.Text = TextBoxResult.Text & "8"
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
TextBoxResult.Text = TextBoxResult.Text & "9"
End Sub
Private Sub ButtonDot_Click(sender As Object, e As EventArgs) Handles ButtonDot.Click
If Not TextBoxResult.Text.Contains(".") Then
TextBoxResult.Text = TextBoxResult.Text & "."
End If
End Sub
Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.Click
firstNum = Double.Parse(TextBoxResult.Text)
TextBoxResult.Text = ""
operation = 1
End Sub
Private Sub ButtonSubtract_Click(sender As Object, e As EventArgs) Handles ButtonSubtract.Click
firstNum = Double.Parse(TextBoxResult.Text)
TextBoxResult.Text = ""
operation = 2
End Sub
Private Sub ButtonMultiply_Click(sender As Object, e As EventArgs) Handles ButtonMultiply.Click
firstNum = Double.Parse(TextBoxResult.Text)
TextBoxResult.Text = ""
operation = 3
End Sub
Private Sub ButtonDivide_Click(sender As Object, e As EventArgs) Handles ButtonDivide.Click
firstNum = Double.Parse(TextBoxResult.Text)
TextBoxResult.Text = ""
operation = 4
End Sub
Private Sub ButtonClear_Click(sender As Object, e As EventArgs) Handles ButtonClear.Cli
ck