Программа перевода чисел из одной системы счисления в другие - VB
Формулировка задачи:
Помогите написать программу для перевода из одной системы счисления в другую. (из 2-ичной в 8,10,16-ричные).
Если есть, то exe вместе с кодом. Заранее спасибо!
Решение задачи: «Программа перевода чисел из одной системы счисления в другие»
textual
Листинг программы
Option Explicit
'
' © Антихакер32™
' Перевод числа из 10-й системы счисления в 2-чную
'
Sub Main()
Const b = 8, s = "&H80&H40&H20&H10&H08&H04&H02&H01"
Dim num&, f&, tx As String * b
On Error Resume Next
Do: num = CByte(InputBox("Num [0-255]", , 0)): If Err Then Exit Sub
For f = 1 To b: Mid(tx, f, 1) = Sgn((num And Mid(s, (f - 1) * 4 + 1, 4))): Next
MsgBox num & " = " & tx
Loop
End
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д