十进制整数转二进制数:“除以2取余,逆序排列”(除二取余法)。[1]
以十进制数11转换为二进制数为例:
那么十进制数11转换为二进制数就是00001011。
VB6.0可通过编辑一个自定义函数过程来求得十进制数0-255的二进制字符串。
Funtion 过程,Visual Basic 包含内置的、或内部的函数,如 Sqr、Cos 、Chr或Hex函数。此外,还可用 Function 语句编写自己的 Function 过程。
在 Visual Basic 中调用 Function 过程的方法和调用任何内部函数的方法是一样的。
实施代码:
Option Explicit
Dim sBin
Dim sHex
Dim BinData
Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
Dim i As Integer
Dim j As Integer
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()
j = Val(Text1)
If Len(Hex(j)) = 1 Then
sHex = "0" & Hex(j)
Else
sHex = Hex(j)
End If
Call HexToBin(sHex)
Text2 = BinData
End Sub
在Text1文本框输入0-255的整数,点Command1按钮,Text2文本框就输出该数的二进制字符串。
参考:
[1]
http://baike.baidu.com/link?url=3O3LTqT7J4gpTM05DL6bjQoJbRKqx2WyGC7VkxYYfJyCwJcGBVzzUmUqfleAtliyaYhJA250V8XoWde8-EvJiK