Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Dim InputCelsius
- InputCelsius = Cint(InputBox("Enter amonut of celsius"))
- MsgBox "Amount of farenheit "&InputCelsius&" from conversion is " &_
- ConvertCelsiusToFarenheit(InputCelsius) &" Fahrenheit"
- endScript()
- Function ConvertCelsiusToFarenheit(celsius)
- ConvertCelsiusToFarenheit = (celsius*9/5)+32
- End Function
- Function endScript()
- MsgBox "Thank you for using our script"
- End Function
Advertisement
Add Comment
Please, Sign In to add comment