求二进制转十六进制VB代码！！急急急急急

如题所述

推荐答案 2009-06-24

Private Function Two16(ByVal X As String) As String '把二进制数转化为十六进制数
Do While Len(X) Mod 4 <> 0
X = "0" + X
Loop
Do While Len(X) > 0
Select Case Right(X, 4)
Case "0000"
Two16 = "0" + Two16
Case "0001"
Two16 = "1" + Two16
Case "0010"
Two16 = "2" + Two16
Case "0011"
Two16 = "3" + Two16
Case "0100"
Two16 = "4" + Two16
Case "0101"
Two16 = "5" + Two16
Case "0110"
Two16 = "6" + Two16
Case "0111"
Two16 = "7" + Two16
Case "1000"
Two16 = "8" + Two16
Case "1001"
Two16 = "9" + Two16
Case "1010"
Two16 = "A" + Two16
Case "1011"
Two16 = "B" + Two16
Case "1100"
Two16 = "C" + Two16
Case "1101"
Two16 = "D" + Two16
Case "1110"
Two16 = "E" + Two16
Case "1111"
Two16 = "F" + Two16
End Select
X = Left(X, Len(X) - 4)
Loop
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/GvYqIIqqY.html

其他回答

第1个回答 2020-01-15

直接调用就行，如print
two16("01000001")
private
function
two16(byval
x
as
string)
as
string
'把二进制数转化为十六进制数
do
while
len(x)
mod
4
<>
0
x
=
"0"
+
x
loop
do
while
len(x)
>
0
select
case
right(x,
4)
case
"0000"
two16
=
"0"
+
two16
case
"0001"
two16
=
"1"
+
two16
case
"0010"
two16
=
"2"
+
two16
case
"0011"
two16
=
"3"
+
two16
case
"0100"
two16
=
"4"
+
two16
case
"0101"
two16
=
"5"
+
two16
case
"0110"
two16
=
"6"
+
two16
case
"0111"
two16
=
"7"
+
two16
case
"1000"
two16
=
"8"
+
two16
case
"1001"
two16
=
"9"
+
two16
case
"1010"
two16
=
"a"
+
two16
case
"1011"
two16
=
"b"
+
two16
case
"1100"
two16
=
"c"
+
two16
case
"1101"
two16
=
"d"
+
two16
case
"1110"
two16
=
"e"
+
two16
case
"1111"
two16
=
"f"
+
two16
end
select
x
=
left(x,
len(x)
-
4)
loop
end
function

相似回答

二进制转换成十六进制VB代码答：' 用途：将二进制转化为十六进制 ' 输入：Bin(二进制数)' 输入数据类型：String ' 输出：BIN_to_HEX(十六进制数)' 输出数据类型：String ' 输入的最大数为2147483647个字符 Public Function BIN_to_HEX(ByVal Bin As String) As String Dim i As Long Dim H As String If Len(Bin) Mod 4...

二进制转换成十六进制的VB代码答：' 用途：将二进制转化为十六进制 ' 输入：Bin(二进制数)' 输入数据类型：String ' 输出：BIN_to_HEX(十六进制数)' 输出数据类型：String ' 输入的最大数为2147483647个字符 Public Function BIN_to_HEX(ByVal Bin As String) As String Dim i As Long Dim H As String If Len(Bin) Mod 4...

VB 二进制转化为十六进制答：' 用途：将二进制转化为十进制 ' 输入：Bin(二进制数)' 输入数据类型：String ' 输出：BIN_to_DEC(十进制数)' 输出数据类型：Long ' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647 Public Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As L...

求二进制转十六进制VB代码答：直接调用就行，如print two16("01000001")Private Function Two16(ByVal X As String) As String '把二进制数转化为十六进制数 Do While Len(X) Mod 4 <> 0 X = "0" + X Loop Do While Len(X) > 0 Select Case Right(X, 4)Case "0000"Two16 = "0" + Two16 Case "0001"Two...

求VB 二进制转十六进制代码 ,不用到Hex之类的函数,就用DIm语句。急用...答：N = "111000111" ’待转换的二进制数 If Len(N) Mod 4 <> 0 Then N = String(4 - Len(N) Mod 4, "0") & N Dim intXh As Integer, i As Integer, j As Integer, tmp As String intXh = Len(N) \ 4 For i = 1 To intXh tmp = Right(N, 4)For j = 0 To 15 I...

二进制转十进制,二进制转八进制,二进制转十六进制,咋个转换啊,算法(VB...答：中文的，应该不用解释 进制转换(1011,2,10)进制转换(1011,2,8)进制转换(1011,2,16)Function 进制转换(ByVal 被转换文本 As String, 被转换进制 As Integer, 转换的进制 As Integer) As String '进行转换的子程序 '转换自易语言例程 Dim 欲转换文本 As String '输入的文本串 Dim 临时文本 ...

在VB中,如何将二进制文件 转换为十六进制文件答：-_- 没有16进制的文件所谓的 二进制文件*.dat 是叫做binary file 不过此二进制非彼二进制。 vb里面换到十六进制有个function 是 Hex()这里放一个string

大家正在搜

二进制十进制八进制十六进制二进制转十六进制代码二进制转十六进制二进制转十六进制编程二进制转十六进制方法十六进制ab转二进制 c语言二进制转十六进制十六进制转二进制例题十六进制转二进制表格