Question

vb 10进制转16进制显示时，不足两位的怎么在前面加0，大于两位的带空格

比如 01 01，FF FF。

Answer 1

Function Dec2Hex(x As Long) As String
    '此函数的作用是把整数转换为16进制数，并以你指定的样式显示
    '用法示例： MsgBox Dec2Hex(498)
    Dim t As String, i As Integer
    t = Hex(x)
    If Len(t) Mod 2 = 1 Then t = "0" & t
    For i = 1 To Len(t) Step 2
        If Dec2Hex <> "" Then Dec2Hex = Dec2Hex & " "
        Dec2Hex = Dec2Hex & Mid(t, i, 2)
    Next
End Function

追问

If Dec2Hex "" Then Dec2Hex = Dec2Hex & " "
这个不等于空是什么意思啊

追答

因为你要的结果不需要在前面加空格，只需要在中间插入空格。如果Dec2Hex等于空，说明是刚开始，所以不加空格

你怎么能采纳他的答案呢？我花半小时搞出的代码白搞了！

追问

我没刷新就去采纳了，不好意思，你也不差这点经验哈

我当时用了另一个方法也得出来了，但是很繁琐

 

追答

你的代码为什么要先把字符串一个个字符取出来，然后又一个个拼起来呢？这完全就是无用功嘛！
另外，你的最终结果最后面会多出一个空格。
除此之外，你的代码跟我的就差不多了。

Answer 2

有什么难呢

不足两位的先加 0，再取后2位，不就行了？ 或者直接 加 0