Вывести числа от 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

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


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

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

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