用VB编写计算器程序
VB（Visual Basic）是一种高级的编程语言，常用于开发Windows应用程序。下面是一个基于VB的计算器程序的示例，该程序可进行基本的数学运算，如加法、减法、乘法和除法。
首先，创建一个新的VB项目，并添加一个窗体，窗体可以使用默认的名称"Form1"。在窗体上添加以下控件：
1. 文本框（TextBox）：用于显示输入和计算结果。
2. 按钮（Button）：用于输入数字和操作符。
3.一个等号按钮，用于执行计算。
4.一个清除按钮，用于清除已输入的内容。
```vb
Public Class Form1
Dim num1 As Double ' 第一个操作数
Dim num2 As Double ' 第二个操作数
Dim operator As String ' 选择的操作符
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button0.Click, ButtonAdd.Click, ButtonSubtract.Click, ButtonMultiply.Click, ButtonDivide.Click
'将按钮文本添加到文本框
TextBox1.Text += CType(sender, Button).Text
End Sub
Private Sub ButtonEquals_Click(sender As Object, e As EventArgs) Handles ButtonEquals.Click
num2 = CDbl(TextBox1.Text) ' 获取第二个操作数
vb计算器代码大全Dim result As Double ' 保存计算结果
'根据选择的操作符执行相应的计算
Select Case operator
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
result = num1 / num2
End Select
'在文本框中显示计算结果
TextBox1.Text = result.ToString
End Sub
Private Sub ButtonClear_Click(sender As Object, e As EventArgs) Handles ButtonClear.Click
'清除文本框内容
TextBox1.Clear
End Sub
Private Sub OperatorButtons_Click(sender As Object, e As EventArgs) Handles ButtonAdd.
Click, ButtonSubtract.Click, ButtonMultiply.Click, ButtonDivide.Click
num1 = CDbl(TextBox1.Text) ' 获取第一个操作数
operator = CType(sender, Button).Text ' 获取选择的操作符
'清除文本框内容
TextBox1.Clear
End Sub
End Class
```
以上代码实现了计算器的基本功能。它使用了几个点击事件，分别处理数字键、操作符键、等号键和清除键的点击。点击数字键和操作符键时，将对应的文本添加到文本框；点击等号键时，根据选择的操作符执行相应的计算，并将结果显示在文本框中；点击清除键时，清除文本框内容。
你可以为窗体中的按钮控件设置合适的名称和文本。然后，调试运行该程序，你将能够在文本框中输入数学表达式，并得到计算结果。
这只是一个简单的计算器示例，你可以根据自己的需求进行扩展和改进。例如，你可以添加更复杂的数学运算、处理错误输入、添加其他功能按钮等。
计算器程序是一个好的练习项目，它帮助你熟悉VB语言和Windows应用程序的开发。祝你编写出一个完善且功能强大的计算器程序！