VB程序设计——加减乘除运算器
在VB程序设计中，我们可以创建一个简单的加减乘除运算器。运算器的功能是接收用户输入的两个数和运算符，并根据运算符进行相应的计算，最后将结果输出给用户。
接下来，我们需要编写程序来实现计算功能。在窗体代码中，我们可以编写一个函数来处理加减乘除运算。函数代码如下：
```vb
Private Function Calculate(num1 As Double, num2 As Double, operator As String) As Double
Select Case operator
Case "+"
Return num1 + num2
Case "-"
Return num1 - num2
vb程序设计简单吗Case "*"
Return num1 * num2
Case "/"
If num2 <> 0 Then
Return num1 / num2
Else
MessageBox.Show("除数不能为零！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Double.NaN
End If
Case Else
MessageBox.Show("运算符不合法！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Double.NaN
End Select
End Function
```
这个函数接收两个数值和一个运算符作为参数，并根据运算符的值进行相应的计算。如果运算符不合法或者除数为零，则会弹出一个错误提示框。
```vb
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim num1 As Double
Dim num2 As Double
If Double.TryParse(txtNum1.Text, num1) AndAlso Double.TryParse(txtNum2.Text, num2) Then
Dim result As Double = Calculate(num1, num2, cmbOperator.SelectedItem.ToString()
If Not Double.IsNaN(result) Then
lblResult.Text = result.ToString
End If
Else
MessageBox.Show("请输入有效的数值！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
```
最后，我们可以在窗体的Load事件处理程序中为下拉列表框添加运算符选项。代码如下：
```vb
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cmbOperator.Items.AddRange({"+", "-", "*", "/"})
cmbOperator.SelectedIndex = 0
End Sub
```
这段代码简单地将四个运算符添加到下拉列表框中，并将默认选项设置为加号。

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