Private Sub Command1_Click()
Dim n As String, h As String, i As Integer, c As String
n = Trim(Text1.Text)
If Not (IsNumeric(n) And Val(n) > 0 And Int(n) = Val(n)) Then '判斷n非數(shù)字、非正數(shù)、非整數(shù)情況
MsgBox "輸入數(shù)字符n非正整數(shù)，請(qǐng)確認(rèn)退出!", vbOKOnly
Exit Sub
End If
h = Hex(Val(n)) '將n轉(zhuǎn)換成16進(jìn)制
c = ""
For i = 1 To Len(h)
c = c & Hex2Bin(Mid(h, i, 1))
Next
Print c
End Sub
Function Hex2Bin(ByVal str As String) '自定義函數(shù)16進(jìn)制轉(zhuǎn)換成2進(jìn)制
Select Case UCase(str)
Case "0": Hex2Bin = "0000"
Case "1": Hex2Bin = "0001"
Case "2": Hex2Bin = "0010"
Case "3": Hex2Bin = "0011"
Case "4": Hex2Bin = "0100"
Case "5": Hex2Bin = "0101"
Case "6": Hex2Bin = "0110"
Case "7": Hex2Bin = "0111"
Case "8": Hex2Bin = "1000"
Case "9": Hex2Bin = "1001"
Case "A": Hex2Bin = "1011"
Case "B": Hex2Bin = "1100"
Case "C": Hex2Bin = "1101"
Case "D": Hex2Bin = "1110"
Case "E": Hex2Bin = "1111"
End Select
End Function

n=" 2.17 "
注意：2.17前有一個(gè)空格，這是str的原因
比如：a="1"，則str(a)=" 1"，會(huì)多出一個(gè)空格