ON...GOTO

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOngoto
• 最后更新: 2017-09-29

---

根据表达式跳转到一个标签。

语法

On expression Goto label1[, ...]

描述

根据 expression 的值跳转到不同的标签。表达式值为 1 时跳转到第一个标签，值为 2 时跳转到第二个，依此类推。如果 expression 的值为零（0）或大于列表中的项目数，则执行继续到 On...Goto 后面的下一条语句。

建议使用结构化的 Select Case 条件语句代替 On...Goto。

示例

start GeSHi

Dim choice As Integer

Input "Enter a number: ", choice

On choice Goto labela, labelb, labelc

labela:
Print "choice a"
End

labelb:
Print "choice b"
End

labelc:
Print "choice c"
End

end GeSHi

与 QB 的差异

• 如果 expression 为负数或大于 255，FreeBASIC 不会生成运行时错误。

参见

• Select Case
• On...Gosub
• Goto
• Labels

返回 目录