【原】二進制轉十六進制vb6程序

Private?Sub?Command1_Click()
??Dim?strN?As?String,?iHex?As?String,?strBin(),?strHex()
??Dim?intXh?As?Integer,?i?As?Integer,?j?As?Integer,?strTmp?As?String
??
??strBin?=?Array("0000",?"0001",?"0010",?"0011",?_
?????????????????"0100",?"0101",?"0110",?"0111",?_
?????????????????"1000",?"1001",?"1010",?"1011",?_
?????????????????"1100",?"1101",?"1110",?"1111")
?????????????????
??strHex?=?Array("0",?"1",?"2",?"3",?"4",?"5",?"6",?"7",?_
?????????????????"8",?"9",?"A",?"B",?"C",?"D",?"E",?"F")
??
??strN?=?InputBox("",?"",?"111000111")
??
??If?Len(strN)?Mod?4?<>?0?Then?strN?=?String(4?-?Len(strN)?Mod?4,?"0")?&?strN
??
??intXh?=?Len(strN)?\?4
??For?i?=?1?To?intXh
??????strTmp?=?Right(strN,?4)
??????For?j?=?0?To?15
??????????If?strTmp?=?strBin(j)?Then
?????????????iHex?=?strHex(j)?&?iHex
?????????????Exit?For
??????????End?If
??????Next
??????strN?=?Left(strN,?Len(strN)?-?4)
??Next
??
??MsgBox?"0x"?&?iHex
?????????????????????????????
End?Sub

總結

以上是生活随笔為你收集整理的二进制转十六进制vb6程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。