VBA的运算符号

 

VBA常用运算符

• 常规数学运算符：     +   -   *    /   ^
• 特殊数学运算符：    \ 整除      mod 取余数 
• 其他运算符：            &  ()  

 

• 比较运算符：             =赋值   <  >  <= >=
• 特殊比较符：           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     '去余数
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

 

 

 

 

有几个  还有问题

 

 

他们的真值表如下 (图片转载)