VB计算器程序代码
下面是一个简单的VB计算器程序代码，可以进行基本的四则运算：
```VB
Imports System.Math
Public Class Form1
Dim num1, num2, result As Double
Dim operatorType As String = ""
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button_Click(sender As Object, e As EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, bt
n9.Click, btnDot.Click
Dim button As Button = CType(sender, Button)
If button.Text = "." Then
If Not txtDisplay.Text.Contains(".") Then
txtDisplay.Text += button.Text
End If
Else
txtDisplay.Text += button.Text
End If
End Sub
Private Sub Operator_Click(sender As Object, e As EventArgs) Handles btnAdd.Click, btnSubtract.Click, btnMultiply.Click, btnDivide.Click
Dim button As Button = CType(sender, Button)
简单的vb程序代码
num1 = CDbl(txtDisplay.Text)
operatorType = button.Text
txtDisplay.Clear
End Sub
Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click
num2 = CDbl(txtDisplay.Text)
Select Case operatorType
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
If num2 <> 0 Then
result = num1 / num2
Else
MessageBox.Show("除数不能为零！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Select
txtDisplay.Text = result.ToString
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtDisplay.Clear
End Sub
Private Sub btnSqrt_Click(sender As Object, e As EventArgs) Handles btnSqrt.Click
If txtDisplay.Text = "" Then
MessageBox.Show("请输入一个数字！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
num1 = CDbl(txtDisplay.Text)
result = Sqrt(num1)
txtDisplay.Text = result.ToString
End If
End Sub
Private Sub btnPower_Click(sender As Object, e As EventArgs) Handles btnPower.Click
If txtDisplay.Text = "" Then
MessageBox.Show("请输入一个数字！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
num1 = CDbl(txtDisplay.Text)
result = num1 ^ 2
txtDisplay.Text = result.ToString
End If
End Sub
Private Sub btnBackspace_Click(sender As Object, e As EventArgs) Handles btnBackspace.Click
If txtDisplay.Text.Length > 0 Then
txtDisplay.Text = txtDisplay.Text.Substring(0, txtDisplay.Text.Length - 1)
End If
End Sub
Private Sub btnNegative_Click(sender As Object, e As EventArgs) Handles btnNegative.Click
If txtDisplay.Text.Length > 0 Then
If txtDisplay.Text.Substring(0, 1) = "-" Then
txtDisplay.Text = txtDisplay.Text.Substring(1, txtDisplay.Text.Length - 1)
Else
txtDisplay.Text = "-" + txtDisplay.Text
End If
End If

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。