什么ON在QBasic？

Question

我一直致力于一个项目，我在其中使用一个旧程序并创建它的新版本....事情是它是用Quick Basic编写的，它有一行代码我不会＃ 39;理解

ON FLAG% GOTO 1730, 1900

谁能告诉我这是什么??? 顺便说一句，我正在使用VisualBasic

Answer 1

它基本上是这种语句的简写语法：

IF FLAG% = 1 THEN GOTO 1730 ELSE IF FLAG% = 2 THEN GOTO 1900

有关详细信息，请参阅this article。

对于更多选项，您可能会转而使用更现代语言的switch语句。

Answer 2

这是使用GOTO语句的更有条理的示例：

SELECT CASE FLAG%
    CASE 1
        GOTO 1730
    CASE 2
        GOTO 1900
END SELECT