Преобразование числа из десятичной системы счисления в 19-ичную - VB

Узнай цену своей работы

Формулировка задачи:

Составить программу преобразования числа из десятичной системы счисления в 19-ичную систему счисления

Решение задачи: «Преобразование числа из десятичной системы счисления в 19-ичную»

textual
Листинг программы
Sub Form_Load()
    Dim i&, n#, nn#, s$
    Const d = 19, dv = "0123456789abcdefghi": Randomize
    While n = 0: n = Val(InputBox("Введите число  >0", , 1 + Fix(Rnd * 1000))): Wend: nn = n
    While nn > 0
        s = Mid$(dv, (nn Mod d) + 1, 1) & s
        nn = nn \ d
    Wend
    MsgBox n & " = " & s: End
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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