新手弄的非简易计算器,快捷键请忽略

tomcalldear · 发表于 2016-9-24 21:30:07

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
公式左	双精度小数型
公式右	双精度小数型

子程序名	返回值类型	公开	备注
__启动窗口_按下某键
参数名	类型	参考	可空	数组	备注
键代码	整数型
功能键状态	整数型

如果 (键代码＝ #键1 )

_按钮1_被单击 ()

如果 (键代码＝ #键2 )
_按钮2_被单击 ()

如果 (键代码＝ #键3 )
_按钮3_被单击 ()

如果 (键代码＝ #键4 )
_按钮4_被单击 ()

如果 (键代码＝ #键5 )
_按钮5_被单击 ()

如果 (键代码＝ #键6 )
_按钮6_被单击 ()

如果 (键代码＝ #键7 )
_按钮7_被单击 ()

如果 (键代码＝ #键8 )
_按钮8_被单击 ()

如果 (键代码＝ #键9 )
_按钮9_被单击 ()

如果 (键代码＝ 110)
_小数点按钮_被单击 ()

如果 (键代码＝ 107)
_加号按钮_被单击 ()

如果 (键代码＝ 109)
_减号按钮_被单击 ()

如果 (键代码＝ 106)
_乘号按钮_被单击 ()

如果 (键代码＝ 111)
_除号按钮_被单击 ()

如果 (键代码＝ 108)

子程序名	返回值类型	公开	备注
_按钮1_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“1”)

子程序名	返回值类型	公开	备注
_按钮2_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“2”)

子程序名	返回值类型	公开	备注
_按钮3_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“3”)

子程序名	返回值类型	公开	备注
_按钮4_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“4”)

子程序名	返回值类型	公开	备注
_按钮5_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“5”)

子程序名	返回值类型	公开	备注
_按钮6_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“6”)

子程序名	返回值类型	公开	备注
_按钮7_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“7”)

子程序名	返回值类型	公开	备注
_按钮8_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“8”)

子程序名	返回值类型	公开	备注
_按钮9_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“9”)

子程序名	返回值类型	公开	备注
_按钮0_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“0”)

子程序名	返回值类型	公开	备注
_小数点按钮_被单击

编辑框1.获取焦点 ()
编辑框1.加入文本 (“.”)

子程序名	返回值类型	公开	备注
_加号按钮_被单击

变量名	类型	静态	数组	备注
计算数目	双精度小数型

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 0

返回 ()

如果 (组合框1.现行选中项＝ 0)

公式左＝到数值 (结果显示框.内容)

公式右＝到数值 (编辑框1.内容)

计算数目＝到数值 (公式左) ＋到数值 (公式右)

结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 1)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) －到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 2)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) × 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 3)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) ÷ 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

编辑框1.内容＝ “”
组合框1.现行选中项＝ 0

子程序名	返回值类型	公开	备注
_减号按钮_被单击

变量名	类型	静态	数组	备注
计算数目	双精度小数型

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 1

返回 ()

如果 (组合框1.现行选中项＝ 0)

公式左＝到数值 (结果显示框.内容)

公式右＝到数值 (编辑框1.内容)

计算数目＝到数值 (公式左) ＋到数值 (公式右)

结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 1)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) －到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 2)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) × 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 3)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) ÷ 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

编辑框1.内容＝ “”
组合框1.现行选中项＝ 1

子程序名	返回值类型	公开	备注
_乘号按钮_被单击

变量名	类型	静态	数组	备注
计算数目	双精度小数型

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 2

返回 ()

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 0

返回 ()

如果 (组合框1.现行选中项＝ 0)

公式左＝到数值 (结果显示框.内容)

公式右＝到数值 (编辑框1.内容)

计算数目＝到数值 (公式左) ＋到数值 (公式右)

结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 1)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) －到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 2)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) × 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 3)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) ÷ 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

编辑框1.内容＝ “”
组合框1.现行选中项＝ 2

子程序名	返回值类型	公开	备注
_除号按钮_被单击

变量名	类型	静态	数组	备注
计算数目	双精度小数型

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 3

返回 ()

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 0

返回 ()

如果 (组合框1.现行选中项＝ 0)

公式左＝到数值 (结果显示框.内容)

公式右＝到数值 (编辑框1.内容)

计算数目＝到数值 (公式左) ＋到数值 (公式右)

结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 1)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) －到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 2)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) × 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 3)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) ÷ 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

编辑框1.内容＝ “”
组合框1.现行选中项＝ 3

子程序名	返回值类型	公开	备注
_清空按钮_被单击

连续赋值 (“”, 编辑框1.内容, 结果显示框.内容)

子程序名	返回值类型	公开	备注
_等于按钮_被单击

变量名	类型	静态	数组	备注
计算数目	双精度小数型

如果真 (编辑框1.内容＝ “”)

组合框1.现行选中项＝ 0

返回 ()

如果 (组合框1.现行选中项＝ 0)

公式左＝到数值 (结果显示框.内容)

公式右＝到数值 (编辑框1.内容)

计算数目＝到数值 (公式左) ＋到数值 (公式右)

结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 1)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) －到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 2)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) × 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

如果 (组合框1.现行选中项＝ 3)
公式左＝到数值 (结果显示框.内容)
公式右＝到数值 (编辑框1.内容)
计算数目＝到数值 (公式左) ÷ 到数值 (公式右)
结果显示框.内容＝到文本 (计算数目)

编辑框1.内容＝ “”

子程序名	返回值类型	公开	备注
_删除按钮_被单击

编辑框1.内容＝ “”

子程序名	返回值类型	公开	备注
_百分之一_被单击

变量名	类型	静态	数组	备注
计算数目	双精度小数型

计算数目＝到数值 (编辑框1.内容) ÷ 100
编辑框1.内容＝ “”
结果显示框.内容＝到文本 (计算数目)

子程序名	返回值类型	公开	备注
_平方根按钮_被单击

结果显示框.内容＝到文本 (求平方根 (到数值 (结果显示框.内容)))

子程序名	返回值类型	公开	备注
_二次方按钮_被单击

变量名	类型	静态	数组	备注
被次方数	双精度小数型

被次方数＝到数值 (编辑框1.内容)
结果显示框.内容＝到文本 (求次方 (被次方数, 2))
编辑框1.内容＝ “”

子程序名	返回值类型	公开	备注
_N次方按钮_被单击

变量名	类型	静态	数组	备注
被次方数	双精度小数型
几次方	整数型

如果真 (结果显示框.内容 ≠ “”)

输入框 (, “次方输入框”, “请输入次方数”, 几次方, #输入整数, )

被次方数＝到数值 (结果显示框.内容)

结果显示框.内容＝到文本 (求次方 (被次方数, 几次方))

返回 ()

结果显示框.内容＝编辑框1.内容
编辑框1.内容＝ “”
输入框 (, “次方输入框”, “请输入次方数”, 几次方, #输入整数, )
被次方数＝到数值 (结果显示框.内容)
结果显示框.内容＝到文本 (求次方 (被次方数, 几次方))

子程序名	返回值类型	公开	备注
_X分之1按钮_被单击

如果真 (结果显示框.内容 ≠ “”)

结果显示框.内容＝到文本 (1 ÷ 到数值 (结果显示框.内容))

返回 ()

结果显示框.内容＝编辑框1.内容
结果显示框.内容＝到文本 (1 ÷ 到数值 (结果显示框.内容))

子程序名	返回值类型	公开	备注
_正负号按钮_被单击

编辑框1.内容＝到文本 (0 －到数值 (编辑框1.内容))

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 公式左, 双精度小数型<br />
.程序集变量 公式右, 双精度小数型<br />
<br />
.子程序 __启动窗口_按下某键<br />
.参数 键代码, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果 (键代码 ＝ #键1)<br />
    _按钮1_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键2)<br />
    _按钮2_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键3)<br />
    _按钮3_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键4)<br />
    _按钮4_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键5)<br />
    _按钮5_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键6)<br />
    _按钮6_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键7)<br />
    _按钮7_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键8)<br />
    _按钮8_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ #键9)<br />
    _按钮9_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ 110)<br />
    _小数点按钮_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ 107)<br />
    _加号按钮_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ 109)<br />
    _减号按钮_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ 106)<br />
    _乘号按钮_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ 111)<br />
    _除号按钮_被单击 ()<br />
.否则<br />
<br />
.如果结束<br />
.如果 (键代码 ＝ 108)<br />
<br />
.否则<br />
<br />
.如果结束<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“1”)<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“2”)<br />
<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“3”)<br />
<br />
.子程序 _按钮4_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“4”)<br />
<br />
<br />
.子程序 _按钮5_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“5”)<br />
<br />
.子程序 _按钮6_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“6”)<br />
<br />
.子程序 _按钮7_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“7”)<br />
<br />
.子程序 _按钮8_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“8”)<br />
<br />
.子程序 _按钮9_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“9”)<br />
<br />
.子程序 _按钮0_被单击<br />
<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“0”)<br />
<br />
.子程序 _小数点按钮_被单击<br />
<br />
编辑框1.获取焦点 ()<br />
编辑框1.加入文本 (“.”)<br />
<br />
.子程序 _加号按钮_被单击<br />
.局部变量 计算数目, 双精度小数型<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 0<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果 (组合框1.现行选中项 ＝ 0)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ＋ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 1)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) － 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 2)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) × 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 3)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ÷ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
    编辑框1.内容 ＝ “”<br />
.如果结束<br />
组合框1.现行选中项 ＝ 0<br />
<br />
.子程序 _减号按钮_被单击<br />
.局部变量 计算数目, 双精度小数型<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 1<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果 (组合框1.现行选中项 ＝ 0)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ＋ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 1)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) － 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 2)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) × 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 3)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ÷ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
    编辑框1.内容 ＝ “”<br />
<br />
.如果结束<br />
组合框1.现行选中项 ＝ 1<br />
<br />
<br />
.子程序 _乘号按钮_被单击<br />
.局部变量 计算数目, 双精度小数型<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 2<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 0<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果 (组合框1.现行选中项 ＝ 0)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ＋ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 1)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) － 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 2)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) × 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 3)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ÷ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
    编辑框1.内容 ＝ “”<br />
<br />
.如果结束<br />
组合框1.现行选中项 ＝ 2<br />
<br />
<br />
<br />
.子程序 _除号按钮_被单击<br />
.局部变量 计算数目, 双精度小数型<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 3<br />
    返回 ()<br />
<br />
.如果真结束<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 0<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果 (组合框1.现行选中项 ＝ 0)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ＋ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 1)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) － 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 2)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) × 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 3)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ÷ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
编辑框1.内容 ＝ “”<br />
组合框1.现行选中项 ＝ 3<br />
<br />
<br />
.子程序 _清空按钮_被单击<br />
<br />
连续赋值 (“”, 编辑框1.内容, 结果显示框.内容)<br />
<br />
<br />
.子程序 _等于按钮_被单击<br />
.局部变量 计算数目, 双精度小数型<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    组合框1.现行选中项 ＝ 0<br />
    返回 ()<br />
.如果真结束<br />
<br />
.如果 (组合框1.现行选中项 ＝ 0)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ＋ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 1)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) － 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 2)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) × 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
.如果结束<br />
.如果 (组合框1.现行选中项 ＝ 3)<br />
    公式左 ＝ 到数值 (结果显示框.内容)<br />
    公式右 ＝ 到数值 (编辑框1.内容)<br />
    计算数目 ＝ 到数值 (公式左) ÷ 到数值 (公式右)<br />
    结果显示框.内容 ＝ 到文本 (计算数目)<br />
.否则<br />
<br />
<br />
.如果结束<br />
<br />
编辑框1.内容 ＝ “”<br />
<br />
<br />
<br />
.子程序 _删除按钮_被单击<br />
<br />
编辑框1.内容 ＝ “”<br />
<br />
<br />
.子程序 _百分之一_被单击<br />
.局部变量 计算数目, 双精度小数型<br />
<br />
计算数目 ＝ 到数值 (编辑框1.内容) ÷ 100<br />
编辑框1.内容 ＝ “”<br />
结果显示框.内容 ＝ 到文本 (计算数目)<br />
<br />
<br />
.子程序 _平方根按钮_被单击<br />
<br />
结果显示框.内容 ＝ 到文本 (求平方根 (到数值 (结果显示框.内容)))<br />
<br />
<br />
.子程序 _二次方按钮_被单击<br />
.局部变量 被次方数, 双精度小数型<br />
<br />
被次方数 ＝ 到数值 (编辑框1.内容)<br />
结果显示框.内容 ＝ 到文本 (求次方 (被次方数, 2))<br />
编辑框1.内容 ＝ “”<br />
<br />
.子程序 _N次方按钮_被单击<br />
.局部变量 被次方数, 双精度小数型<br />
.局部变量 几次方, 整数型<br />
<br />
.如果真 (结果显示框.内容 ≠ “”)<br />
    输入框 (, “次方输入框”, “请输入次方数”, 几次方, #输入整数, )<br />
    被次方数 ＝ 到数值 (结果显示框.内容)<br />
    结果显示框.内容 ＝ 到文本 (求次方 (被次方数, 几次方))<br />
    返回 ()<br />
.如果真结束<br />
<br />
结果显示框.内容 ＝ 编辑框1.内容<br />
编辑框1.内容 ＝ “”<br />
输入框 (, “次方输入框”, “请输入次方数”, 几次方, #输入整数, )<br />
被次方数 ＝ 到数值 (结果显示框.内容)<br />
结果显示框.内容 ＝ 到文本 (求次方 (被次方数, 几次方))<br />
<br />
.子程序 _X分之1按钮_被单击<br />
<br />
.如果真 (结果显示框.内容 ≠ “”)<br />
    结果显示框.内容 ＝ 到文本 (1 ÷ 到数值 (结果显示框.内容))<br />
    返回 ()<br />
.如果真结束<br />
<br />
结果显示框.内容 ＝ 编辑框1.内容<br />
结果显示框.内容 ＝ 到文本 (1 ÷ 到数值 (结果显示框.内容))<br />
<br />
<br />
.子程序 _正负号按钮_被单击<br />
<br />
编辑框1.内容 ＝ 到文本 (0 － 到数值 (编辑框1.内容))