PB 基本语句 循环语句

PB 基本语句 循环语句

PB 基本语句


一、赋值语句

赋值语句用于给变量、对象属性赋值，这是应用程序中使用最频繁的语句，其语法格式为：variablename = expression

其中：⑴variablename是变量名或对象属性；

⑵expression是表达式，其数据类型应该与variablename的数据类型兼容。

下面是赋值语句的几个简单示例：     

Address = "北京"     

TaxRate = .05     

Age = 30     

mle.text="北京欢迎你"

PowerScript的赋值语句不支持多重赋值，也就是说，一条赋值语句只对一个变量赋值，不能同时对多个变量赋值。

下面的语句：A=B=0

在有些编程语言中同时把A和B均赋值0，但PowerScript中，该语句等价于：

A=(B=0)

其意义为，检查B等于0是否成立，成立时将TRUE赋给变量A，否则把FALSE赋给变量A。如果A不是Boolean类型的变量，则上述语句将引起编译错误。

二、条件语句

IF语句有两种形式，下面我们按照从简单到复杂的次序逐一介绍。

1. 单行IF ... THEN语句

单行IF ... THEN语句的格式为：

IF逻辑表达式THEN语句1 [ELSE语句2]

单行IF ... THEN语句书写时整条语句写在一行上，当逻辑表达式的结果为True时执行语句1，否则执行语句2（如果有该子句的话）。

例如：IF sle_State.text="BJ" THEN   MessageBox("欢迎","北京")

2．多行IF ... THEN语句

多行IF ... THEN语句的语法格式为：

IF 逻辑表达式1 THEN

         语句1

[ ELSEIF 逻辑表达式2 THEN

     语句2      

. . .   

] [ ELSE    语句n]

END IF

本语句的执行过程为：计算逻辑表达式1，如果其结果为True，则执行语句1，然后离开整个IF语句；否则计算逻辑表达式2，如果其结果为True，则执行语句2，然后离开整个IF语句；... 如果逻辑表达式的结果都是False，且存在ELSE子句，则执行语句3。

例1：从单行编辑框中输入考分，按“输入”按钮再根据考分显示及格或不及格。

Integer s

s = integer(sle_1.text)       //sle_1 text单行编辑框文本

If s < 60 then

   St_1.text = “不及格”   // St_1.text静态编辑框文本

Else

   St_1.text = “及格”

End if

例2：从单行编辑框中输入考分，按“输入”按钮后，再根据考分显示优、良、中、及格或不及格。

Integer s

s = integer(sle_1.text)       //sle_1 text单行编辑框文本

if s>=90 then

St_1.text = “优”

elseif s>=80 then

   St_1.text = “良”

elseif s>=70 then

   St_1.text = “中”

elseif s>=60 then

   St_1.text = “及格”

else

St_1.text = “不及格”

end if

3. CHOOSE CASE语句

根据测试表达式的值选择不同的操作，其语法格式为：

CHOOSE CASE 测试表达式

      CASE 判断表达式

执行语句块

       [CASE 判断表达式

语句块

. . .

        CASE 判断表达式

语句块]

       [CASE ELSE

语句块]

END CHOOSE

判断表达式可以使用如下的形式：

1. 用逗号分隔的一组数据，例如：2,4,7

2. 用TO表示一个区间范围，例如：2 TO 15

3. 用IS代表测试值，后跟关系操作符和比较值，例如：IS> 30

4. 组合运用上述三种方法，并用逗号进行分隔，例如：5,6,8 TO 12,IS > 20   

执行CHOOSE
CASE语句时，PowerBuilder将逐条查找CASE，如果找到与测试值相匹配的判断表达式，就执行该CASE后的语句块，然后执行END
CHOOSE后的第一条语句。如果CHOOSE CASE语句中包含CASE ELSE子句，则未找到任何匹配的CASE条件时，执行CASE
ELSE子句中的语句块。

例3：从单行编辑框中输入考分，按“输入”按钮后，再根据考分显示优、良、种、及格或不及格。（用choose case重写例2）

integer f

String s

f = integer(sle_1.text)

CHOOSE CASE f

CASE IS >= 90    // 改进 90 to 100

S = "优"

CASE 80 TO 89

   S = "良"

CASE 70 TO 79   

S = "中"

CASE 60 TO 69   

S = "及格"

       CASE 0 TO 59

S = "不及格"

CASE ELSE   

S = "输入错，请重新输入！"

END CHOOSE

St_1.text = string(S)

三、循环语句

各种语言都提供了自己的循环语句，PowerScript也不例外，它的循环语句有三种形式：DO …LOOP、FOR
…NEXT、GOTO，将前两种形式与EXIT和CONTINUE语句配合使用，可以完全抛弃GOTO语句，而且DO
…LOOP本身有四种格式，丰富多采的表达方式为我们编写清晰流畅的程序提供了有效手段。

下面介绍PowerScript循环语句的格式、中途退出循环或中途开始下次循环的方法、以及循环嵌套的概念。

1 DO LOOP循环

DO LOOP结构提供了一种基于某个条件的灵活的循环方法，它有四种形式，分别为：

 DO UNTIL <条件>… LOOP

 DO WHILE <条件> … LOOP (类似c)

 DO …LOOP UNTIL <条件>

 DO …LOOP WHILE <条件> (类似c)

DO表示循环的开始，LOOP表示循环的结束，condition表示循环条件，是个逻辑表达式，其值为True或False。

(1) DO UNTIL … LOOP的语法格式为：

DO UNTIL <条件>

   语句块

LOOP

其执行过程为：先计算条件condition，其结果为False时，执行语句块，接着再检查条件，直到条件的结果为True时退出循环。

例：按计算按钮求s = 1+2+3+…+10。

解1：

integer i=1, s = 0

DO UNTIL i>10

   s += i

i ++

LOOP

st_1.text = string(s)

(2) DO WHILE … LOOP的语法格式为：

DO WHILE <条件>

语句块

LOOP

其执行过程为：先计算条件，其结果为True时，执行语句块，接着再检查条件，直到条件的结果为False时退出循环。

例：按计算按钮求s = 1+2+3+…+10。

解2：

integer i=1, s = 0

DO WHILE i<=10

   s += i

i ++

LOOP

st_1.text = string(s)

(3) DO …LOOP UNTIL的语法格式为：

DO   

语句块

LOOP UNTIL <条件>

其执行过程为：先执行语句块，然后计算条件，如果其结果为False，则继续执行语句块，直到条件的结果为True时退出循环。

例：按计算按钮求s = 1+2+3+…+10。

解3：解1与解3完全等价

integer i=1, s = 0

DO

   s += i

i ++

LOOP UNTIL i>10

st_1.text = string(s)

(4) DO … LOOP WHILE的语法格式为：

DO   

语句块

LOOP WHILE <条件>

其执行过程为：先执行语句块，然后计算条件，如果其结果为True，则继续执行语句块，直到条件的结果为False时退出循环。

例：按计算按钮求s = 1+2+3+…+10。

解4：解2与解4完全等价

integer i=1, s = 0

DO

   s += i

i ++

LOOP WHILE i<=10

st_1.text = string(s)

这四种循环结构中，前两种结构可以一次也不执行，后两种结构则至少执行一次。

实际上，只需要从前两种和后两种结构中各取其一就能表达所有的逻辑关系，但为了更清晰地表达条件，PowerScript还是提供了四种结构。

2 FOR NEXT循环

FOR … NEXT是个循环次数确定的循环结构，它使循环体内的语句执行规定的次数，其语法结构为：

FOR varname = start TO end [STEP increment]   

Statementblock

NEXT

其中，varname是循环变量，可以是任意的数值类型，start、end分别是循环变量的初值和终值，increment是每次循环后循环变量的步长增量（缺省值为1），statementblock是一组语句，称做循环体，方括号表示该子句可以省略。

FOR …NEXT语句的执行过程为：循环变量varname从start开始，到end为止，重复执行循环体，每执行一次，varname被重新赋值，新值为：varname+ increment。另外，如果start和/或end在循环体内被修改，将影响循环次数。

例：按计算按钮求s = 1+2+3+…+10。

解5:

integer i, s = 0

for i=1 to 10

   s += i

next

st_1.text = string(s)

3 EXIT（退出循环）

在循环语句的循环体中，当我们想在中途退出循环时，使用EXIT语句是个好办法，执行该语句后，程序的控制权转至循环语句后的语句，执行该语句后，程序的控制权转至循环语句后的语句。

在嵌套循环的情况下，EXIT语句退出当前层循环，而不是所有循环。

功能：执行该语句后，程序的控制权转至循环语句后的语句。

例：下列程序运行后，变量s中的值是多少？

integer i, j,s=0

for i=1 to 10

for j=1 to 10

     if j>6 then

     exit

     end if

   next

   s = s + i

next

4 CONTINUE（继续循环）

功能：在循环语句的循环体中，遇到CONTINUE语句后，将不执行CONTINUE语句后与循环结束前的所有语句，而开始新一轮循环。

四、返回语句与终止程序运行

    在编写事件处理程序或函数时，使用RETURN语句返回控制给用户或调用函数的地方。当希望终止应用程序的运行时，使用HALT语句。

1 RETURN语句

RETURN语句立即终止事件处理程序或函数的执行，把控制返回到调用程序。

语法格式：RETURN [表达式]

功能：RETURN语句立即终止事件处理程序或函数的执行，把控制返回到调用程序。

表达式值作为事件处理程序或函数的返回值返回。

2 HALT语句

HALT语句用于终止应用程序的运行，其语法为：HALT {CLOSE}

其中CLOSE是个可选项。当HALT语句不带CLOSE选项时，该语句立即终止应用程序的运行；当HALT语句带CLOSE选项时，执行到该语句后，应用程序先执行应用对象的Close事件处理程序，之后再终止应用程序的运行。