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

Exit Sub

Else

i = (Len(sec.Text))

x = 0

j = 0

Do

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

i = i - 1

j = j + 1

Loop Until i = 0

lb2.Caption = x

End If

End Sub

Private Sub sec_GotFocus()

sel = 2

End Sub