Составить программу перевода натурального числа из десятичной системы счисления в двоичную.
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
Новые вопросы
Английский язык,
2 года назад
Русский язык,
2 года назад
Информатика,
7 лет назад
Алгебра,
7 лет назад
Геометрия,
9 лет назад
Литература,
9 лет назад