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

fir.Text = fir.Text & "1" контроля за

End Select вводом

ElseIf sel = 2 Then

Select Case val

Case "0"

sec.Text = sec.Text & "0"

Case "1"

sec.Text = sec.Text & "1"

End Select

Else

End If

Else

End If

End Sub

Private Sub Form_Load()

plus.Value = True

c = 1

End Sub

Форма с введёнными значениями

Private Sub res_Change()

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

lb3.Caption = res.Text

Exit Sub

Else

i = (Len(res.Text))

x = 0

j = 0

Do

x = x + (val(Mid(res.Text, i, 1)) * (2 ^ j))