Задача 2. Составить программу перевода целого десятичного числа в двоичную систему.

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

Решение.

Интерфейс программы имеет вид:

Текст программы.

‘область General в окне программного кода

Dim y As Integer

‘процедура кнопки «Перевод 10х2»

Private Sub Command1_Click()

Text2.Text = "" ‘очищаем текстовое поле Text2

y = Val(Text1.Text)

While y > 1

k1 = y Mod 2

y = y \ 2

Text2.Text = Str(k1) + Text2.Text ‘операция сцепления строк

Wend

Text2.Text = Str(y) + Text2.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Дата добавления: 2015-08-27