dim a as integer dim b as integer dim c as integer c=a xor b
&H49 and &H50 &H49 or &H50 ok!!!!!
Private Sub Form_Paint() Dim inta, intb As Integer inta = 1 intb = 1 Print "1与1" Print "相与的结果"; inta And intb Print "相非的结果"; inta Or intb Print "相异或的结果"; inta Xor intb End Sub '主要是"and","or","xor"的使用.......
dim b as integer
dim c as integer
c=a xor b
&H49 or &H50
ok!!!!!
Dim inta, intb As Integer
inta = 1
intb = 1
Print "1与1"
Print "相与的结果"; inta And intb
Print "相非的结果"; inta Or intb
Print "相异或的结果"; inta Xor intb
End Sub
'主要是"and","or","xor"的使用.......