Hex

应用示例

'!TITLE "将十进制转换成十六进制的值作为字符串获取"
' 将十进制的200转换成十六进制
Sub Sample_Hex

  Dim aaa As Integer
  Dim bbb As String

  aaa = 200

  ' 将200转换成十六进制，并代入bbb中
  bbb = Hex( aaa )

  ' 在讯息输出视窗中显示"C8"
  PrintDbg bbb

End Sub

  Debug.Print Hex(1000) '"3E8"。
  Debug.Print Hex(-2) '"FFFE"。