Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта - VB
Формулировка задачи:
На самом деле это репост моего оригинального трэда, но окозалось, что я не правильно понял задание.
Вообщем, задание: Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта.
В Аксессе в катором я работаю, есть встроение функции: Hex(), Oct().
К сожелению, я немогу их изпользовать, поэтому, я хотел вас попрасить помочь мне решить этo задание.
Я немогу найти не одно похожее задание в интернете, да и сам я придумать не могу.
Может я могу как-то посмотреть код встроеной функции?
Спосибо за помощь и сори за граматику
Решение задачи: «Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта»
textual
Листинг программы
Function Hex_(n As Integer) As String Digs$ = "0123456789ABCDEF" If n < 16 Then Hex_ = Mid$(Digs$, n + 1, 1) Else k% = n Mod 16 Hex_ = Hex_(n \ 16) & Mid$(Digs$, k% + 1, 1) End If End Function Function Oct_(n As Integer) As String If n < 8 Then Oct_ = CStr(n) Else Oct_ = Oct_(n \ 8) & CStr(n Mod 8) End If End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д