vb中怎么从十进制转换成二进制?

发布网友发布时间：2022-05-01 08:03

共1个回答

热心网友时间：2022-06-26 11:47

12345678910111213141516171819202122

Option Explicit Dim sBin As String Dim sHex As StringPrivate Sub Command1_Click() sHex = Text1 HexToBin (sHex) Text2 = sBin sBin = ""End Sub Private Sub Form_Load() Text1 = ""End Sub Public Function HexToBin(ByVal sHex As String) As String '处理16进制转换2进制代码 Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8" Dim i As Integer sHex = UCase(sHex) For i = 1 To Len(sHex) sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4) Next iEnd Function

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com