同标题

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim atype As Long
    'atype=00000000 00000000 11111111 11111111
    atype = &HFFFF&
    '          00000000 00000000 11111111 11111111
    'atype=and 00000000 00000000 11111111 00000000
    atype = atype And &HFF00&
    MsgBox atype
    End Sub
    参考
      

  2.   

    '十六进制转为十进制
    Public Function SixteenTurnTen(ByVal varNum As String) As String
        SixteenTurnTen = Val("&H" & CStr(varNum))
    End Function'十进制转为十六进制
    Public Function TenTurnSixteen(ByVal varNum As Long) As String
        TenTurnSixteen = Hex(varNum)
    End Function十进制做运算,然后转化。
      

  3.   

    你想怎么运算?
    不管是什么进制,数字还是数字啊,不管你+-*/或者or,and,xor,随你怎么运算都是一样,进制不同只是表示方法不一样而已,实质是一回事
    10进制直接写  123&    *   456   =  56088 
    8进制 &O      &o173&  *  &o710  =  56088
    16进制 &H     &h1C8&  *  &h7B   =  56088
      

  4.   

    折合成10进制运算,然后用16进制表示。debug.print hex(x)