日本制药企业排名2016:16进制的737F转化为2进制应该是多少？

0111001101111111
16进制数转为二进制需通过编程解决,以下给出VB的代码:
Option Explicit
Dim bl As String * 1
Dim ccl(7) As String
Dim ccll(7) As String
Dim bl_dm As String
Dim zt_dm1 As String
Dim i As Integer
Dim j As Integer
Dim bll As String

Private Sub Command1_Click()
bll = "737F"
Call hex_bin
End Sub

Public Function hex_bin()
For i = 1 To 4
ccl(i) = Mid(bll, i, 1)
Next i
For j = 1 To 4
bl = ccl(j)
If bl = "F" Then
bl_dm = "1111"
ElseIf bl = "E" Then
bl_dm = "1110"
ElseIf bl = "D" Then
bl_dm = "1101"
ElseIf bl = "C" Then
bl_dm = "1100"
ElseIf bl = "B" Then
bl_dm = "1011"
ElseIf bl = "A" Then
bl_dm = "1010"
ElseIf bl = "9" Then
bl_dm = "1001"
ElseIf bl = "8" Then
bl_dm = "1000"
ElseIf bl = "7" Then
bl_dm = "0111"
ElseIf bl = "6" Then
bl_dm = "0110"
ElseIf bl = "5" Then
bl_dm = "0101"
ElseIf bl = "4" Then
bl_dm = "0100"
ElseIf bl = "3" Then
bl_dm = "0011"
ElseIf bl = "2" Then
bl_dm = "0010"
ElseIf bl = "1" Then
bl_dm = "0001"
ElseIf bl = "0" Then
bl_dm = "0000"
Else:
bl_dm = ""
End If
ccll(j) = bl_dm
Next j
zt_dm1 = ccll(1) + ccll(2) + ccll(3) + ccll(4)
Text1 = zt_dm1
End Function

111001101111111

111001101111111
每四位二进制数代表1位16进制数

737F
16进制 2进制
7 0111
3 0011
7 0111
F 1111
组合起来就是0111001101111111
省略第一个0后就是111001101111111

先将数字分解成7/3/7/F，而F在十六进制相当于15则将分解看成7/3/7/15，将这四个数分别转换成四位二进制就0111/0011/0111/1111（转换后不足四位则在前面补0），最后得到的答案就是111001101111111（最前面的0忽略不记）