Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Dim input1, input2, sign
- input1 = inputbox ("Type your first number","R-Calculator")
- sign = inputbox ("Type in the symbol for your equation","R-Calculator")
- input2 = inputbox ("Type your second number","R-Calculator")
- If sign = "+" Then
- msgbox input1 -- input2
- ElseIf sign = "-" Then
- msgbox input1 - input2
- ElseIf sign = "*" Then
- msgbox input1 * input2
- ElseIf sign = "/" Then
- msgbox input1 / input2
- Else
- msgbox "Make sure you typed the correct symbol! You can use these symbols: + - * / "
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement