Vbscript循环，如果出现，则发出

我需要一些帮助。我是vbscript新手，有一个问题

我试图给最终用户重新启动程序的能力。 我在MSDN上做过研究，在谷歌上搜索过其他各种网站，这些网站包括基于if-then语句、子例程、函数和do、while、until循环的教程

所有的循环教程或解释都有一个循环数字和字符串长度的程序。我制定了一个普通股交易计划：

'Stock Transaction Program

Option Explicit
Dim stockPrice, commission, stocksBought, stockCommission, stockTotal, totalCost, tryAgain


Wscript.StdOut.Write "Stock price: "
stockPrice = CDbl(Wscript.StdIn.ReadLine)
Wscript.StdOut.Write "Number of stocks bought: "
stocksBought = CDbl(Wscript.StdIn.ReadLine)
Wscript.StdOut.Write "Stock Commission percentage in whole number (i.e 2 for 2%): "
commission = CDbl(Wscript.StdIn.ReadLine)

stockTotal = stockPrice * stocksBought
stockCommission = commission * stockTotal / 100
totalCost = stockCommission + stockTotal

Wscript.StdOut.WriteLine "You payed a total commission of $" & stockCommission & " on the stocks you bought."
Wscript.StdOut.WriteLine "Your total price for you purchasing " & stocksBought & " stocks is $" & totalCost & "."

在这个程序结束后，我想给最终用户一个选项来评估另一个股票价格…等等

Wscript.Stdout.Writeline "Would you evaluate another stock price? (i.e y or n): "
tryAgain = lcase(wscript.stdin.readline)

我的逻辑假设您现在将继续执行某种if语句，基本上是这样的：如果tryAgain等于“y”，则返回顶部，如果为“n”，则以感谢的结论退出程序，如果为无效字符，则说明最终用户输入了无效响应，允许他们有机会重试

我想不出来。函数和子例程需要参数（我假设），子例程不提供数据输出。函数进行分类，但此代码不进行分类。我希望他们的语法能让程序重新开始。我认为某种循环可能是答案，但我没有知识或经验

他们有人能帮助我吗

---

谢谢

这可能是最简单的解决方案之一

Option Explicit
Dim stockPrice, .... , tryAgain

Do
    '....
    ' your stocks code
    '....

    Wscript.Stdout.Writeline "Would you evaluate another stock price? (i.e y or n): "
    tryAgain = lcase(wscript.stdin.readline)

Loop While tryAgain="y"

---

非常感谢你！我想我试过了，但我想我错了。它工作得很好。您教会了我一个使用vbscript的有用工具！保持好答案！