
dim iNumTempe& iNumTempe = &HF874 iNumTempe = (iNumTempe And &HFFFF&)\16& '下面是对负数的判断和转换 if ((iNumTempe And &HF00)=&HF00) then iNumTempe = iNumTempe Xor 4095 '输出 debug.print iNumTempe

dim iNumTempe& iNumTempe = &HF874 iNumTempe = (iNumTempe And &HFFFF&)\16& '下面是对负数的判断和转换 if ((iNumTempe And &HF00)=&HF00) then iNumTempe = iNumTempe Xor 4095 '输出 debug.print iNumTempe