原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
图8-9 数量录入窗口 (2) 操作步骤: ① 设计窗口如图 8-9 所示， 其中上面的单行编辑框控件名为sle_1, 下面的单行编辑控件名为sle_2。 ② 在sle_1的modified事件中键入如下脚本: dec{2} number,cost if not isnumber(this.text) then messagebox(错误报告,您输入了错误的数据) return end if number = dec(this.text) choose case number case is100 cost = number*3.0 case 100 to 200 cost = number*2.8 case 200 to 400 cost = number*2.5 case else cost = number*2.0 end choose sle_2.text=string(cost) ③ 关闭窗口存盘。在单击〖File\Save As〗后弹出的对话框中, 键入窗口名w_choose_case, 单击【OK】。 ④ 执行窗口。 在数量编辑框中分别键入50, 150, 350, 500等不同数量, 可在应付金额框中出现不同公式计算出来的金额, 参见图8-10。 图 8-10 不同的公式计算金额 本实例使用的 if 语句和choose case 语句是在PB中最常用的判断选择语句。每种语句在使用时可以有几种不同的用法: · if 〈条件〉 then 〈语句〉 当〈条件〉表达式的值为true 时就执行〈语句〉 一次, 否则跳过〈语句〉。例如, 下面的语句使变量x 的值为5: int x = 0 if x100 then x = 5 下面的语句将使x 的值为 0: int x = 0 if x100 then x = 5 · if 〈条件〉 then ... else ... end if 该语句在条件成立时执行then 和else 中间的语句, 条件不成立时执行else 和end if 中间的语句。如下例中x 是一个数值型变量， 程序将检查x 是否是null。 若是, 则将y 赋值0； 若x 不是null, 则将x 的值赋给y: if isnull(x) then y=0 //x 为空, 令y 等于0 … else y=x //x有值, 将x 的值送给y … end if 这种结构可以嵌套。 请看下例: if isnull(x) then if y0 then z = y // x 为空, y0,将y 的值送给z else z = _y //x为空, y=0,将－y 送给z end if else z = x + y //x不空, 将x+y 送给z end if · choose case 〈表达式〉 ... case ... end choose 这个语句将根据〈表达式〉的不同值执行不同的程序段。 常用情况是表达式为一个变量。请看下例: choose case weight //weight 是一个变量表示重量 case is16 //当weight 16 时视为小号, 根据重量算价格 price=weight*0.30 size=小号 case 16 to 48 //当重量在16至48之间时视为中号, 统一价格 price=4.50 size=中号 case else //其它情况视为大号, 价格为25.00
文档评论（0）