这是我写的别的计算案例,你可以看下!还可以的吧!呵呵
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
编辑框1.获取焦点 ()
组合框1.现行选中项 = 0
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 = “” 或 编辑框2.内容 = “” 或 编辑框4.内容 = “” 或 编辑框5.内容 = “”)
信息框 (“请输入全部的数值。”, 0, )
.否则
.如果结束
编辑框3.内容 = 到文本 ((到数值 (编辑框2.内容) - 到数值 (编辑框1.内容)) × 到数值 (组合框1.内容))
编辑框6.内容 = 到文本 (到数值 (编辑框5.内容) - 到数值 (编辑框4.内容))
编辑框7.内容 = 到文本 (到数值 (编辑框3.内容) ÷ 到数值 (编辑框6.内容))
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
编辑框2.获取焦点 ()
.如果真结束
.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
编辑框4.获取焦点 ()
.如果真结束
.子程序 _编辑框4_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
编辑框5.获取焦点 ()
.如果真结束
.子程序 _编辑框5_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
按钮1.获取焦点 ()
_按钮1_被单击 ()
.如果真结束
.子程序 _按钮2_被单击
编辑框1.内容 = “”
编辑框2.内容 = “”
编辑框3.内容 = “”
编辑框4.内容 = “”
编辑框5.内容 = “”
编辑框6.内容 = “”
编辑框7.内容 = “”
编辑框1.获取焦点 ()
编辑框3.内容=编辑框1.内容+编辑框2.内容