vb代码编程实例

admin 2024年01月08日 03:12 28 0

VB代码编程实例：一个简单的计算器

在Visual Basic (VB)中，我们可以编写各种应用程序，包括计算器，下面是一个简单的VB计算器代码实例，这个计算器可以进行基本的加、减、乘、除运算。

Public Class Form1
    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

        result = num1 + num2
        lblResult.Text = "结果是: " & result
    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

        result = num1 - num2
        lblResult.Text = "结果是: " & result
    End Sub

    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

        result = num1 * num2
        lblResult.Text = "结果是: " & result
    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)
        Dim result As Double

        If num2 <> 0 Then
            result = num1 / num2
            lblResult.Text = "结果是: " & result
        Else
            MessageBox.Show("除数不能为0")
        End If
    End Sub
End Class

这个代码实例创建了一个简单的计算器，用户可以在两个文本框中输入数字，然后通过点击按钮进行加、减、乘、除运算，运算结果会显示在标签控件中，这个代码没有处理可能的输入错误，比如用户可能输入非数字字符或者空的文本框，在实际的应用程序中，你可能需要添加更多的错误处理代码来确保程序的健壮性。