进制转换的问题?

wangzepeng 2003-02-26 11:53:01
如果要把"AB12"转成二进制,如何做,请教了:
1)"AB12"-->二进制
2)二进制还原成“AB12"
...全文
62 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wzhjs 2003-02-26
  • 打赏
  • 举报
回复
"AB12"-->Binary:

a=Val("&HAB12")

s=""

do
s=s & (a mod 2)
a=a\2
loop until a=0
northwolves 2003-02-26
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
MsgBox hextoBIN("AB12")
End Sub
Function hextoBIN(ByVal X As String) As String
Const Bins = "0000000100100011010001010110011110001001101010111100110111101111"
Dim i As Integer, s As String
s = ""
For i = 1 To Len(X)
s = s + Mid(Bins, (Val("&h" + Mid(X, i, 1)) * 4 + 1), 4)
Next
hextoBIN = Format(s, "0")
End Function

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧