请问如何把二进制转换成十六进制？

[ufzha]

请问VB中如何把二进制转换成十六进制？有无转换函数？

[Sunnuy]

直接用Hex()

[foolishtiger]

先用如下函数把二进制转换成十进制,然后再用Hex就转换成了十六进制了.

Private Function ConvertBinToDec(strBin As String) As String
Dim tmpVal As String, iCount As Long
Dim tmpV As String
For iCount = 1 To Len(strBin)
tmpVal = Val(tmpVal) + Val(Mid$(strBin, iCount, 1)) * (2 ^ (Len(strBin) - iCount))
Next iCount

ConvertBinToDec = tmpVal
End Function

[无所不能的名侦探]

Private Sub Command1_Click()
Text1.Text = Hex(Number)
End Sub

[fraser01]

还是蚊子说的对，
to：erryin(芮晨)人家要的是二进制到16进制。
有个思路可以用，2进制与16进制是4位关系。

[ufzha]

多谢各位。