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

Информатика, программирование
124

Option Explicit

Public sel As Integer

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

Public c As Integer

Private Sub Command1_Click()

Возможно вы искали - Реферат: Универсальная система RTWin

fir.Text = ""

sec.Text = ""

res.Text = ""

x = 0 Процедура очистки содержимого полей

j = 0

Похожий материал - Реферат: Унифицированный язык моделирования UML и сущность объектно-ориентированного подхода

x0 = 0

i = 0

End Sub

Private Sub ext_Click()

End

Очень интересно - Реферат: Уніфікована мова моделювання (UML)

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