Question

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

Answer 1

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