Option Explicit
Public sel As Integer
Public i, x, j, x0 As Double
Public c As Integer
 |
Окно приложения в исходном состоянии.
Возможно вы искали - Реферат: Слои, страницы и рабочая область в CorelDraw
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
Похожий материал - Контрольная работа: Создание базы данных сотрудников в MS Access
Do Процедура для перевода
x = x + (val(Mid(fir.Text, i, 1)) * (2 ^ j)) введённого значения
i = i – 1 в десятичный код
j = j + 1