'在窗體建一個(gè)命令按鈕Command1
'1.
Private Sub Command1_Click()
Dim s, a, b, c As Integer
a = 3
b = 4
c = 5
s = a Or b + c And b - c
s1 = 3 Or 9 And -1
'算術(shù)運(yùn)算符優(yōu)先級(jí)最高,即表達(dá)式s=s1= 3 Or 9 And -1
'or和and同級(jí)按先后
'當(dāng)and在兩個(gè)數(shù)字中間時(shí),and運(yùn)算符就不是邏輯與運(yùn)算符而是位與運(yùn)算符了,3or9換成二進(jìn)制就是11or1001=1011,十進(jìn)制是11
'11and-1換成二進(jìn)制是1011and11=1011,十進(jìn)制是11,所以結(jié)果是11
Print s1, s
End Sub
'2.
Private Sub Command1_Click()
s = Not 4 * (76 - 43) ^ 2 And 5 < 4 Or 5 - 3 > 0 '先算術(shù)運(yùn)算,其次比較運(yùn)算得s1
s1 = Not 4356 And False Or True '即s2
s2 = -4356 And False Or True '即s3
s3 = 0 Or True '結(jié)果為-1
Print s, s1, s2, s3
End Sub