Код выглядит следующим образом:
Скопируйте код кода следующим образом:
/**
*Автор: сердце черной птицы.
*Версия: 1.0
*/
Dim IntX As Double 'Глобальная переменная, используемая для хранения вычисленных значений.
Dim IntOperation As Double 'Отметить тип операции
Dim isBegin As Boolean 'Присвоено ли тегу значение IntX
Public Sub Clear() 'Очистить функцию команды
screen.Caption = ""
Конец субтитра
Публичная подписка SavaToIntX()
Выберите Case IntOperation
Случай 1 «Добавление
Если isBegin = False Тогда
IntX = Val(screen.Caption)
isBegin = Истина
Еще
IntX = IntX + Val(экран.Заголовок)
Конец, если
Случай 2 «Вычитание»
Если isBegin = False Тогда
IntX = Val(экран.Заголовок)
isBegin = Истина
Еще
IntX = IntX - Val(screen.Caption)
Конец, если
Случай 3 «Умножение»
Если isBegin = False Тогда
IntX = Val(экран.Заголовок)
isBegin = Истина
Еще
IntX = IntX * Val(screen.Caption)
'screen.Caption = IntX
Конец, если
Случай 4 «Отделение
Если isBegin = False Тогда
IntX = Val(экран.Заголовок)
isBegin = Истина
Еще
IntX = IntX / Val(экран.Заголовок)
Конец, если
Конец выбора
Конец субтитра
Частная подкоманда0_Click()
screen.Caption = screen.Caption & 0
Конец субтитра
Частная подкоманда 1_Click()
screen.Caption = screen.Caption & 1
Конец субтитра
Частная подкоманда2_Click()
screen.Caption = screen.Caption & 2
Конец субтитра
Частная подкоманда 3_Click()
screen.Caption = screen.Caption & 3
Конец субтитра
Частная подкоманда4_Click()
screen.Caption = screen.Caption & 4
Конец субтитра
Частная подкоманда5_Click()
screen.Caption = screen.Caption & 5
Конец субтитра
Частная подкоманда6_Click()
screen.Caption = screen.Caption & 6
Конец субтитра
Частная подкоманда7_Click()
screen.Caption = screen.Caption & 7
Конец субтитра
Частная подкоманда8_Click()
screen.Caption = screen.Caption & 8
Конец субтитра
Частная подкоманда9_Click()
screen.Caption = screen.Caption & 9
Конец субтитра
Private Sub CommandClear_Click() 'Очистить команду
isBegin = Ложь
ИнтОперация = 0
ИнтХ = 0
screen.Caption = ""
Конец субтитра
Private Sub CommandEqual_Click() 'Операция знака равенства
If IntOperation <> 0 Тогда 'При наличии отметки операции
Каллсаватоинткс
ИнтОперация = 0
isBegin = Ложь
screen.Caption = IntX
Конец, если
Конец субтитра
Private Sub CommandMinus_Click() 'Операция вычитания
If IntOperation <> 0 Тогда 'При наличии отметки операции
Каллсаватоинткс
ИнтОперация = 2
Очистить вызов
Еще
ИнтОперация = 2
Каллсаватоинткс
Очистить вызов
Конец, если
Конец субтитра
Private Sub CommandMultiple_Click() 'Операция умножения
If IntOperation <> 0 Тогда 'При наличии отметки операции
Каллсаватоинткс
ИнтОперация = 3
Очистить вызов
Еще
ИнтОперация = 3
Каллсаватоинткс
Очистить вызов
Конец, если
Конец субтитра
Private Sub CommandPlus_Click() 'Операция сложения
If IntOperation <> 0 Тогда 'При наличии отметки операции
Каллсаватоинткс
ИнтОперация = 1
Очистить вызов
Еще
ИнтОперация = 1
Каллсаватоинткс
Очистить вызов
Конец, если
Конец субтитра
Частная подкомандаSlash_Click() 'Операция разделения
If IntOperation <> 0 Тогда 'При наличии отметки операции
Каллсаватоинткс
ИнтОперация = 4
Очистить вызов
Еще
ИнтОперация = 4
Каллсаватоинткс
Очистить вызов
Конец, если
Конец субтитра