装修问答

以下为需要使用的新命令
End Enum
Public Function Calculation(Optional x = 0,加, Optional Arithmetic As Arithmetic,y)进行计算
可以为msgbox x, Optional y = 0)
On Error Resume Next
Select Case Arithmetic
Case 加法
Calculation = x + y
Case 减法
Calculation = x - y
Case 乘法
Calculation = x * y
Case 除法
Calculation = x / y
End Select
End Function
在formload中调用 Calculation(x,加减乘除添加一个模块
Public Enum Arithmetic
加法 = 0
乘法 = 1
减法 = 2
除法 = 3
'

网上有很多，你自己去搜吧，或者把书上的代码自己输入运行就可以了。