货币兑换功能不起作用

Question

我刚刚开始观看VBScript视频，经过几个教程后，我决定创建一个USD到EUR的转换器。这是代码：

Option Explicit

Dim inputMoney
inputMoney = CDbl(InputBox("Enter in the number of USD:"))
MsgBox "The amount of " & inputMoney & " USD in EUR is" & convert_to_eur(inputMoney)
MsgBox exit_mssg()

Function convert_to_eur(amount)
    amount = amount * 0.88
End Function

Function exit_mssg()
    exit_mssg = "Thank you"
End Function

有人可以告诉我哪里出错了吗？

Answer 1

在vbscript中，函数返回一个赋值给它自己的值

Function convert_to_eur(amount)
    convert_to_eur = amount * 0.88
End Function