计算器.bas

来自「科学计算器」· BAS 代码 · 共 18 行

Attribute VB_Name = "Module1"
Option Explicit
Global Const pi As Double = 3.14159265358979

Sub total(a, c, b)
    Select Case b
        Case 0
            a = a + c
        Case 1
            a = a - c
        Case 2
            a = a * c
        Case 3
            If c = 0 Then MsgBox "0不能做除数", vbCritical: Exit Sub
            a = a / c
    End Select
End Sub