QBASIC 编程混乱答案

【问题标题】：QBASIC programming confusionQBASIC 编程混乱
【发布时间】：2016-06-24 19:42:24
【问题描述】：

我刚刚使用这种编程语言创建了一个文本到语音转换器。

代码是，

DO
    CLS
    PRINT "This is the program built by Adhikari Newtorks Team Using QBASIC..........."
    PRINT "This is a text to speech converter.."
    PRINT
    PRINT
    INPUT "Enter the word to pronounce: ", speak$
    OPEN "sound.vbs" FOR OUTPUT AS #1
    PRINT #1, "dim speechobject"
    PRINT #1, "set speechobject=createobject ("; CHR$(34); "sapi.spvoice"; CHR$(34); ")"
    PRINT #1, "speechobject.speak"; CHR$(34); speak$; CHR$(34)
    CLOSE #1
    SHELL "sound.vbs"
    KILL "sound.vbs"
LOOP

你知道，我在这里使用这种语言编写了一个 Visual Basic 代码。我的主要困惑是，我可以说这个程序是使用 QBASIC 编程语言构建的还是应该称它为 Visual Basic 程序？

【问题讨论】：

这是一个 QBASIC 程序。您为什么不直接编写 VBScript 文件并使用 InputBox 询问单词，有什么原因吗？
我不会说您创建了文本到语音转换器。这就像在命令提示符下输入“mspaint”并说您创建了一个图形位图编辑器。
实际上，我想创建一个具有许多其他功能的 QBASIC 程序，这就是其中之一。我也可以使用 VB 脚本，但我想要一个 QBASIC 程序来完成所有这些工作。

标签： qbasic

【解决方案1】：

这是一个启动 VBScript 的 QBasic 程序。

虽然我真的不明白这一点。好像已经有人评论过了，为什么不直接写一个vbscript呢？它的代码也会更短，如下所示：

Do 
   str = InputBox("Enter the word to pronounce","Enter text")
   Dim speechobject
   Set speechobject = createobject("sapi.spvoice")
   speechobject.speak str
Loop Until (str = "")

如果你想在命令提示符下运行它，你可以输入：cscript /nologo myscript.vbs

【讨论】：