设计一个带计算功能的VBA程序
时间: 2024-05-07 19:23:20 浏览: 9
以下是一个简单的VBA程序,可以实现加、减、乘、除四则运算的计算器功能:
```
Sub Calculator()
Dim num1 As Double
Dim num2 As Double
Dim operator As String
Dim result As Double
num1 = InputBox("请输入第一个数字:")
operator = InputBox("请输入运算符(+、-、*、/):")
num2 = InputBox("请输入第二个数字:")
If operator = "+" Then
result = num1 + num2
ElseIf operator = "-" Then
result = num1 - num2
ElseIf operator = "*" Then
result = num1 * num2
ElseIf operator = "/" Then
If num2 = 0 Then
MsgBox "除数不能为0!"
Exit Sub
Else
result = num1 / num2
End If
Else
MsgBox "无效的运算符!"
Exit Sub
End If
MsgBox "结果是:" & result
End Sub
```
运行这个程序后,会提示输入两个数字和一个运算符,然后根据运算符进行相应的计算,并输出结果。如果输入的运算符无效或除数为0,则会提示错误信息。