用VB怎么把二进制转化为十进制

如题所述

推荐答案 2016-11-14

VB把二进制转化为十进制的方法：
' 用途：将二进制转化为十进制 ' 输入：Bin(二进制数) ' 输入数据类型：String
' 输出：BIN_to_DEC(十进制数) ' 输出数据类型：Long
' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647
Public Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1)) Next i
End Function
比如输入：1010
输出就是：10

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/G8p38vWYpvNN88GWYYv.html

相似回答

用VB怎么把二进制转化为十进制答：VB把二进制转化为十进制的方法：' 用途：将二进制转化为十进制 ' 输入：Bin(二进制数) ' 输入数据类型：String ' 输出：BIN_to_DEC(十进制数) ' 输出数据类型：Long ' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647 Public Function BIN_to_DEC(ByVal Bin As...

用VB编程序实现十进制与二进制之间的相互转化.答：1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。2、定义一个实型变量，保存计算的十进制小数。3、输入一个十进制小数，保存在变量d中。4、do－while循环中，将十进制小数乘以2。5、取十进制数的整数部分，保存在变量b中。6、输出该位的二进制数，同时将十进制数的整数...

VB 问题 :2进制转为10进制答：二进制是以0、1的组合来表示的，转为10进制的公式为：二进制各位数值*2^(n-1)之和，n：为二进制数的位数。如：0101转为十进制=0*2^3+1*2^2+0*2^1+1*2^0=5

有谁知道VB二进制转十进制和二进制转八进制的程序代码啊?急用!答：' 用途:将十进制转化为二进制' 输入: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...

vb二进字串转换为十进制数答：Dim bin As String '二进制字串 Dim Dec As Double '十进制数 Dim temp As String '二进制字串每位字符 Dim i As Integer '循环变量 Dim n As Integer '二进制字串长度 bin = InputBox("二进制字串=")n = Len(bin)i = 0 Do temp = Mid(bin, n - i, 1) '此行有一空(1)Dec ...

vb二进制转十进制的函数?答：w = Val(Mid(bstr, i, 1)) '把每位字符转换为数值，非法字符将视为0 s = s + 2 ^ (n - i) * w '按位计权累加 Next i B2D = s '返回累加值 End Function '返回十进制数对应的二进制字串 Public Function D2B(ByVal Dnum As Long) As String Dim xx As String Dim yy A...

VB中二进制的小数怎么转变为十进制的小数答：代码：Dim flag As BooleanPrivate Sub Command1_Click() Dim IntegePpartLength As Integer, Binary As String, Decimalism As Double If InStr(Text1.Text, ".") = 0 Then IntegePpartLength = Len(Text1.Text) Else IntegePpartLength = InStr(Text1.Text, ".") - 1 End...

大家正在搜

如何将十进制转化为二进制十进制转化为十六进制二进制转化为八进制十进制18转换成二进制十进制101转换二进制十进制100转二进制十进制数60转换成二进制数是二进制转十进制公式十进制转二进制例题