vb四则运算代码

以下是一个简单的VB四则运算代码示例：

Private Sub btnCalculate_Click()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    
    '获取用户输入的数字
    num1 = CDbl(txtNum1.Text)
    num2 = CDbl(txtNum2.Text)
    
    '根据用户选择的运算符进行计算
    Select Case cboOperator.Text
        Case "+"
            result = num1 + num2
        Case "-"
            result = num1 - num2
        Case "*"
            result = num1 * num2
        Case "/"
            If num2 = 0 Then
                MsgBox "除数不能为0"
                Exit Sub
            End If
            result = num1 / num2
    End Select
    
    '显示计算结果
    txtResult.Text = result
End Sub

该代码包含一个按钮(btnCalculate)和三个文本框(txtNum1, txtNum2, txtResult)以及一个下拉列表框(cboOperator)。用户输入两个数字，选择一个运算符，然后单击按钮进行计算。计算结果将显示在txtResult文本框中。

该代码使用了VB的Select Case语句来根据用户选择的运算符进行计算。如果用户选择了除法运算符并且第二个数字为0，则会弹出一个消息框提示用户除数不能为0，并且程序将退出。

以下是一个完整的VB四则运算代码示例，包含了界面设计和代码实现：

Public Class Form1
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Dim num1 As Double
        Dim num2 As Double
        Dim result As Double

        '获取用户输入的数字
        If Not Double.TryParse(txtNum1.Text, num1) Then
            MsgBox("请输入正确的数字")
            txtNum1.Focus()
            Exit Sub
        End If

        If Not Double.TryParse(txtNum2.Text, num2) Then
            MsgBox("请输入正确的数字")
            txtNum2.Focus()
            Exit Sub
        End If

        '根据用户选择的运算符进行计算
        Select Case cboOperator.Text
            Case "+"
                result = num1 + num2
            Case "-"
                result = num1 - num2
            Case "*"
                result = num1 * num2
            Case "/"
                If num2 = 0 Then
                    MsgBox("除数不能为0")
                    txtNum2.Focus()
                    Exit Sub
                End If
                result = num1 / num2
        End Select

        '显示计算结果
        txtResult.Text = result
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        '清空所有文本框和下拉列表框
        txtNum1.Clear()
        txtNum2.Clear()
        txtResult.Clear()
        cboOperator.SelectedIndex = -1
        txtNum1.Focus()
    End Sub
End Class

该代码包含了两个按钮(btnCalculate和btnClear)和四个文本框(txtNum1, txtNum2, txtResult和cboOperator)。用户输入两个数字，选择一个运算符，然后单击btnCalculate按钮进行计算。计算结果将显示在txtResult文本框中。如果用户单击btnClear按钮，则会清空所有文本框和下拉列表框。

该代码使用了VB的TryParse方法来验证用户输入的数字是否正确。如果用户输入的不是数字，则会弹出一个消息框提示用户输入正确的数字，并且程序将退出。如果用户选择了除法运算符并且第二个数字为0，则会弹出一个消息框提示用户除数不能为0，并且程序将退出。