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