请教在VB将十六制数转换成二进制数

2025-02-22 10:30:09

推荐回答（1个）

回答1：

VB将十六制数转换成二进制数需要编写自定义函数解决。
Option Explicit
Dim sBin
Dim sHex
Dim sHex1
Dim BinData
Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
Dim yTemp() As Byte

Public Function HexToBin(ByVal sHex As String) As String
Dim i As Integer, sBin As String
sHex = UCase(sHex)
For i = 1 To Len(sHex)
sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)
Next i
HexToBin = sBin
BinData = sBin
End Function
Private Sub Command1_Click()
sHex = Text1
Call HexToBin(sHex)
Text2 = BinData
End Sub