简单的门诊收费系统.ppt

2.2.2 分支选择 If 条件… then 也有可能只是: ...//执行语句 if 条件 … then 语句 else 在这种情况下，语句只 … //执行语句 能一条。 end if 该语句不需要end if 2.2.2 分支选择 //获取ls_title的值 If ls_title=“主任” then ldec_register=32.00 else if ls_title=“副主任” then ldec_register = 23.00 else ldec_register = 13 end if End if If ls_title=“普通” then ldec_register=13 2.2.2 分支选择 choose case 条件 case 值: …//语句 case 值: …//语句 case else …//语句 end choose 2.2.2 分支选择 choose case ls_title case 主任 ldec_register=32 case 副主任 ldec_register=23 case else ldec_register=13 end choose 2.2.3 循环 For循环 Do loop 循环 For循环举例： long ll_i,ll_rows ll_rows = 3 for ll_i = 1 to ll_rows step 1 messagebox(“提示”,’第’+string(ll_i) +”行”) next 2.2.3 循环 Do loop 循环举例1 long ll_i,ll_rows ll_i=1,ll_rows=3 do messagebox(“提示”,’第’+string(ll_i) +”行”) ll_i++ while( ll_i = ll_rows) loop 2.2.3 循环 Do loop 循环举例2 long ll_i,ll_rows ll_i=1,ll_rows=3 Do while(ll_i = ll_rows) st_1.text += ’第’+string(ll_i) +”行;” ll_i++ loop 2.3.3 循环 退出循环( continue和exit) 退出当前循环 continue long ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if mod(ll_i,2)=0 then continue st_1.text += ’第’+string(ll_i) +”行;” next 2.3.3 循环 退出整个循环 exit long ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if mod(ll_i,2)=0 then continue st_1.text += ’第’+string(ll_i) +”行;” if ll_i3 then exit next 2.3.3 循环 退出整个循环 exit long ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if ll_i3 then exit if mod(ll_i,2)=0 then continue st_1.text += ’第’+string(ll_i) +”行;” next 2.4 创建一个全局函数 1) 全局函数，所谓全局，就是任何子对象都能调用 2) 函数可以返回值，也可以不返回值 3) 函数的参数有 value 表示值传递； reference 表示引用传递，可以改变该变量的值； rea