COPY RATIEN САНЁК
Call MENU

Sub MENU()
y = InputBox (vbtab&vbtab&"Добро пожаловать!"&vbcrlf&vbtab&"             _________________"&vbcrlf&vbtab&vbtab&"|    1 - Вычитание     |"&vbcrlf&vbtab&vbtab&"|    2 - Сложение      |"&vbcrlf&vbtab&vbtab&"|    3 - Умножение   |"&vbcrlf&vbtab&vbtab&"|    4 - Деление        |"&vbcrlf&vbtab&vbtab&"|    5 - Выход            |"&vbcrlf&vbtab&vbtab&"~~~~~~~~~~~~~~","Канкулятор","Сюда вводить число")
If y <> "1" and y <> "2" and y <> "3" and y <> "4" and y <> "5" then Call MENU

If y = "5" then wscript.quit

If y = "1" then Call MIN

if y = "2" then Call PLS

End Sub

call MIN
Sub MIN()


MIN1 = InputBox ("Введите уменьшаемое ({A}-B)")
MIN2 = InputBox ("Введите вычитаемое (A-{B})")
MIN3 = MIN1-MIN2

t = InputBox (vbtab&vbtab&MIN3 &vbcrlf&vbtab&"______________________________" &vbcrlf&vbtab&"|    Выберите что делать дальше:     |" &vbcrlf&vbtab&"|    1 - Вернуться в главное меню     |" &vbcrlf&vbtab&"|    2 - Выити                                        |" &vbcrlf&vbtab&"~~~~~~~~~~~~~~~~~~~~~~~~~~","Ответ:","Ответ")

If t <> "1" and t <> "2" then Call MIN

If t = "2" then wscript.quit

If t = "1" then Call MENU




End Sub



Call PLS
Sub PLS()
PLS1 = InputBox ("Введите первое слогаемое ([A]-B)")
PLS2 = InputBox ("Введите второе слогаемое (A-[B])")





PLS3 = PLS1 - 0

PLS4 = PLS2 - 0



PLS5 = PLS4 + PLS3


p = InputBox (vbtab&vbtab&PLS5 &vbcrlf&vbtab&"______________________________" &vbcrlf&vbtab&"|    Выберите что делать дальше:     |" &vbcrlf&vbtab&"|    1 - Вернуться в главное меню     |" &vbcrlf&vbtab&"|    2 - Выити                                        |" &vbcrlf&vbtab&"~~~~~~~~~~~~~~~~~~~~~~~~~~","Ответ:","Ответ")
If p <> "1" and p <> "2" then Call PLS
If p = "2" then wscript.quit
If p = "1" then Call MENU

end sub