vb 中如何把8位的二进制数(一字节)转化为相应的整数(0-255)?
1个回答
展开全部
Private Sub Command1_Click()
Dim b As Byte
b = dec("11111110")
MsgBox b
End Sub
Private Function dec(ByVal bin As String) As Byte
bin = Format(bin, "00000000")
For i = 7 To 0 Step -1
dec = dec + Mid(bin, 8 - i, 1) * 2 ^ i
Next
End Function
Dim b As Byte
b = dec("11111110")
MsgBox b
End Sub
Private Function dec(ByVal bin As String) As Byte
bin = Format(bin, "00000000")
For i = 7 To 0 Step -1
dec = dec + Mid(bin, 8 - i, 1) * 2 ^ i
Next
End Function
更多追问追答
追问
同学，我不是要把像“10101010”的8位二进制字符串转化为十进制整数，而是把原始的二进制数（在text中显示为乱码）转化为十进制的整数
追答
老外，那不是二进制数
dim a() as byte
a=strconv(text1,vbfromunicode)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
当我们谈到Python与Excel的拆分时，通常指的是使用Python的库来读取Excel文件中的数据，然后根据某种逻辑（如按行、按列、按特定值等）将数据拆分成多个部分或输出到新的Excel文件中。上海悉息信息科技有限公司在处理这类任务时，...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
