vb程序设计经典例题代码

admin 2024年01月21日 10:45 32 0

以下是一个简单的 Visual Basic 程序设计经典例题代码，该代码实现了一个简单的计算器程序，可以进行加、减、乘、除运算：

Private Sub btnAdd_Click()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    
    num1 = CDbl(txtNum1.Text)
    num2 = CDbl(txtNum2.Text)
    result = num1 + num2
    txtResult.Text = result
End Sub

Private Sub btnSubtract_Click()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    
    num1 = CDbl(txtNum1.Text)
    num2 = CDbl(txtNum2.Text)
    result = num1 - num2
    txtResult.Text = result
End Sub

Private Sub btnMultiply_Click()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    
    num1 = CDbl(txtNum1.Text)
    num2 = CDbl(txtNum2.Text)
    result = num1 * num2
    txtResult.Text = result
End Sub

Private Sub btnDivide_Click()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    
    num1 = CDbl(txtNum1.Text)
    num2 = CDbl(txtNum2.Text)
    If num2 <> 0 Then
        result = num1 / num2
        txtResult.Text = result
    Else
        MsgBox "Error: Division by zero is not allowed!"
    End If
End Sub

该代码中，每个按钮的 Click 事件处理程序都执行相应的数学运算，并将结果显示在文本框中，在除法运算中需要进行除数不为零的判断，以避免出现除以零的错误。