Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную - VB
Формулировка задачи:
Здравствуйте!
Помогите решить задание:
Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную.
Заранее спасибо.
З.Ы. Только начал осваивать Visual Basic, так что строго не судите.
Решение задачи: «Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную»
textual
Листинг программы
Option Explicit 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 Sub Example() 'перевод из двоичной в 16-ричную и обратно Debug.Print LngToStr(StrToLng("10011001", 2), 16) Debug.Print LngToStr(StrToLng("ABCDEF", 16), 2) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д