.版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 载入 (窗口1, , 假) .子程序 限制输入_中文, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用 .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框 .参数 字符代码, 字节型, , _编辑框_字符输入 下的参数 .局部变量 局部_字符组, 字节型, 静态, "0", 文本型就是字节集,字节集就是字节型数组,所以字节型数组就是文本型,因为这里只加入文本,如果是多个编辑框一起用的话,这里会有问题,自己想办法解决 .局部变量 局部_计次, 字节型, 静态, , 一个中文两个字节,到两次才加入编辑框 .如果真 (字符代码 ＞ 127) ' 懒得判断是不是中文,我这里判断超过127就算中文,其他不处理 加入成员 (局部_字符组, 字符代码) 局部_计次 ＝ 局部_计次 ＋ 1 .如果真 (局部_计次 ＝ 2) ' 一个中文两个字节,到两次才加入编辑框 局部_计次 ＝ 0 ' 计次清零 欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 到文本 (局部_字符组) ' 原来编辑框的内容加上刚输入的内容 欲操作的编辑框.起始选择位置 ＝ -1 ' 编辑框光标让它到最后 清除数组 (局部_字符组) ' 加入编辑框后要清空数组里的内容 .如果真结束 .如果真结束 .子程序 限制输入_数值, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用 .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框 .参数 字符代码, 整数型, , _编辑框_字符输入 下的参数 .如果真 (是否在两数范围内 (字符代码, 取代码 (“0”, ), 取代码 (“9”, ))) ' 0-9 欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码) ' 原来编辑框的内容加上最新输入的字符 欲操作的编辑框.起始选择位置 ＝ -1 ' 编辑框光标让它到最后 .如果真结束 .子程序 限制输入_小写字母, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用 .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框 .参数 字符代码, 整数型, , _编辑框_字符输入 下的参数 .如果真 (是否在两数范围内 (字符代码, 取代码 (“a”, ), 取代码 (“z”, ))) 欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码) ' 原来编辑框的内容加上最新输入的字符 欲操作的编辑框.起始选择位置 ＝ -1 ' 编辑框光标让它到最后 .如果真结束 .子程序 限制输入_大写字母, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用 .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框 .参数 字符代码, 整数型, , _编辑框_字符输入 下的参数 .如果真 (是否在两数范围内 (字符代码, 取代码 (“A”, ), 取代码 (“Z”, ))) 欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码) ' 原来编辑框的内容加上最新输入的字符 欲操作的编辑框.起始选择位置 ＝ -1 ' 编辑框光标让它到最后 .如果真结束 .子程序 是否在两数范围内, 逻辑型 .参数 欲判断的数, 整数型 .参数 第一个数, 整数型 .参数 第二个数, 整数型 返回 (欲判断的数 ≥ 第一个数 且 欲判断的数 ≤ 第二个数)