ON在QBasic中做什么？

我一直在做一个项目，在这个项目中，我接受了一个旧的程序，并创建了一个新的版本。。。。问题是它是用QuickBasic编写的，它有一行我不懂的代码

ON FLAG% GOTO 1730, 1900

谁能告诉我这是什么？？？

---

顺便说一句，我正在研究VisualBasic，它基本上是这类语句的简写语法：

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

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

有关更多信息，请参阅

---

要了解更多选项，您可能会使用更现代的语言使用

switch

语句。

这是一个使用GOTO语句的更结构化示例：

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

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

---

使用GOTO语句的更结构化的示例。如果标志为1，则语句gotos 1730；如果标志为2，则语句gotos 1900；否则两者都不是。