用VB怎么把二进制转化为十进制
1个回答
2016-11-14 · 百度知道合伙人官方认证企业
育知同创教育
1【专注：Python+人工智能|Java大数据|HTML5培训】 2【免费提供名师直播课堂、公开课及视频教程】 3【地址：北京市昌平区三旗百汇物美大卖场2层，微信公众号：yuzhitc】
向TA提问
关注
![]()
展开全部
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
' 用途：将二进制转化为十进制 ' 输入：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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
