怎样在vb上将十进制数转换为二进制字符串
10进制数转换为2进制数的方法，其实就是把10进制数不断除以2，然后把每次相除的余数按逆序的方式排列出来就是了（此方法适用于10进制数转换为任意n进制数，只要把上述的2换为n即可，当然，如果n大于10，就要用其他符号来代替大于10的数了，比如16进制的ABCDEF）
d = Val(InputBox("请任意输入一个整数")) 'd是任意一个10进制整数n = 2 '转为二进制h = "" 'h是用来存放二进制数的字符串Do While d > 0 '如果d大于0就继续循环 h = (d Mod 2) & h '把d与2相除的余数进行拼接 d = d \ 2 '把d与2进行整除LoopMsgBox d & "转为二进制是" & h '显示结果
1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。
2、定义一个实型变量，保存计算的十进制小数。
3、输入一个十进制小数，保存在变量d中。
4、do-while循环中，将十进制小数乘以2。
5、取十进制数的整数部分，保存在变量b中。
6、输出该位的二进制数，同时将十进制数的整数部分减掉。
7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。
2、VB中不支持二进制字符串。只支持16进制字符串，需要在前面加前缀"&H"。
比如：CLng("&HFFFF")
3、如果你想将"1010011101"这样的二进制字符串转换为数值，需要自己写一个函数。
下面是我给你写的一个：
Function BinaryValue(ByVal strBin As String) As Long
Dim lngOutValue As Long
Dim bytBytes() As Byte
Dim bytAscii(0 To 255) As Byte
Dim lngBytes_Start As Long
Dim lngBytes_Length As Long
Dim lngBytes_Index As Long
bytAscii(49) = 1
bytBytes() = StrConv(strBin, vbFromUnicode)
lngBytes_Length = UBound(bytBytes)
If lngBytes_Length > 30 Then lngBytes_Start = lngBytes_Length - 30
For lngBytes_Index = lngBytes_Start To lngBytes_Length
lngOutValue = lngOutValue + bytAscii(bytBytes(lngBytes_Index)) * 2 ^ (lngBytes_Length - lngBytes_Index)
Next
BinaryValue = lngOutValue
End Function
BinaryValue函数可以将31位以下的二进制字符串转换为Long类型整数。
比如下面的用法：
MsgBox (BinaryValue("1111111111111111111111111111110"))
4、如果你想获取一个整数的二进制位可以使用下面的函数：
Function BinaryBit(ByVal lngValue As Long, ByVal lngIndex As Long) As Long
BinaryBit = (lngValue \ 2 ^ lngIndex) Mod 2
End Function
lngValue是long类型数值；
lngIndex是二进制位，从0开始计算，最大值是30。第0位是二进制最右边的那个位。
比如5的二进制是"101"
MsgBox BinaryBit(5, 0) 返回1
MsgBox BinaryBit(5, 1) 返回0
MsgBox BinaryBit(5, 2) 返回1
下面演示如何获取&HFF(255)的二进制字符串。
Dim i As Long
Dim s As String
For i = 0 To 30
s = BinaryBit(&HFF, i) & s
Next
MsgBox s
怎样在vb上将十进制数转换为二进制字符串
1、在VB中没有一种所谓的“真正的二进制”，只有long、integer、byte这样的整数。2、VB中不支持二进制字符串。只支持16进制字符串，需要在前面加前缀"&H"。比如：CLng("&HFFFF")3、如果你想将"1010011101"这样的二进制字符串转换为数值，需要自己写一个函数。下面是我给你写的一个：Function Binar...
如何用vb把一段字符以十六进制形式通过pc串口传给单片机,然后再返回...
MSComm1.Output = bData 好了16进制就是这样。如果是字符串发送方式就简单了。。直接发送，不用存到数组中。MSComm1.Output = "abcd" 接收只需要把strBuff = MSComm1.Input放在循环中判断就行了。说明。。一般设备控制多用字符串方法就可以了。。如投影机的控制等。而单片机的控制多用于16进制传输...
如何在vb组合框中添加数据
1、用VS2012新建一个VB窗口应用程序，进入窗体设计视图，添加一个菜单。2、右击需要更改为组合框的菜单项，在弹出的内容选择“转换为”->"ComboBox"。3、对应的菜单项便由按钮变成了组合框。4、运行程序可以看到刚刚添加的“串口”菜单项是以组合框的形式出现的。5、结束调试，回到窗体设计，右击“串口...
在VB读写文件中,用顺序访问模式写入文件,回车符及换行符,是否会被写...
123 所以你不要以为屏幕显示、写入文件（此外还有在打印机输出）都用Print是巧合或者是VB的开发人员偷懒，事实上它们的原理都是相通的，你只要把文件、打印机都想象成屏幕，那你就好理解了。因此，会不会换行，实际上是完全由你自己决定的，想换行就换行，不想换就不换。补充一句：在屏幕显示时Print命令...
200分:vb如何在托盘设置右键菜单和弹出提示信息
Form1.PopupMenu Form1.A '这个form1.A 是你的菜单名字，不要填错哦~~不然vb会死掉的 ' 右键单击图标是运行这里的代码, 可以在这里添加弹出右键菜单的代码 Case WM_LBUTTONDBLCLK MsgBox "你双击了我哦，我现在会退出..."Unload Form1 Case NIN_BALLOONSHOW Form1.Print "显示提示"Case NIN_...
vb通用对话框在哪里,我只想知道它的图标是啥样的
1、首先在电脑汇总找到自己的“VB6.EXE”，将它打开。2、编好你的程序，这里编辑了一个球体运动的程序进行解释。3、为了修改程序图标，如图中Form1前面所示图标。首先在右面Form1的属性栏中找到“Icon”项目，单击后面的省略号，将会打开对话框。4、在对话框中找到合适的logo图片。可以自己设计，在这里...
各位:在"知道"这里怎么样才能拿多一点分呢..?
答题。天天上线。
万宜淋清： 1、在VB中没有一种所谓的“真正的二进制”,只有long、integer、byte这样的整数.2、VB中不支持二进制字符串.只支持16进制字符串,需要在前面加前缀＂&H＂.比如:CLng(＂&HFFFF＂)3、如果你想将＂1010011101＂这样的二进制...
漳平市18323315447： 如何用vb编写程序: 将十进制数转变为二进制数?(详细点)？
万宜淋清： '十进制转换成二进制Private Function N10To2(ByVal v10 As Long) As String Dim s As String s = ＂＂ Do s = v10 Mod 2 & s v10 = v10 \ 2 If v10 <= 0 Then If Val(s) = 0 Then s = ＂1＂ & s Exit Do End If Loop N10To2 = sEnd Function
漳平市18323315447： VB中十进制转换为二进制的函数是什么? - ？
万宜淋清： VB中没有专门的将十进制数转换为二进制的函数. 需要自行编写十进制数转换为二进制字符串显示的函数实现. 十进制整数转二进制数:“除以2取余,逆序排列”(除二取余法). 实现代码: Public Function DECtoBIN(Dec As Long) As ...
漳平市18323315447： 用VB,输入一个十进制正整数,将其转换为二进制数 - ？
万宜淋清： 有两种: 一种是边输入,边转换,优点是控件少,缺点是计算多. 另一种是输入完成,按转按钮开始转换,优点是计算量少且符合微软准则,缺点是多个控件. 我按第二种给你写(不用你的思路,因为输入超出3万多,就得就不能用了,这个...
漳平市18323315447： VB编程序实现一个十进制数转换成2进制的数? - ？
万宜淋清： Private Sub Command1_Click() Print bin(Text1.Text) End Sub Function bin(n As Long) As String Do Until n = 0 bin = (n Mod 2) & bin n = n \ 2 Loop End Function
漳平市18323315447： VB程序设计:将十进制整数转换为其他进制 - ？
万宜淋清： 您好,这样的: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 十进制...
漳平市18323315447： vb中把十进制转换为二进制的程序怎么写 急求 T - T - ？
万宜淋清： 可以实现的方法很多.最基本的有递归和非递归的做法.
漳平市18323315447： VB 十进制转化为二进制 - ？
万宜淋清： Function siTo2(ByVal su As Long) As String'10进制转换为二进制 Do siTo2 = (su Mod 2) & siTo2 su = su \ 2 Loop Until su = 0 End Function
漳平市18323315447： VB编写十进制转二进制数 - ？
万宜淋清： Public Function DECtoBIN(Dec As Long) As String DECtoBIN = ＂＂ Do While Dec > 0 DECtoBIN = Dec Mod 2 & DECtoBIN Dec = Dec \ 2 Loop End Function
漳平市18323315447： vb中如何十进制转换为二进制?? - ？
万宜淋清： 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 ...
