powerbat

Dim a
a=3
Select Case true
    Case a=0
        MsgBox "等于0",,"结果"
    Case a>0 
        MsgBox "大于0",,"结果"
    Case a<0 
        MsgBox "小于0",,"结果"
End Select
复制代码