.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 接收, 小数型
.局部变量 折扣前价格, 小数型
折扣前价格 = 计算商品价格 (2, 4, 接收)
调试输出 (接收)
调试输出 (折扣前价格)
.子程序 计算商品价格, 小数型
.参数 单价, 小数型
.参数 数量, 小数型
.参数 得到的结果, 小数型, 参考
.局部变量 打折前价格, 小数型
.局部变量 打折后价格, 小数型
打折前价格 = 单价 × 数量
打折后价格 = 打折前价格 × 0.8
得到的结果 = 打折后价格
返回 (打折前价格)
.子程序 _按钮2_被单击
.如果 (编辑框1.内容 = “123456”)
信息框 (“登录成功”, 0, , )
.否则
信息框 (“登录失败”, 0, , )
.如果结束
.判断开始 (编辑框1.内容 = “123456”)
信息框 (“登录成功”, 0, , )
.默认
信息框 (“登录失败”, 0, , )
.判断结束
.子程序 _按钮3_被单击
.局部变量 变量, 整数型
.循环判断首 ()
变量 = 变量 + 1
调试输出 (变量)
.循环判断尾 (变量 < 5)
.判断循环首 (真)
变量 = 变量 + 1
调试输出 (变量)
.如果真 (变量 = 100)
跳出循环 ()
.如果真结束
.判断循环尾 ()
.版本 2
.支持库 spec
.子程序 _按钮4_被单击
.局部变量 i, 整数型
.变量循环首 (1, 10, 3, i)
调试输出 (i)
.变量循环尾 ()