stem = Bin(x)
For i = 1 To 12 - Len(stem)
stem = "0" + stem
Next i
For i = 1 To 4
stem = "1" + stem
Next i
For i = 0 To 15
dout(i) = Hex(Val(Mid$(stem, i + 1, 1)))
Next i

Bin(x)是将x转化为二进制形式（以字符串输出）

假设stem = "11111111" (FF)
For i = 1 To 12 - Len(stem)
stem = "0" + stem
Next i
'把它用前导0补到12位
'stem="000011111111"

For i = 1 To 4
stem = "1" + stem
Next i
'再在前面补个F，就是4个1
‘'stem="1111000011111111"

For i = 0 To 15
dout(i) = Hex(Val(Mid$(stem, i + 1, 1)))
Next i
'把每一位保存到dout这个数组中……（只有0，1，不懂为什么这么麻烦还val,hex=.=）

谢了