开发工具:
文件大小: 411kb
下载次数: 0
上传时间: 2011-11-14
详细说明： .版本 2 .程序集 窗口程序集1 .程序集变量 数1, 文本型 .程序集变量 数2, 文本型 .程序集变量 计算符号, 文本型 .子程序 _数字1_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “1” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “1” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字2_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “2” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “2” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _铵钮_加号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “+” .否则 信息框 (“请先输入数 字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 子程序_按钮单击后 .' 如果 (计算符号 ≠ “”) ' 数2 ＝ 数2 ＋ “2” ' 编辑框_输入内容.内容 ＝ 数1 .否则 ' 数1 ＝ 数1 ＋ “2” ' 编辑框_输入内容.内容 ＝ 数1 .如果结束 .子程序 _铵钮_减号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “-” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) － 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 _铵钮_乘号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “×” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) × 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 _铵钮_除号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “÷” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ÷ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 _数字3_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “3” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “3” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字4_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “4” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “4” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字5_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “5” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “5” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字6_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “6” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “6” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字7_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “7” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “7” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字8_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “8” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “8” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字9_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “9” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “9” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字0_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “0” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “0” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _按钮_等于号_被单击 .判断开始 (计算符号 ＝ “+”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .判断 (计算符号 ＝ “-”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) － 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .判断 (计算符号 ＝ “×”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) × 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .判断 (计算符号 ＝ “÷”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ÷ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .默认 .判断结束 计算符号 ＝ “=” .子程序 _按钮_清空_被单击 数1 ＝ “” 数2 ＝ “” 计算符号 ＝ “” 编辑框_计算结果.内容 ＝ “” 编辑框_输入内容.内容 ＝ “” .子程序 _铵钮_小数点_被单击 .如果 (数2 ＝ “”) .如果 (寻找文本 (数1, “.”, , 假) ＝ -1) 数1 ＝ 数1 ＋ “.” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果结束 .否则 .如果 (寻找文本 (数2, “.”, , 假) ＝ -1) 数2 ＝ 数2 ＋ “.” 编辑框_输入内容.内容 ＝ 数2 .否则 .如果结束 .如果结束 .子程序 _按钮_退格_被单击 .如果 (数2 ＝ “”) 数1 ＝ 文本替换 (数1, 取文本长度 (数1), 1, ) 编辑框_输入内容.内容 ＝ 数1 .否则 数2 ＝ 文本替换 (数2, 取文本长度 (数2), 1, ) 编辑框_输入内容.内容 ＝ 数2 .如果结束 .子程序 __启动窗口_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .' 如果 (键代码 ＝ 43 或 键代码 ＝ 45 或 键代码 ＝ 94 或 键代码 ＝ 47) .' 如果 (数1 ≠ “”) ' 计算符号 ＝ 到文本 (键代码) .否则 ' 信息框 (“请先输入数字！”, 0, ) .如果结束 .' 如果 (数2 ≠ “”) ' 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2)) ' 数1 ＝ 编辑框_计算结果.内容 ' 数2 ＝ “” .否则 .如果结束 .否则 .' 如果 (计算符号 ＝ “”) ' 数1 ＝ 数1 ＋ 到文本 (键代码) ' 编辑框_输入内容.内容 ＝ 数1 .否则 .' 如果 (计算符号 ≠ “=”) ' 数2 ＝ 数2 ＋ 到文本 (键代码) ' 编辑框_输入内容.内容 ＝ 数2 .否则 ' 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .如果结束 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
