On...Goto
基于表达式跳转到标签。
On expression Goto label1[, ...]
根据expression 的值赋值到不同的标签。表达式值为1将分支到第一个标签，值为2到第二个等。如果expression 的值为零（0）或大于列表中的项目数，则在On...Goto之后的下一个语句上继续执行。
建议使用结构化Select Case条件语句，而不是On...Goto.
语法
On expression Goto label1[, ...]
说明
根据expression 的值赋值到不同的标签。表达式值为1将分支到第一个标签，值为2到第二个等。如果expression 的值为零（0）或大于列表中的项目数，则在On...Goto之后的下一个语句上继续执行。
建议使用结构化Select Case条件语句，而不是On...Goto.
例子
Dim choice As Integer
Input "输入一个数字：", choice
On choice Goto labela, labelb, labelc
labela:
Print "选择一个"
End
labelb:
Print "选择b"
End
labelc:
Print "选择c"
End
Input "输入一个数字：", choice
On choice Goto labela, labelb, labelc
labela:
Print "选择一个"
End
labelb:
Print "选择b"
End
labelc:
Print "选择c"
End
与QB差别
- 如果expression 为负数或大于255，则FreeBASIC不会生成运行时错误。
参考