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

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()

umn.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))