Question

vb求一个十进制转化为二进制的函数？

Answer 1

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

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

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

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

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

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

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

Answer 2

Public Function DEC_BIN(ByVal Dnum As Long) As String
  Dim xx As String
  Dim yy As Integer
  xx = ""
  Do While Dnum > 0
    yy = Dnum Mod 2
    Dec = Dec \ 2
    xx = Trim(Str(yy)) & xx
  Loop
  D2B = xx
End Function

Answer 3

dim a as integer dim b as integer a=text1.text do until a =0 b=(a mod 2)&b a =int(a/2) loop text2.text=b 窗体添加空间command1,text1,text2

追答

错了，dim b aa string

as