Question

vb6.0中如何将如原始数据为string型的(二进制)"110110101",转换成16进制，在textbox中输出

急用啊！大家帮帮忙啊！

Answer 1

数据为string型的(二进制)"110110101"？

我只提供把字符串转换成十六进制，你说的我不明白。
Dim i As Integer
For i = 1 To Len(s)
Print Hex(Asc(Mid(s, i, 1)))
Next i

Answer 2

用途：将二 进 制转化为十六进制
' 输入：Bin(二 进 制数)
' 输入数据类型：String
' 输出：BIN_to_HEX(十六进制数)
' 输出数据类型：String
' 输入的最大数为2147483647个字符
'调用举例：text1.text=BIN_to_HEX("110110101")

Public Function BIN_to_HEX(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 4 <> 0 Then
Bin = String(4 - Len(Bin) Mod 4, "0") & Bin
End If

For i = 1 To Len(Bin) Step 4
Select Case Mid(Bin, i, 4)
Case "0000": H = H & "0"
Case "0001": H = H & "1"
Case "0010": H = H & "2"
Case "0011": H = H & "3"
Case "0100": H = H & "4"
Case "0101": H = H & "5"
Case "0110": H = H & "6"
Case "0111": H = H & "7"
Case "1000": H = H & "8"
Case "1001": H = H & "9"
Case "1010": H = H & "A"
Case "1011": H = H & "B"
Case "1100": H = H & "C"
Case "1101": H = H & "D"
Case "1110": H = H & "E"
Case "1111": H = H & "F"
End Select
Next i
While Left(H, 1) = "0"
H = Right(H, Len(H) - 1)
Wend
BIN_to_HEX = H
End Function