Question

vb 十进制转化为二进制！

如 在文本框输入一个十进制数 ，然后在另一个文本框输出它对应的二进制数？ 高手 给我说说吧！ 我没有作出来。给代码 ！谢谢了

Answer 1

1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。

2、定义一个实型变量，保存计算的十进制小数。

3、输入一个十进制小数，保存在变量d中。

4、do-while循环中，将十进制小数乘以2。

5、取十进制数的整数部分，保存在变量b中。

6、输出该位的二进制数，同时将十进制数的整数部分减掉。

7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。

Answer 2

Private Sub Command1_Click()
Dim x As Long
ch = "012"
x = Val(Text1.Text)
If x = 0 Then
Text2.Text = 0
Exit Sub
End If
Do While x > 0
s = x Mod 2
x = Int(x / 2)
y = Mid(ch, s + 1, 1) + y '换码反序加入
Loop
Text2.Text = y
End Sub
如果满意的话，请给加几分吧，我的都快不够用啦。谢谢啦............

Answer 3

给你个函数，直接调用就得到了二进制的字符串

' 用途：将十进制转化为二进制
' 输入：Dec(十进制数)
' 输入数据类型：Long
' 输出：DEC_to_BIN(二进制数)
' 输出数据类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

Answer 4

谢谢了