'Калькулятор V6
'(C) Alex.Devil.LX 2011
Dim Num1, Sign, Num2
Num1 = InputBox ("Введите первое число:", "Калькулятор V6", "")
Sign = InputBox ("Введите знак" & Chr (10) & "(Поддерживается: +, -, *, /, ^ и Sqrt):"_
& Chr (10) & "Для получения информации о скрипте введите About", "Калькулятор V6", "")
Num2 = InputBox ("Введите второе число:" & Chr (10) & "(Необязательно)", "Калькулятор V6", "")
'[+]Сложение
If Sign = "+" Then
Dim PlsResult
PlsResult = cint (Num1) + cint (Num2)
MsgBox PlsResult, 0, "Калькулятор V6"
End If
'[-]Вычитание
If Sign = "-" Then
Dim MinResult
MinResult = cint (Num1) - cint (Num2)
MsgBox MinResult, 0, "Калькулятор V6"
End If
'[*]Умножение
If Sign = "*" Then
Dim MulResult
MulResult = cint (Num1) * cint (Num2)
MsgBox MulResult, 0, "Калькулятор V6"
End If
'[/]Деление
If Sign = "/" Then
Dim DivResult
DivResult = cint (Num1) / cint (Num2)
MsgBox DivResult, 0, "Калькулятор V6"
End If
'[^]Возведение в квадрат
If Sign = "^" Then
Dim Root
Root = cint (Num1) ^ 2
MsgBox Root, 0, "Калькулятор V6"
End If
'[Sqrt]Извлечение квадратного корня
If Sign = "Sqrt" Then
Dim Sqrt
Sqrt = sqr(Num1)
MsgBox Sqrt, 0, "Калькулятор V6"
End If
If Sign = "sqrt" Then
Dim smallcasesqrt
smallcaseSqrt = sqr(Num1)
MsgBox smallcasesqrt, 0, "Калькулятор V6"
End If
'[About]Информация о скрипте
If Sign = "About" Then
MsgBox "Это калькулятор на VBScript." & Chr (10) &_
"Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня."_
& Chr (10) & "(C)HellWolf06 24/02/2011", 0, "Калькулятор V6"
End If
If Sign = "about" Then
MsgBox "Это калькулятор на VBScript." & Chr (10) &_
"Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня."_
& Chr (10) & "(C)HellWolf06 24/02/2011", 0, "Калькулятор V6"
End If
'[Error]В случаи ошибок
If Num1 = "" Then
MsgBox "Вы не ввели первое число!", 0, "Калькулятор V6"
End If
If Sign = "" Then
MsgBox "Вы ввели не верный знак!", 0, "Калькулятор V6"
End If