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

VBA, без массивов.

Question

Информатика

Доменика

18 мая, 00:22

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

VBA, без массивов.

+4

Ответы (1)

Знаете ответ на вопрос?

Зеира · 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

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

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

VBA, без массивов.