VB计算器编程代码

在VB中编写一个简单的计算器程序并不复杂，下面是一个基本的示例代码：

```vb Public Class CalculatorForm Dim firstNumber As Double Dim secondNumber As Double Dim operation As String Private Sub btnNumber_Click(sender As Object, e As EventArgs) Handles btnNumber.Click Dim btn As Button = CType(sender, Button) txtDisplay.Text = btn.Text End Sub Private Sub btnOperator_Click(sender As Object, e As EventArgs) Handles btnOperator.Click Dim btn As Button = CType(sender, Button) firstNumber = Double.Parse(txtDisplay.Text) operation = btn.Text txtDisplay.Text = "" End Sub Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click secondNumber = Double.Parse(txtDisplay.Text) Dim result As Double Select Case operation Case " " result = firstNumber secondNumber Case "-" result = firstNumber - secondNumber Case "*" result = firstNumber * secondNumber Case "/" result = firstNumber / secondNumber End Select txtDisplay.Text = result.ToString() End Sub Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click txtDisplay.Text = "" End Sub End Class ```

这段代码实现了一个简单的四则运算计算器，用户可以通过点击按钮输入数字和运算符，并计算结果。

你可以在VB的Windows窗体应用程序中创建一个新的窗体，将上述代码粘贴到窗体的代码文件中，然后设计窗体界面，添加数字按钮、运算符按钮、等号按钮和清除按钮，以及一个文本框用于显示输入和结果。

通过这个示例代码，你可以了解如何在VB中实现一个简单的计算器程序，当然你也可以根据自己的需求进行扩展和优化。

Tags：

版权声明： 免责声明：本网站部分内容由用户自行上传，若侵犯了您的权益，请联系我们处理，谢谢！联系QQ：2760375052