49 lines
1,011 B
Text
49 lines
1,011 B
Text
Rem Ôóíêöèè è Ïðîöåäóðû
|
|
Rem Êàëüêóëÿòîð
|
|
|
|
Rem Option Explicit
|
|
|
|
Dim numA, numB, strS
|
|
|
|
Rem Ôóíêöèÿ ïðèáàâèòü - add
|
|
Function mathAdd(a, b)
|
|
c = a+b
|
|
mathAdd = c
|
|
End Function
|
|
|
|
Rem Ôóíêöèÿ îòíÿòü - subtract
|
|
Function mathSbt(a, b)
|
|
c = a-b
|
|
mathSbt = c
|
|
End Function
|
|
|
|
Rem Ôóíêöèÿ óìíîæèòü - multiple
|
|
Function mathMlt(a, b)
|
|
c = a*b
|
|
mathMlt = c
|
|
End Function
|
|
|
|
Rem Ôóíêöèÿ ðàçäåëèòü - divide
|
|
Function mathDvd(a, b)
|
|
c = a/b
|
|
mathDvd = c
|
|
End Function
|
|
|
|
Sub calc(a, b, sign)
|
|
If sign = "+" then
|
|
MsgBox a & "+" & b & "=" & mathAdd(a, b)
|
|
elseif sign = "-" then
|
|
MsgBox a & "-" & b & "=" & mathSbt(a, b)
|
|
elseif sign = "*" then
|
|
MsgBox a & "*" & b & "=" & mathMlt(a, b)
|
|
elseif sign = "/" then
|
|
MsgBox a & "/" & b & "=" & mathDvd(a, b)
|
|
else
|
|
MsgBox "Îøèáêà!"
|
|
End if
|
|
End Sub
|
|
|
|
numA = CInt(InputBox("Ââåäèòå ïåðâîå ÷èñëî", "Êàëüêóëÿòîð"))
|
|
numB = CInt(InputBox("Ââåäèòå âòîðîå ÷èñëî","Êàëüêóëÿòîð"))
|
|
strS = InputBox("Ââåäèòå çíàê àðèôìåòè÷åñêîãî äåéñòâèÿ","Êàëüêóëÿòîð")
|
|
Call calc(numA,numB,strS)
|