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