2.3.2.txt

来自「PowerBuilder数据库开发自学教程 课本源代码 最初由于作者的倏忽」· 文本 代码 · 共 33 行

integer array1[16]
For I = 1 to 16 
array1[I] = I
Next


Label1:
Num++
……
GoTo Label1		//跳到Label1处


For Num1 = 1 To 56
If Num1 <= 36 Then Function1（）Else &		//续行
Continue						//如果Num1的值大于36，则执行函数Function1
Next


For I = 1 To 36
If  Array[I]  > 10  Then Exit		//如果Array[I]大于10，跳出循环
Next


Int Rm[8,5]				//声明二维数组
Int i,j
For i = 1 To 8				//外层循环
   For j = 1 To 5			//内层循环
      Rm[i,j] = i + j
   Next					//内层循环结束
Next						//外层循环结束