Как перевести из шестнадцатиричной системы счисления в двоичную систему счисления - VB
Формулировка задачи:
не могу понять как правильно надо это сделать ??
простым подбором не интересно
Решение задачи: «Как перевести из шестнадцатиричной системы счисления в двоичную систему счисления»
textual
Листинг программы
Private Sub Form_Load() MsgBox "В двоичной системе счисления палучицца" & vbCrLf & _ LngToStr(StrToLng(InputBox("Введите число в шестнадцатиричной системе счисления"), _ 16), 2), vbInformation End End Sub Function LngToStr(ByVal Value As Long, Baza As Byte) As String Dim M As Byte Do M = Value Mod Baza + 48 If M > 57 Then M = M + 7 Value = Value \ Baza LngToStr = Chr$(M) & LngToStr Loop While Value > 0 End Function Function StrToLng(Value As String, Baza As Byte) As Long Dim M As Byte, I As Byte For I = 1 To Len(Value) M = Asc(Mid$(Value, I, 1)) - 48 If M > 9 Then M = M - 7 StrToLng = StrToLng * Baza + M Next I End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д