Преобразование числа из десятичной системы счисления в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д