Информатика, вопрос задал goodqook , 7 лет назад

Составить программу перевода натурального числа из десятичной системы счисления в двоичную.
VBA ,без массивов.

Ответы на вопрос

Ответил Аноним
0

Function Dec2Bin(ByVal x As Integer) As String

   Dim t As Integer, r As String

   r = "": t = x

   While t >= 2

       r = Trim(Str(t Mod 2)) + r

       t = t 2

   Wend

   Dec2Bin = Trim(Str(t)) + r

End Function


Sub test()

   MsgBox Dec2Bin(35)

End Sub

Новые вопросы