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

Loop Until c = 0

Case False

If val(lb2.Caption) > val(lb1.Caption) Then

MsgBox "Так нельзя! Первое слагаемое должно быть больше второго. , "=VaMP1r3=™"

Exit Sub

Else

x0 = ((CInt(lb1.Caption)) - (CInt(lb2.Caption)))

x = 0

c = 1

Do

If x0 = 0 Then Exit Do

d(c) = x0 Mod 2

x = Round((CDbl(x0) / 2) - 0.3, 0)

c = c + 1

x0 = x

Loop Until x = 1

d(c) = x

res.Text = ""

Do

res.Text = res.Text & d(c)

c = c - 1

Loop Until c = 0

End If

End Select

End If

End Sub

Форма с вычисленными данными

Private Sub sec_Change()

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