常規(guī)數(shù)學運算符： + - * / ^
特殊數(shù)學運算符： \ 整除 mod 取余數(shù)
其他運算符： & ()
比較運算符： =賦值 < > <= >=
特殊比較符： is like
邏輯運算符 ： and or xor not
Xor同假異真 Eqv同真異假 Imp 先真后假才為真
XOR 邏輯排除。它是NOT和OR運算符的組合翠忠。如果表達式中只有一個表達式的值為True敦捧，則結果為True臂聋。表示兩者不同時為真晚顷，相同時為假
EQV隧期，表示兩者相同是為真按声，不同是為假
imp邏輯蘊含
'Sub 計算測試()
Dim arr1(30)
arr1(0) = 99
arr1(1) = 1 + 2
arr1(2) = 2 - 1
arr1(3) = 3 * 5
arr1(4) = 10 / 3 '除法
arr1(5) = 10 \ 3 '整除
arr1(6) = 10 Mod 3 '去余數(shù)
arr1(7) = (1 + 3) / 2
arr1(11) = "a" & "b"
arr1(12) = "a" + "b" '字符串可以相加
arr1(13) = 1 >= 2
arr1(14) = 1 <= 2
arr1(15) = (1 = 2)
arr1(16) = (1 = 1)
Dim a As Object
Dim b As Object
Dim c As Object
Set a = b
arr1(17) = a Is b 'is只能用于比較對象是否完全一樣
arr1(18) = Not a Is b
arr1(19) = a Is c '因為a,b,c 都是空對象燃少，可以相等
arr1(21) = "test1.xlsm" Like "*.xlsm" 'like 比較需要 ""之內的內容
arr1(22) = (1 > 2) And (1 < 2)
arr1(23) = (1 > 2) Or (1 < 2)
arr1(30) = (1 > 2) Eqv (1 < 2)
'arr1(31) = True Eqv True
'arr1(32) = 1 Eqv 2
'arr1(33) = 1 Eqv 1
'arr1(34) = (1 > 2) Xor (1 < 2)
'arr1(35) = (1 > 2) Xor (1 > 2)
'arr1(36) = 1 Xor 2
'arr1(37) = 1 Xor 1
'arr1(38) = (3 > 2) Imp (5 > 2) '邏輯包含關系
'arr1(39) = (1 < 2) Imp (1 < 3)
'arr1(40) = (1 < 2) Imp (1 < 2)
For i = LBound(arr1) To UBound(arr1)
Debug.Print "arr1(" & i & ")= " & arr1(i)
Next
End Sub
運算結果
arr1(0)= 99
arr1(1)= 3
arr1(2)= 1
arr1(3)= 15
arr1(4)= 3.33333333333333
arr1(5)= 3
arr1(6)= 1
arr1(7)= 2
arr1(8)=
arr1(9)=
arr1(10)=
arr1(11)= ab
arr1(12)= ab
arr1(13)= False
arr1(14)= True
arr1(15)= False
arr1(16)= True
arr1(17)= True
arr1(18)= False
arr1(19)= True
arr1(20)=
arr1(21)= True
arr1(22)= False
arr1(23)= True
arr1(24)=
arr1(25)=
arr1(26)=
arr1(27)=
arr1(28)=
arr1(29)=
arr1(30)= False
