Программа перевода чисел из одной системы счисления в другие - 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

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы