3、输入一个十进制小数，保存在变量d中。4、do-while循环中，将十进制小数乘以2。5、取十进制数的整数部分，保存在变量b中。6、输出该位的二进制数，同时将十进制数的整数部分减掉。7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。

10进制数转换为2进制数的方法，其实就是把10进制数不断除以2，然后把每次相除的余数按逆序的方式排列出来就是了（此方法适用于10进制数转换为任意n进制数，只要把上述的2换为n即可，当然，如果n大于10，就要用其他符号来代替大于10的数了，比如16进制的ABCDEF）d = Val(InputBox("请任意输入一个整...

' 输入：Dec(十进制数)' 输入数据类型：Long ' 输出：DEC_to_BIN(二 进 制数)' 输出数据类型：String ' 输入的最大数为21474837,输出最大数为1111111111111111111111111111111(31个1)Public Function DEC_to_BIN(Byval Dec As Long) As String DEC_to_BIN = ""Do While Dec > 0 DEC_to_B...

Private Sub Command1_Click()Dim n As Integer, num As Long Dim ch As String, Bin() As String, r As Integer, i As Integer num = Val(Text1.Text)n = 0 r = num Do n = n + 1 ReDim Preserve Bin(n)Bin(n) = r Mod 2 r = r \ 2 Loop Until r < 1 For i = ...

4.在弹出式标题“新建项目”中，用鼠标左键选择标题为“VisualBasic”的项目，再选择标题为“WIndows”的项目。在右边的列表中选择标题“Windows窗体返回应用程序”。5.在背景为“白色”、标题为“ForM1”的窗口中，双击鼠标左键。6、在新切换到“代码”页。7.然后在“PrivateSubForm1_Load(ByVal...

您好，这样的：VB编程序实现十进制数转换成2、8、16进制数 十进制转二进制 Public Function DECtoBIN(Dec As Long) As String DECtoBIN = ""Do While Dec > 0 DECtoBIN = Dec Mod 2 & DECtoBIN Dec = Dec \ 2 Loop End Function 十进制转八进制：VB自带函数：Oct(num)十进制转十六进制：VB...

VB中没有专门的将十进制数转换为二进制的函数。需要自行编写十进制数转换为二进制字符串显示的函数实现。十进制整数转二进制数：“除以2取余，逆序排列”（除二取余法）。实现代码：Public Function DECtoBIN(Dec As Long) As String '十进制数转换为二进制数的字符显示函数 DECtoBIN = "" Do...

'处理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 iEnd Function ...

Dec As Integer '输入一个十进制数 Dim Bin As String '转换为二进制表示 Dim res As Integer Dim i As Integer Dec = Val(InputBox("x="))Form1.Print "十进制数:";Dec Do res = Dec Mod 2 '求出除以2的余数 Bin = res & Bin Dec = Dec \ 2 Loop While Dec <> 0 Form1....

将十进制整数转为其它进制的方法，都是采用“除R反向取余”的方法。下面的程序将取余所得的余数，通过字符串连接的方法，将后得的余数连接到字符串的前面，来实现“反向取余”，比较简便：Private Sub Command1_Click()n = CLng(Text1.Text)s = "" '初始化结果的字符串 Do While n > 0 ...