Question

VB中十进制转换为二进制的代码

Answer 1

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

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

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

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

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

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

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

Answer 2

可以实现的方法很多。最基本的有递归和非递归的做法。

递归的做法：

Private Sub Command1_Click()

  n = CLng(InputBox("N="))

  Print n; "=(";

  dec2bin (n)

  Print ")2"

End Sub

Public Sub dec2bin(x As Long)

  If x > 1 Then dec2bin (x \ 2)

  Print Trim(Str(x Mod 2));

End Sub

非递归则是利用数组：

Private Sub Command1_Click()

  n = CLng(InputBox("N="))

  s = n & "=("

  s1 = ""

  While n > 0

    s1 = n Mod 2 & s1

    n = n \ 2

  Wend

  s = s & s1 & ")2"

  Print s

End Sub

Answer 3

X = InputBox("请输入一个数")
a = X
Do While (a > 0)
q = a Mod 2 & q
a = a \ 2
Loop
MsgBox (q)

Answer 4

'十进转二进
Public Function D2B(Dec As Long) As String
D2B = ""
Do While Dec > 0
D2B = Dec Mod 2 & D2B
Dec = Dec \ 2
Loop
End Function

追问

Dim m As Integer, n As Integer
Dim Ch As String, i As String, b As String
m = Val(Text1.Text)
Ch = "01"
Do While m 0
n = m / 2
i = m Mod 2
m = n