Лабораторная работа: Сложение и вычитание целых неотрицательных чисел в двоичном коде

Option Explicit

Public sel As Integer

Public i, x, j, x0 As Double

Public c As Integer

Окно приложения в исходном состоянии.

Private Sub Command1_Click()

fir.Text = ""

sec.Text = ""

res.Text = ""

x = 0

j = 0 Процедура очистки полей формы

x0 = 0

i = 0

End Sub

Private Sub ext_Click()

End Процедура выхода

End Sub

Private Sub fir_Change()

If val(fir.Text) = 0 Or val(fir.Text) = 1 Then

lb1.Caption = fir.Text

Exit Sub

Else

i = (Len(fir.Text))

x = 0

j = 0

Do Процедура для перевода

x = x + (val(Mid(fir.Text, i, 1)) * (2 ^ j)) введённого значения

i = i – 1 в десятичный код

j = j + 1

--> ЧИТАТЬ ПОЛНОСТЬЮ <--