vb中，如何把十进制转换为二进制

[zcfhero]

Private Sub tran_Click()
x = Val(D_in.Text)
If x > 0 Then
For i = 0 To 31
a(i) = x Mod 2
x = x \ 2
Next i
B_out.Text = a(i)
End If
End sub
有什么问题，总是不能正常运行

[whatinrain]

试试看这个：

Dim x As Integer
Dim i As Integer
B_Out.Text = ""
x = Val(D_In.Text)
If x > 0 Then
For i = 0 To 31
B_Out.Text = CStr(x Mod 2).Trim + B_Out.Text
x = x \ 2
Next i
End If

[cbm6666]

'添加Text1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then MsgBox Format(D2B(Val(Text1.Text)), "00000000"): KeyAscii = 0
End Sub

Public Function D2B(ByVal Dec As Long) As String
Do
D2B = Dec Mod 2 & D2B
Dec = Dec \ 2
Loop While Dec
End Function

[碧海情天-赵亮]

另外一个方法是，可以先用HEX函数把十进制数转换成HEX串，然后对每个HEX值（比如7F的7和F，单个单个来）转换成对应的二进制形式

[东方之珠]

Look at book!

[zdingyun]

以下代码根据z_wenqian 昵称：网络共享者的代码修改，详细见：http://topic.csdn.net/u/20080108/14/67783c1e-1a7e-4613-904c-dda5e08a380b.html

Option Explicit
    Dim sBin As String
    Dim sHex As String
Private Sub Command1_Click()
    sHex = Text1
    HexToBin (sHex)
    Text2 = sBin
    sBin = ""
End Sub

Private Sub Form_Load()
    Text1 = ""
End Sub

Public Function HexToBin(ByVal sHex As String) As String '处理16进制转换2进制代码
    Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
    Dim i As Integer
    sHex = UCase(sHex)
    For i = 1 To Len(sHex)
        sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)
    Next i
End Function

[zdingyun]

前代码不能处理负数

Option Explicit
    Dim sBin As String
    Dim sHex As String
Private Sub Command1_Click()
    sHex = Hex(Val(Text1))
    Text2 = sHex
    HexToBin (sHex)
    Text3 = sBin
    sBin = ""
End Sub

Private Sub Form_Load()
    Text1 = ""
End Sub

Public Function HexToBin(ByVal sHex As String) As String '处理16进制转换2进制代码
    Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
    Dim i As Integer
    sHex = UCase(sHex)
    For i = 1 To Len(sHex)
        sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)
    Next i
End Function

[barenx]

[Quote=引用 3 楼 theforever 的回复:]
另外一个方法是，可以先用HEX函数把十进制数转换成HEX串，然后对每个HEX值（比如7F的7和F，单个单个来）转换成对应的二进制形式
[/Quote]
将0-F做成表，然后使用hex函数查表连接字符数组

[lym616]

dim a as integer
dim b as byte
b=cbyt(a)
这样好像就可以

[Li103ZzZ]

7楼代码写的不错

[masteryuri]

楼主要的应该是那个除2求余的方法实现把
Private Sub tran_Click()
Dim x As Long
Dim Out As String
x = CLng(Text1.Text)
Do

z = x Mod 2
x = (x - z) / 2
Out = CStr(z) & Out
Loop While x > 0
Text2.Text = Out
End sub

[knowledge_Is_Life]

这个简单啊,网上搜一下就得到答案了.

[meiZiNick]

好像没那么简单,呵呵.