VB简易计算器代码

VB简易计算器代码
下面是一个简单的VB计算器代码，用于执行基本的加、减、乘、除运算。

```vb
Option Strict On
Public Class Calculator
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text)
Dim result As Double = num1 + num2
txtResult.Text = result.ToString
End Sub
Private Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text)
Dim result As Double = num1 - num2
txtResult.Text = result.ToString
Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text)
Dim result As Double = num1 * num2
txtResult.Text = result.ToString
End Sub
Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text)
If num2 = 0 Then
MessageBox.Show("除数不能为0！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim result As Double = num1 / num2
txtResult.Text = result.ToString
End If
End Sub
```
此代码创建了一个简单的窗体应用程序，其中包含两个文本框用于输入两个数字，四个按钮用于执行不同的计算操作，以及一个文本框用于显示结果。

每个按钮的Click事件处理程序都会获取两个数字，执行相应的运算，并将结果显示在结果文本框中。

除法操作添加了一个额外的检查来确保除数不为零。

此代码只是一个简单的计算器示例，没有考虑到所有异常情况和错误处理。

根据需要，可以添加更多功能和验证来改进计算器的功能。