PB入门教程A(10)

PB入门教程A

SELECT CASE AS LONG Lint CASE Dwrd a$ = "*A Match!" CASE ELSE a$ = "No Match" END SELECT

SELECT CASE AS CONST Dwrd CASE -1& a$ = "*A Match!" CASE 0

a$ = "No Match" END SELECT

跳转语句

使用跳转语句可以将程序的控制转移到过程中的其他点，与循环结构不同，跳转就像单程票。

这是因为它可以将控制转移到过程中的一个点，但不能使其返回到起始点。 下面是ON GOTO语句的原型：

ON n GOTO {label | line_number} [, {label | line_number}] ... 示例：

SUB Main

FOR I& = 1 TO 3

ON I& GOTO OneHandler, TwoHandler, ThreeHandler Back: NEXT I& EXIT SUB OneHandler:

Message$ = "Handler number" + STR$(I&) GOTO Back TwoHandler:

Message$ = "Handler number" + STR$(I&) GOTO Back ThreeHandler:

Message$ = "Handler number" + STR$(I&) GOTO Back END SUB

下面是ON ERROR …GOTO语句的原型：

ON ERROR GOTO {label | line_number} ON ERROR RESUME NEXT ON ERROR GOTO 0

示例就不写了。。。这个好理解

循环语句