高分求解:如何把任意二制制数转成一个两位十六进制数

hxy2003 2003-09-03 11:24:52
高分求解:如何把任意二制制数转成一个两位十六进制数

如小于15的用 0F表示,而大于的则用两位表示,如100则表示为64

...全文
103 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-09-04
  • 打赏
  • 举报
回复
Function Bintohex(X As String) As String
Dim temp As Long
temp = 0
For i = 1 To Len(X)
temp = temp + Val(Mid(X, i, 1)) * 2 ^ (Len(X) - i)
Next
Bintohex = IIf(temp < 16, "0" & Hex(temp), IIf(temp > 255, "FF", Hex(temp)))
End Function
wingclouds 2003-09-03
  • 打赏
  • 举报
回复
呵呵!我也up一下!
agamem 2003-09-03
  • 打赏
  • 举报
回复
up一下
做个select case就OK啦
ww94307 2003-09-03
  • 打赏
  • 举报
回复
这也太简单了吧。
四位四位一取,然后对应化成0..F即可。
如11101111
应化成:1110为E
1111为F
所以十六进制数为:EF
hxy2003 2003-09-03
  • 打赏
  • 举报
回复
UP
laozhaoskinny 2003-09-03
  • 打赏
  • 举报
回复
几个SELECT CASE、一个HEX()函数就搞定。
LeoUltraman 2003-09-03
  • 打赏
  • 举报
回复
up
planetike 2003-09-03
  • 打赏
  • 举报
回复
left("00",2-len(hex(100))) & hex(100)="64"
left("00",2-len(hex(15))) & hex(15)="0F"

7,759

社区成员

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

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