(模拟练习题)

操作题 1 在考生文件夹下完成如下操作 编制一个表单文件 myform 在文本框中输入任一自然数 单击 统计 按钮 统计从这个数 开始的 20 个能被 3 整除且末位为 3 的数 将统计结果在编辑框中显示 并利用标签输出这 20 个数的和 计数变量用 k 求和变量用 s 如图 design jpg 所示 2 在考生文件夹下完成如下操作 编制一个表单文件 myform 功能为判断输入的任一自然数是否为素数 例如运行表单当 输入 89 并单击 判断素数 按钮 效果如图 1 jpg 所示 当输入 90 并单击 判断素数 按钮 效果如图 2 jpg 所示 3 在考生文件夹下完成如下操作 编制一个表单文件 myform 对输入在文本框的文字 根据 所选的按钮 用不同的颜色显示该文本框内的文字 如图 1 jpg 所示 例如单击命令按钮组 中的 红色 按钮 文本框内的字体颜色变为红色 请完成命令按钮组的 CLICK 事件代码 commandgroup1 click 4 在考生文件夹下完成如下操作 编制一个能显示系统日期 星期和时间的表单 myform scx 并且能通过微调控件来调整系 统日期 当系统日期改变时 星期也能相应的改变 表单的运行界面如图 design jpg 请 完成微调按纽的 upclick 事件代码 spinner1 upclick 5 编制表单文件 myform 设计界面如 design jpg 所示 运行后完成下面的功能 1 设置文本框中的内容为 欢迎使用本系统 字体大小为 10 磅 2 实现文本框中的文字大小由原始的 10 磅 每隔 1 秒变大 1 磅 至 30 磅后停止变大 不重 复变大过程 6 请完成计时器 timer1 的 timer 事件代码 要求 界面与题目给定的一致 注意 按照要求的文件名保存在考生文件夹下在考生文件夹下完成如下操作 编制一个表单文件 myform 设计界面如 design1 jpg 和 design2 jpg 所示 运行后完成下面的功 能 1 编制一个信息显示 时钟 界面 显示当前时间 每秒动态跳动一次 2 并将时钟的颜色按奇数秒设置为红色 偶数秒设置为蓝色 自动变换 与时间同步切 换 请完成计时器 timer1 的 timer 事件代码 7 在考生文件夹下完成如下操作 用命令按钮组设计一个 学生表信息浏览和编辑 表单 文件名为 myform scx 表单界面 设计请参考考生文件夹下的图片 design jpg 用 首记录 前翻 后翻 末记录 命令 按钮对 学生表 中的记录进行浏览和修改 当 前翻 到首记录时 使 前翻 按钮失效 当 后翻 到末记录时 使 后翻 按钮失效 当单击 首记录 按钮 使 首记录 前翻 按钮失 效 当单击 末记录 按钮 使 末记录 后翻 按钮失效 8 在考生文件夹下完成如下操作 设计一个 统计奖学金 的表单 表单文件名为 myform 表单的界面设计请参考考生文件夹 下的图片 design jpg 表单实现的功能如下 单击 统计 按钮 统计出 学生表 dbf 中所有学 生的奖学金总额 要求用 DO WHILE 语句实现 9 在考生文件夹下完成如下操作 设计一个 查询学生的平均成绩 的表单 表单文件名为 myform 表单的界面设计请参考考 生文件夹下的图片 design jpg 表单实现的功能如下 当在组合框中选择一个 学生成绩表 dbf 中的学生姓名后 能显示该学生的姓名及平均成绩 再单击 确定 按钮后能在 成绩档次 文本框中显示该学生的成绩档次 平均成绩大于等于 90 分为优秀 大于等于 80 且小于 90 分 为良好 大于等于 70 分且小于 80 分为中等 大于等于 60 分且小于 70 分为及格 小于 60 分为 不及格 10 在考生文件夹下完成如下操作 用命令按钮组设计一个表单 文件名为 myform scx 表单运行时 当单击某个按钮 表 单的背景颜色也随之改变 表单界面设计请参考考生文件夹下的图片 design jpg 11 设计一个 N N 方阵 表单 表单文件名为 myform 表单的界面设计请参考考生文件夹 下的图片 design jpg 表单实现的功能如下 单击 显示 按钮 在编辑框中显示指定数字的 N N 方阵 使对角元素为 A 其他元素为 B 要求用双重 FOR 循环实现 12 在考生文件夹下完成如下操作 编制一个表单文件 myform 设计界面如 design1 jpg 所示 运行后完成下面的功能 任意输入 一个字符串 单击统计按钮 分别统计出大写字母 asc 值在 65 和 90 之间 的个数 小写字 母 asc 值在 97 和 122 之间 的个数 其他字符 除英文字母以外所有字符 的个数 单击 退出 按钮 结束表单运行 13 在考生文件夹下完成如下操作 用列表框设计一个 成绩排名 表单 表单文件名为 myform scx 表单设计界面如 design jpg 所示 运行界面如 design2 jpg 所示 表单实现的功能如下 利用 学生成绩表 dbf 当在列表框中选择一个学生姓名后 显示该学生的总分及排名 请编写列表框 List1 的 Click 事件代码 14 在考生文件夹下完成如下操作 编制一个表单文件 myform 根据 score dbf 中的数据 通过 SCAN 循环实现如下功能 先 根据表中三门课的成绩计算每个学生的总分 平均分 然后统计表中平均分在 70 分 包括 70 分 以上男生的人数 在 score dbf 表的 性别 字段中用 T 表示男 用 F 表示女 如图 design jpg 所示 单击 统计 按钮将结果显示在 平均分在 70 分以上男生的人数 后面的文本 框内 要求 1 利用数据环境添加 score dbf 2 写出 统计 按钮的 click 事件代码 15 在考生文件夹下完成如下操作 编制一个 学生 表信息查询表单 表单文件名为 myform scx 查找与用户输入的学生学号 相匹配的记录 如果找到则显示指定学生的所有信息 如果未找到则显示 你所指定的学 生不存在 表单设计界面如 design jpg 所示 16 在考生文件夹下完成如下操作 编制一个表单完成表文件 学生 dbf 内容的查询显示功能 表单文件名为 myform scx 表单 设计界面如 design jpg 所示 当用户在组合框 下拉列表 选择班级后 表单将自动显示 对应班级的平均年龄 请写出组合框的 interactivechange 事件 17 在考生文件夹下完成如下操作 用列表框编制一个 学生 表信息查询表单 表单文件名为 myform scx 表单设计界面如 design jpg 所示 当在列表框中选中一个学生姓名后 查询与用户指定的学生姓名相匹配的 记录 并显示指定学生的所有信息 请编写列表框的 InteractiveChange 事件代码 18 在考生文件夹下完成如下操作 设计一个表单 文件名为 myform scx 表单界面设计请参考考生文件夹下的图片 design jpg label1 的标题为 请输入口令 text1 中输入密码 并以星号 显示 当输入的 密码正确时 设密码为 password 并按回车键 label2 中显示 欢迎使用本系统 若密 码不正确 则显示 你无权使用本系统 改错题 1 在考生目录下 给定程序 MODI1 PRG 的功能是 显示输出如下的乘法表 1 1 1 1 2 2 1 3 3 1 4 4 2 2 4 2 3 6 2 4 8 3 3 9 3 4 12 4 4 16 程序中有两处错误 错误都在提示行 found 的下面一行 请改正程序中的错误 使它能得出正确的结果 2 在考生目录下 给定程序 MODI1 PRG 的功能是 从键盘输入一个字符串 并反序输出 如输入 ABC123D 则输出 D321CBA 3 考生目录下 有表文件 学生 23 dbf 其中的性别字段是逻辑型 T 表示男 F 表示女 给定程序 MODI1 PRG 的功能是 计算女生的个数和所有女生的奖学金总和 4 在考生目录下 给定程序 MODI1 PRG 的功能是 表文件 MODI4 DBF 中有 数字 N 4 素数否 L 字段 若 数字 字段的值是 素数 则存 T 到 素数否 字段中 若不是素数则存 F 到 素数否 字段中 5 在考生目录下 给定程序 MODI1 PRG 的功能是 求当 1 2 3 N 的值不超过 100000 时的临界值及 N 的值 6 在考生目录下 给定程序 MODI1 PRG 的功能是 编写一个自定义函数 用来计算阶乘 通过调用该函数计算 V M N M N 其中 M 和 N 为正整数 从键盘输入 M 9 N 4 7 在考生目录下 给定程序 MODI1 PRG 其功能是 该程序是一个模糊查询程序 实现对学生表 学生表 dbf 的模糊查询 按用户指定字段 查询指定的内容 指定的内容可能是不完整的 但要求是字符型的 如 查姓 王 的记录 8 在考生目录下 给定程序 MODI1 PRG 其功能是 对输入的任意类型 除备注 对象型和通用型 的数据进行数据类型判断 9 在考生目录下 给定程序 MODI1 PRG 其功能是 输出给定的正整型数值中包含指定 数码的个数 10 在考生目录下 给定程序 MODI1 PRG 其功能是 将表文件 MODIIN6 DBF 中考号字段中序号为 1 9 17 25 33 41 的考生编入 001 考场 其他编入 002 考场 11 在考生目录下 已有学生表 学生表 DBF 学号 姓名 性别 出生日期 简历 奖学金 给 定程序 MODI1 PRG 的功能是 将 学生 表中指定学生 由键盘输入 的奖学金加 10 元 并显示该学生的奖学金 12 在考生目录下 给定程序 MODI1 PRG 其功能是从键盘任意输入两个正整数 编程用 自定义函数求出这两个数的最大公约数和最小公倍数 13 在考生目录下 给定程序 MODI1 PRG 其功能是 是求泰勒展开式的和 即 E x 1 x x 2 2 x N 1 n 1 其中 N 以 20 为例 14 在考生目录下 已给定程序文件 MODI1 PRG 其功能是 从键盘任意输入两个数 a 和 b 编程实现以下功能 1 输出这两数之和 2 如果两个数都是偶数则将这两个数按 a 在前 b 在后的顺序连接输出 如输入的两个数是 2 和 34 则要输出 36 和 234 15 在考生目录下 给定程序 MODI1 PRG 其功能是 根据输入正确的用户名是否进入本系统 若错 有三次机会 16 在考生目录下 已给定程序文件 MODI1 PRG 其功能是 求 AX 2 BX C 0 的根 填空题 1 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 从键盘输入 M 个数 去掉一 个最大数和一个最小数 求平均值 2 在考生目录下 已给定程序文件 FILL1 PRG 其功能是输出如下图形 A BBB CCCCC DDDDDDD EEEEEEEEE 3 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 将给定的正整数分解因子 并 输出各个质数因子 如 24 的因子有 2 2 2 和 3 4 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 用自定义函数将任意输入的一 个汉字字符串倒置输出 例如 输入汉字字符串 天上鸟 则输出 鸟上天 5 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 提取输入的一个三位数的十位 上的数字 6 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 有两个表文件 student dbf 和 score dbf 它们的结构如下 student dbf 有字段 number name sex birthday score dbf 有字段 number degree 将两个表建立一对一关联 然后为年龄 18 岁的学生 的成绩 degree 增加 2 分 最后显示全体学生的学号 姓名和成绩 7 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 求某正整数是否为完数 该数等于其不重复因子相加 因子包括 1 例如 6 1 2 3 是完数 但是 8 1 2 4 所以 8 不是完数 8 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 在表文件 STD8 DBF 中的前 8 条记录中 求出记录号为偶数的男生的人数 9 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 从键盘输入两个数 求两个数 的最小公倍数 10 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 从键盘输入一串字符 口令 自动判断输入的口令是否与系统的口令 口令为 123456 一致 若一致 则显示相应的 欢迎信息 否则有三次机会 输入次数在三次以内 给予重输的提示 输入三次以上 显 示无权使用的信息 11 在考生目录下 已有成绩表 dbf 学号 课程号 成绩 给定程序文件 FILL1 PRG 的功能是 从键盘上输入学生的学号 在 成绩 表中计算该生的平均成绩 并说明成绩的档次 优 良 中 及格和不及格 如果该生不在表中则提示相应的信息 12 在考生目录下 已有学生表 学生表 DBF 学号 姓名 性别 出生年月 简历 奖学金 给定程序文件 FILL1 PRG 的功能是 显示输出 学生 表中每个班级的男女同学的奖学金总 额 学号字段的前三位代表班级 13 在考生目录下 给定程序 FILL1 PRG 的命令文件 有 STD13 DBF 表文件 其结构如下 准考证号 C 6 姓名 C 8 性别 C 2 笔试成绩 N 4 上机成绩 N 4 优秀否 L 将 STD13 DBF 表中笔试成绩和上机成绩均优秀的 大于等于 85 分 学生记录的优 秀否字段修改为逻辑真 T 然后将优秀的记录复制生成表 YH DBF 请填空 14 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 求出并显示所有两位的绝对素数 一个素数的数字位置经过任意交换后仍为素数 则称为 绝对素数 如素数 17 交换后的 71 也是素数 所以 17 是绝对素数 15 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 从键盘输入一口令 自动判断输入的口令是否与 std14 表文件的口令字段一致 若一致 则显 示相应的欢迎信息 否则有三次机会 输入次数在三次以内 给予重输的提示 输入三次以上 则 显示无权使用的信息 16 在考生目录下 已给定程序文件 FILL1 PRG 其功能是 浏览指定的表文件 表文件从键盘输入 STD16 编程题 1 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 求 1000 以内的素数个数 并把结果存放在变量 count 中 并运行调试 2 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 请编写程序 根据表 progin dbf 中的 成绩 字段的值 把其中的 等级 字段填写完整 如果 成绩在 90 分 含 90 以上则为 优 如果成绩在 80 89 分 含 80 则为 良 如果成绩在 70 79 分 含 70 则为 中 如果成绩在 60 69 分 含 60 则为 及格 如果成绩在 60 分以下 不含 60 则 为 不及格 并运行调试 3 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 计算 S 1 1 2 1 3 1 4 1 100 的值 要求 用 FOR 循环实现 循环变量用 i 并把 结果存放在变量 S 中 并运行调试 4 在考生目录下 给定程序文件 PROG1 PRG 编程实现如下功能 编写一个自定义函数 dz 能将输入的英文字符串中的空格删去 然后倒置输出 指定输入 a b c d e f 输出 fedcba 要求 1 只能用 FOR ENDFOR 循环 2 循 环变量用 I 3 输出结果放 ch 中 5 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 从键盘上输入 N 个数 N 10 10 个数分别为 2 3 0 4 1 5 0 8 3 95 5 26 1 1 9 编程求最大数与最小数之积 要求 用 FOR 循环实现 循环变量用 i 结果存放在 S 中 并运行调试 6 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 表文件 PROGOUT DBF 中有两个字段 数字 N 4 素数否 L 判断 数字 字 段中的值是否是素数 如果是则将 T 存入字段 素数否 中 若不是素数则将 F 存入字段 素数否 中 要求 用自定义函数来实现素数判断 函数名为 SS 返回类型为逻辑值 7 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 利用公式 Sinx x x 3 3 x 5 5 x 7 7 1 n 1 x 2 n 1 2 n 1 求当 x 5 567 时 sinx 的近似值 精确到 1 n 1 x 2 n 1 2 n 1 10 5 保留四位小数 要求 用 do while 循环实现 将程序运行结果存放在变量 S 中 并运行调试 8 在考生目录下 给定程序文件 PROG1 PRG 编程实现如下功能 已知表文件 STUD8 DBF 包含字段 学号 C 10 姓名 C 8 性别 C 2 出生年月 D 8 系别 C 10 是否团员 L 1 其中 T 表示是团员 F 表示不是团员 等字段 要求 用 SCAN ENDSCAN 循环求外语系的团员人数 计算结果放在变量 Y 中 9 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 从键盘输入一个 字符串 输入的字符串为 A B C DE F 编程实现去掉所输入字符串的所有空格 并输出去掉空格后的字符串 要求 程序中不能使用函数 STUFF 用 FOR 循环实现 循环变量用 i 并把结果存放在内存变量 C 中 并运行调试 10 在考生目录下 给定程序文件 PROG1 PRG 编程实现如下功能 计算每个学生的总分 并分别查找 显示总分最高和最低的记录 在 学生成绩表 中 有学号 C 12 姓名 C 8 数学 N 4 英语 N 4 计算机 N 4 总分 N 4 等字段 并已输入 若干条数据记录 11 在考生目录下 给定程序文件 PROG1 PRG 编程实现如下功能 从键盘上输入一个 工资金额数 1900 从数据表文件 gzb dbf 中查找并统计工资额高于该数的男 女记录的人 数 存放性别的字段名为 XB 类型为 C 注意 1 统计结果放在变量 M 男 和 N 女 中 12 在考生目录下 给定程序文件 PROG1 PRG 编程实现如下功能 从键盘上输入任一实数 M 统计该数的整数位数 小数位数及其该数的总位数 包括小数 点和负号 注意 1 输入的数放在变量 M 中 整数位数放在 MA 中 小数位数放在 MB 中 总位数放在 MC 中 小数末位为 0 不计 13 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现输出如下图形 X YYY ZZZZZ YYY X 14 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 现有 chengji DBF 根据该表 复制生成新的表文件 progout dbf 在 progout dbf 中利用 scan 循 环上调每条记录的计算机成绩 其中 计算机成绩小于 50 分的在原有基础上调 10 而 大于等于 50 分的在原有基础上调 5 15 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 当输入一个日期数据 指定为 2009 06 10 用严格的日期格式输入 时 求出该日期所对 应的中文星期几 要求 用自定义函数返回星期几 自定义函数名为 XX 16 考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现如下功能 从键盘上输入一个数据串 求该数据串中的最大数与最小数之积 设给定的数据串为 65437985 要求 1 以字符方式输入数据串 2 用 FOR 循环实现 循环变量用 I 并把计算结果存在变量 X 中 17 在考生目录下 给定程序 PROG1 PRG 的命令文件 编程实现输出如下图所示的杨辉三角 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 要求 1 外循环用 FOR 实现 循环变量用 i 内循环用 FOR 实现 循环变量用 j 2 用二维数组实现 数组变量为 arr 18 在实数范围内编程求一元二次方程 AX 2 BX C 0 的解 并求方程 5X 2 X 4 0 的两个 根 要求 1 A B C 用 INPUT 语句输入 2 两根分别放在 X1 和 X2 中 3 需要考虑 A B C 的不同取值情况 4 结果保留 1 位小数 改错题 填空题 答案 改错题 1 功能 显示 1 4 的乘法表 CLEAR FOR i 1 TO 4 FOR j 1 TO 4 found IF i j found i j ENDIF ENDFOR ENDFOR a if i j b str i 1 str j 1 str i j 2 2 SET TALK OFF CLEAR ACCEPT 请输入指定的字符串 TO X C SPACE 0 found L X FOR i 1 to L R SUBSTR X i 1 found C C R ENDFOR C SET TALK ON RETURN a l len x b c r c 3 SET TALK OFF USE 学生 23 S1 0 N 0 DO WHILE EOF IF 性别 F found S1 奖学金 N N 1 ENDIF found LOOP ENDDO N N S1 S1 USE a s1 s1 奖学金 b skip 4 CLEAR USE MODI4 DO WHILE NOT EOF I 2 DO WHILE Isqrt 数字 5 CLEAR S 0 T 1 N 0 DO WHILE S 1E5 N N 1 found T T N S S T ENDDO found S S N N 1 a t t n b s s t 6 set talk off clea input m to m input n to n s1 jiech m s2 jiech n s3 jiech m n s s1 s2 s3 M N M N s func jiech found para x p 1 for j 1 to i p p j endfor found retu endfunc a para i b retu p 7 set talk off clear use 学生表 do while t accept 请输入要查询的字段名 to zdm if type zdm C 输入的字段类型错误 请重新输入 loop endif accept 请输入查询字段所对应的查询内容 to nr found locate for zdm nr do while eof disp wait continue enddo wait 还要继续查询吗 y n to yn if upper yn N found loop endif enddo a locate for zdm nr b exit 8 set talk off clear input to x found d type x do case found case d c dd 为字符型数据 case d N dd 为数值型数据 case d D dd 为日期型数据 case d L dd 为逻辑型数据 case d Y dd 为货币型数据 otherwise dd 未定义 endcase dd set talk on a d vartype x b cased c 9 set talk off clear x 120030056000 y 0 s 0 do while t found n mod x 10 if n y s s 1 endif x int x 10 found if x 0 exit endif enddo s set talk on a n mod x 10 b if x 0 10 SET TALK OFF SET SAFETY OFF USE MODIIN6 DO WHILE NOT EOF found KH SUBS 考号 4 3 IF MOD KH 8 1 REPL 考场 WITH 001 ELSE REPL 考场 WITH 002 ENDIF found LOOP ENDDO USE SET TALK ON RETURN a kh val subs 考号 4 3 b skip 11 SET TALK OFF CLEAR USE 学生表 ACCEPT 请输入学生学号 TO XH found SEEK 学号 XH IF EOF found REPLACE ALL 奖学金 WITH 10 学号 姓名 奖学金 ELSE 没有找到 ENDIF USE SET TALK ON a locate for 学号 xh b replace 奖学金 with 奖学金 10 12 set talk off clear input m to m input n to n 最大公约数为 gybs m n 最小公倍数 m n gybs m n set talk on func gybs found para m n if x y t x x y y t endif do while t r mod x y if r 0 found return x exit else x y y r endif enddo endfunc a para x y b return y 13 CLEA SET TALK OFF S 0 T 1 INPUT N TO N INPUT X TO X found FOR I 1 TO N A X I T T 1 I found S S 1 T A ENDF 泰勒展开式的和为 S 1 SET TALK ON a for i 1 to n 1 b s s t a 14 SET TALK OFF CLEAR INPUT A TO A INPUT B TO B A B found IF MOD A 2 0 AND MOD B 2 0 found AB ENDIF SET TALK ON a if mod a 2 0 and mod b 2 0 b alltrim str a alltrim str b 15 CLEAR found I 0 do while i 3 ACCEPT 请输入您的用户名 TO 用户名 IF 用户名 ABC 欢迎使用本系统 WAIT found LOOP ELSE 用户名错误 i i 1 ENDIF ENDDO 结束 SET TALK ON RETURN a i 1 b exit 16 SET TALK OFF CLEAR INPUT A TO A INPUT B TO B INPUT C TO C D B B 4 A C if D0 X1 X2 B 2 A ELSE found D1 ABS D X1 B D1 2 A X2 B D1 2 A ENDIF ENDIF SET TALK ON RETURN a if d 0 b d1 sqrt d 填空题 1 SET TALK OFF CLEAR INPUT 请输入数据个数 TO M INPUT X TO X STORE X TO MAXI MINI SUM X P M 2 FOR I 1 TO M 1 INPUT X TO X SUM SUM X found 1 MAXI X ENDIF IF Xmaxi b mini x 2 CLEAR FOR I 1 TO 5 SPACE 5 I found FOR J 1 TO 1 found 2 ENDFOR ENDFOR a for j 1 to 2 i 1 b chr 64 i 3 set talk off clear input 请输入一个正整数 m to m alltrim str m 19 的质数因子有 i 2 do while i s2 set talk on func zfcdz para s m len s ch space 0 do while m 0 c subs s m 1 2 ch ch c m m 2 enddo found 2 endfunc a s2 zfcdz s1 b return ch 5 Clear Do while t Input please input a number to num x If num x 1000 or int num x num x messagebox Error please input a new integer loop Else num y int num x 10 found result num y 1 result found 2 Endif Enddo a result num y int num y 10 10 b exit 6 Set talk off Clear Select 1 Use student exclusive Index on number tag number Select 2 Use score exclusive found Set relation to 1 found Replace degree with degree 2 for 2 List number a name degree Set relation