'此函数用于十进制到二进制
创新互联公司专注于隆安企业网站建设,响应式网站设计,商城网站制作。隆安网站建设公司,为隆安等地区提供建站服务。全流程按需策划设计，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
Private Function Bin(Number As Long) As Long
Dim Div_value As String
Do
Div_value = (Number Mod 2) Div_value
Number = Int(Number / 2)
Loop Until Number 2
Bin = Number Div_value
End Function
'此函数用于二进制到十进制
Private Function value_Bin(Number As Long) As Long
Dim Temp_value As Long, Cyc As Long
For Cyc = 0 To Len(Str(Number))
If Cyc = Len(Str(Number)) Then
value_Bin = Temp_value + Val(Mid(Str(Number), Cyc, 1))
Exit For
End If
If Cyc 0 Then Temp_value = (Temp_value + Val(Mid(Str(Number), Cyc, 1))) * 2
Next Cyc
End Function
'====写入以上函数后转值操作：
'十进制到十六进制：Hex(十进制数值)
'十进制到八进制：Oct(十进制数值)
'十进制到二进制：Bin(十进制数值)
'二进制到十进制：value_Bin(二进制数值)
'八进制到十进制：Val("O" 八进制数值)
'十六进制到十进制：Val("H" 十六进制数值)
比如
msgbox DEC_to_BIN(10)
就会返回一个10转换为十进制后的结果
或者简单点就用
VB自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("H" num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("O" num)
十六进制转换为十进制
Dim str As String
str = Text2.Text
Text10.Text = CLng("H" str)
我虽然没有学过VB，但也知道关于八进制及十六进制转换为二进制的要求：
八进制转化为二进制的要求：八进制数中的一个数字用三位的二进制数表示如：
0（八进制）=000（二进制），1（八进制）=001（二进制），2（八进制）=010（二进制），3（八进制）=011（二进制），4（八进制）=100（二进制），
5（八进制）=101（二进制），6（八进制）=110（二进制），7（八进制）=111（二进制）。
十六进制转换为二进制的要求：十六进制数中的一个数字用四位的二进制数表示：0（十六进制）=0000（二进制），1（十六进制）=0001（二进制），
2（十六进制）=0010（二进制），3（十六进制）0011（二进制），
4（十六进制）=0100（二进制），5（十六进制）=0101（二进制），
6（十六进制）=0110（二进制），7（十六进制）=0111（二进制），
8（十六进制）=1000（二进制），9（十六进制）=1001（二进制）
A（十六进制）=1010（二进制），B（十六进制）=1011（二进制），
C（十六进制）=1100（二进制），D(十六进制）=1101（二进制），
E（十六进制）=1110（二进制），F（十六进制）=1111（二进制）。
至于VB吗？用的就是这些二进制代码，无非是将这些代码代入VB得公式（格式）中罢了。如果学计算机这些代码在什么地方都能用到。叫你记这些代码的窍门：
记八进制转换为二进制的时候，将这八个数字在十进制数（0到111）中找出只有用（0或1）表示的数字来，凑够二进制的三位就可以（但必须按照数的顺序才可以）。同样十六进制转换为二进制的时候，就是将这十六个数字在十进制数（0至1111）中找出只有用（0或1）表示的的数字就可以了。
如果你还看出巧法：那就是记住八进制中的8个数字在前面加上一个“0”就是十六进制转换为二进制的前八个数字代码了！！！！！！
嘿嘿嘿嘿！慢慢记吧，在计算机中像这样的代码什么地方都用到，只是问法不同而已。祝你好运！！！！！！
Oct
函数
返回
Variant
(String)，代表一数值的八进制值。
语法
Oct(number)
必要的
number
参数为任何有效的数值表达式或字符串表达式。
说明
如果
number
尚非整数，那么在执行前会先四舍五入成最接近的整数。
如果
number
为
Oct
返回
Null
Null
Empty
零
(0)
任何其他的数字
最多可到
11
个八进制字符。
可以将适当范围的数前缀以
O
来直接表示八进制数字。例如，八进制表示法的
O10
代表十进制的
8。
Oct
函数示例
本示例使用
Oct
函数将某数值转换为
8
进制表达式。
Dim
MyOct
MyOct
=
Oct(4)
'
返回
4。
MyOct
=
Oct(8)
'
返回
10。
MyOct
=
Oct(459)
'
返回
713。