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

Option Explicit

Public sel As Integer

Publici, x, j, x0 AsDouble Блок инициализации программы

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

Loop Until i = 0

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