<SCRIPT language="VBScript">
Sub KnwTemper()
temp = InputBox("Podaj temperaturę w stopniach Fahrenheita.", "Przeliczanie temperatury")
MsgBox "Temperatura ta to " & Celsius(temp) & " w stopniach Celsjusza."
End Sub
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
KnwTemper()
</SCRIPT>
<SCRIPT language="VBScript">
Sub KnwHex()
temp = InputBox("Podaj liczbę w systemie dziesiętnym.", "Przeliczanie liczb")
MsgBox "Ta liczba w systemie szesnastkowym to: " & Hex(temp) & " ."
End Sub
KnwHex()
</SCRIPT>
<SCRIPT language="VBScript">
Sub WycKwd()
temp = InputBox("Wpisz liczbę, z której mam wyciągnąć pierwiastek.", "Wyciąganie pierwiastka")
MsgBox "Ta liczba po wyciągnięciu pierwiastka to: " & Sqr(temp) & " ."
End Sub
WycKwd()
</SCRIPT>