1、浙江二级 VISUAL+FOXPRO-试题 13及答案解析(总分:100.00,做题时间:90 分钟)一、试题 1(总题数:1,分数:12.00)程序说明 求 1!+3!+5!+N!的值。N 由键盘输入,且为奇数。 程序 SET TALK OFF CLEAR _ STORE 0 TO S, T FOR 1=1 TO N STEP 2 DO SUB _ ENDFOR ? S SET TALK ON PROC SUB T=1 FOR J=1 TO _ _ ENDFOR(分数:12.00)A.INPUT “N=“ FOR NB.ACCEPT “N=“ FOR NC.WAIT “N=“ ON ND.I
2、NPUT “N=“ TO NA.S=T!B.S=S+TC.S=TD.S=S+T!ATBSCIDNA.T=T*JB.T=T%JC.T=T*ID.T=T%I二、试题 2(总题数:1,分数:12.00)程序说明 设共有 5个表文件 STD1. DBFSTD5. DBF,下面程序的功能是删除每个表文件的末记录。 程序 SET TALK OFF n=1 DO WHILE _ m=STR(n,1) db=_ USE &db _ DELETE _ n=n+1 ENDDO USE SET TALK ON RETURN(分数:12.00)A.N5B.N=5C.N=6D.N4A.“STD“B.“STD1STD5“
3、C.“STDm“D.“STD&m“A.GOTO TOPB.GOTO BOTTOMC.SKIPD.NEXTA.ZAPB.RECALLC.PACKD.DELETE三、试题 3(总题数:1,分数:12.00)程序说明 本大题使用如下三个表: 学生.DBF:学号 C(8),姓名 C(12),性别 C(2),出生日期 D,院系 C(8) 课程.DBF:课程编号 C(4),课程名称 C(10),开课院系 C(8) 学生成绩.DBF:学号 C(8),课程编号 C(4),成绩 N(分数:12.00)(1).查询每门课程的最高分,要求得到的信息包括课程名称和分数。正确的命令是_。(分数:3.00)A.SELEC
4、T课程名称,SUM(成绩)AS 分数 FROM课程,学生成绩;WHERE 课程.课程编号=学生成绩.课程编号;GROUP BY 课程名称B.SELECT课程名称,MAX(成绩)分数 FROM课程,学生成绩;WHERE 课程.课程编号=学生成绩.课程编号;GROUP BY课程名称C.SELECT课程名称,SUM(成绩)分数 FROM课程,学生成绩;WHERE 课程.课程编号=学生成绩.课程编号;GROUP BY课程.课程编号D.SELECT课程名称,MAX(成绩)AS 分数 FROM课程,学生成绩;WHERE 课程.课程编号一学生成绩.课程编号;GROUP BY 课程编号(2).统计只有 2名以
5、下(含 2名)学生选修的课程情况,统计结果中的信息包括课程名称、开课院系和选修人数,并按选课人数排序。正确的命令是_。(分数:3.00)A.SELECT课程名称,开课院系,COUNT(课程编写)AS 选修人数;FROM 学生成绩,课程 WHERE课程.课程编号=学生成绩.课程编号;GROUP BY 学生成绩,课程编号 HAVING COUNT(*)=2;ORDER BY COUNT(课程编号)B.SELECT课程名称,开课院系,COUNT(学号)选修人数;FROM 学生成绩,课程 WHERE课程.课程编号=学生成绩.课程编号;GROUP BY 学生成绩,学号 HAVING COUNT(*)=2
6、;ORDER BY COUNT(学号)C.SELECT课程名称,开课院系,COUNT(学号)AS 选修人数;FROM 学生成绩,课程 WHERE课程.课程编号一学生成绩.课程编号;GROUP BY 课程名称 HAVING COUNT(学号)=2;ORDER BY 选修人数D.SELECT课程名称,开课院系,COUNT(学号)AS 选修人数;FROM 学生成绩,课程 HAVING COUNT(课程编号)=2;GROUP BY 课程名称 ORDER BY选修人数(3).查询所有目前年龄是 22岁的学生信息:学号,姓名和年龄,正确的命令组是_。(分数:3.00)A.CREATE VIEW AGE_L
7、IST AS;SELECT 学号,姓名,YEAR(DATE()-YEAR(出生日期)年龄 FROM学生;SELECT学号,姓名,年龄 FROM AGE_LIST WHERE年龄=22B.CREATE VIEW AGE_LIST AS;SELECT 学号,姓名,YEAR(出生日期)FROM 学生;SELECT 学号,姓名,年龄 FROM AGE_LIST WHERE YEAR(出生日期)=22C.CREATE VIEW AGE_LIST AS;SELECT 学号,姓名,YEAR(DATE()-YEAR(出生日期)年龄 FROM学生;SELECT学号,姓名,年龄 FROM学生 WHERE YEAR
8、(出生日期)=22D.CR EATE VIEW AGE_LIST AS STUDENT;SELECT 学号,姓名,YEAR(DATE()-YEAR(出生日期)年龄 FROM学生;SELECT 学号,姓名,年龄 FROM STUDENT WHERE年龄=22(4).向学生表插入一条记录的正确命令是_。(分数:3.00)A.APPEND INTO学生 VALUES (“10359999“,“张三“,“男“,“会计“,1983-10-28)B.INSERT INTO学生 VALUES (“10359999“,“张三“,“男“,1983-10-28,“会计“)C.APPEND INTO学生 VALUE
9、S(“10359999“,“张三“,“男“,1983-10-28,“会计“)D.INSERT INTO学生 VALUES(“10359999“,“张三“,“男“,1983-10-28)四、试题 4(总题数:1,分数:12.00)程序 SET TALK OFF CLEAR ACCEPT“C=“TO C L=LEN(C) P=SPACE(O) DO WHILE L1 C1=SUBSTR(C,L-1,2) P=P+C1 L=L-2 ENDDO ? C+“-“+P SET TALK ON(分数:12.00)(1).当 C的值为 1212121,则输出的结果为_。(分数:3.00)A.121212112
10、1212B.12121212121211C.12121211212121D.1212121212121(2).当 C的值为 1212,则输出结果为_。(分数:3.00)A.12121212B.12122121C.12121221D.12122112(3).当 C的值为 123456,则输出结果为_。(分数:3.00)A.123456654321B.123456564321C.123456563412D.123456123456(4).当 C的值为 12345,则输出结果为_。(分数:3.00)A.1234512345B.123454523C.1234545231D.1234545123五、试题
11、 5(总题数:1,分数:12.00)程序 SET TALK OFF CLEAR STORE O TO N,S DO WHILE .T. N=N+1 S=S+N IF N11 EXIT ENDIF ENDDO ? “S=“+STR(S,2) RETURN SET TALK ON(分数:12.00)(1).程序输出结果为_。(分数:3.00)A.S=45B.S=55C.S=78D.S=85(2).若将语句“IF N11“改为“IF N11”,则程序输出结果为_。(分数:3.00)A.S=0B.S=1C.S=55D.S=36(3).若将“EXIT“改为“LOOP“,则程序输出结果为_。(分数:3.0
12、0)A.S=0B.S=36C.S=55D.死循环(4).若将“DO WHILE .T.“改为“DO WHILE .F.“,则程序输出结果为_。(分数:3.00)A.S=0B.S=55C.S=78D.死循环六、试题 6(总题数:1,分数:12.00)程序 * *ABC.PRG SET TALK OFF STORE 10 TO a,b,c DO XYZ WITH a,a+b,10 ? a,b,c ? i,m,n SET TALK ON RETURN RETURN * *XYZ.PRG PARAx,y,z PUBLIC i,m,n STORE 5 TO i,m,n ? x,y,z i=x+y X=y
13、+z y=m+n ? x,y,z(分数:12.00)(1).第一次输出 x,y,z的值分别为_。(分数:3.00)A.10 10 10B.30 10 20C.10 10 20D.10 20 10(2).第二次输出 x,y,z的值分别为_。(分数:3.00)A.30 10 10B.30 10 20C.10 10 10D.30 10 20(3).输出 a,b,c的值分别为_。(分数:3.00)A.30 10 10B.30 10 20C.10 10 10D.10 20 10(4).输出 i,m,n的值分别为_。(分数:3.00)A.5 5 5B.5 10 10C.30 5 5D.30 10 5七、试
14、题 7(总题数:1,分数:14.00)1.编写程序,从键盘输入一个人的工资,计算其应交税金。计算方法如下: 工资=1000 税金为 0 1000 2000工资=3500 税金为 10% 3500工资=5000 税金为 15% 5000工资 税金为 20% 如:一个人的工资为 3000,其应交税金为: (3000-2000)*10%+(2000-1000)*5%=150 (分数:14.00)_八、试题 8(总题数:1,分数:14.00)2.编制一个表单完成表文件“学生.dbf”、“成绩.dhf”内容的班级平均成绩查询显示功能。要求:(1)当用户在组合框输入或选择班级(学号的左 3位)后,按回车键
15、或单击“确定”按钮时,表单将自动显示对应班级的所有学生的总平均成绩;(2)单击“退出”按钮时,自动关闭表单。具体界面如下图所示。 (分数:14.00)_浙江二级 VISUAL+FOXPRO-试题 13答案解析(总分:100.00,做题时间:90 分钟)一、试题 1(总题数:1,分数:12.00)程序说明 求 1!+3!+5!+N!的值。N 由键盘输入,且为奇数。 程序 SET TALK OFF CLEAR _ STORE 0 TO S, T FOR 1=1 TO N STEP 2 DO SUB _ ENDFOR ? S SET TALK ON PROC SUB T=1 FOR J=1 TO _
16、 _ ENDFOR(分数:12.00)A.INPUT “N=“ FOR NB.ACCEPT “N=“ FOR NC.WAIT “N=“ ON ND.INPUT “N=“ TO N 解析:解析 表达式接收语句 INPUT的格式:INPUT字符表达式TO内存变量。从键盘输入的数据可以是常量、变量或表达式,数据类型可以是 N、C、D、L 和 Y等。字符串接收语句 ACCEPT的格式:ACCEPT字符表达式TO内存变量从键盘输入的数据只能是字符型常量。单字符接收语句 WAIT的格式:WAIT字符表达式TO内存变量WINDOWAT行坐标,列坐标多NOWAITNOCLEARTIMEOUT秒数A.S=T!B
17、.S=S+T C.S=TD.S=S+T!解析:解析 此语句的功能是求各个奇数阶乘的和。ATBSCI DN解析:A.T=T*J B.T=T%JC.T=T*ID.T=T%I解析:解析 子程序 SUB中 FOR循环的功能是求各奇数的阶乘。第 3空填 I代表奇数。第 4空填T=T*J,是用 FOR J=1 TO I来控制求奇数 I的阶乘。二、试题 2(总题数:1,分数:12.00)程序说明 设共有 5个表文件 STD1. DBFSTD5. DBF,下面程序的功能是删除每个表文件的末记录。 程序 SET TALK OFF n=1 DO WHILE _ m=STR(n,1) db=_ USE &db _
18、DELETE _ n=n+1 ENDDO USE SET TALK ON RETURN(分数:12.00)A.N5B.N=5 C.N=6D.N4解析:解析 第 1空的功能是控制 DO WHILE循环的次数,题干中要求与 5个表文件的末记录,所以循环次数为 5,且 n=1。所以第 1空应填 N=5 或 N6。A.“STD“B.“STD1STD5“C.“STDm“D.“STD&m“ 解析:解析 5 个表文件名为 STD1. DBFSTD5. DBF,唯一不同的是最后一个数字,用 m来控制这个不同的数字。每次循环 m都变化。db=“STD&m“表示文件名。宏代换函数的格式:&字符型内存变量功能:用字
19、符型内存变量的“值”去替换内存变量“名”、“.”符号表变量结束。A.GOTO TOPB.GOTO BOTTOM C.SKIPD.NEXT解析:解析 GOTO TOP 是指向表文件 m头记录,GOTO BUTTOM 是指向表文件 m末记录,SKIP 表向下移一条记录。A.ZAPB.RECALLC.PACK D.DELETE解析:解析 逻辑删除(DELETE)后,要用物理删除 PACK,RECALL 是恢复删除,ZAP 是物理删除所有记录。三、试题 3(总题数:1,分数:12.00)程序说明 本大题使用如下三个表: 学生.DBF:学号 C(8),姓名 C(12),性别 C(2),出生日期 D,院系
20、 C(8) 课程.DBF:课程编号 C(4),课程名称 C(10),开课院系 C(8) 学生成绩.DBF:学号 C(8),课程编号 C(4),成绩 N(分数:12.00)(1).查询每门课程的最高分,要求得到的信息包括课程名称和分数。正确的命令是_。(分数:3.00)A.SELECT课程名称,SUM(成绩)AS 分数 FROM课程,学生成绩;WHERE 课程.课程编号=学生成绩.课程编号;GROUP BY 课程名称B.SELECT课程名称,MAX(成绩)分数 FROM课程,学生成绩;WHERE 课程.课程编号=学生成绩.课程编号;GROUP BY课程名称 C.SELECT课程名称,SUM(成绩
21、)分数 FROM课程,学生成绩;WHERE 课程.课程编号=学生成绩.课程编号;GROUP BY课程.课程编号D.SELECT课程名称,MAX(成绩)AS 分数 FROM课程,学生成绩;WHERE 课程.课程编号一学生成绩.课程编号;GROUP BY 课程编号解析:解析 本小题考查使用 MAX()函数构造 SQL查询。使用 SQL查询课程的最高分,可以用 MAX()函数来实现。由于查询的是每门课程的最高分,所以需要按照课程名称进行分组,故选项 B正确。选项 A的错误在于查询结果由 SUM(成绩)构成,是对分组后的成绩进行了求和,选项 C也是同样的错误,选项 D错误在于 AS子句后只有一个字段名
22、,而查询结果字段有两个,无法匹配,也是错误的。(2).统计只有 2名以下(含 2名)学生选修的课程情况,统计结果中的信息包括课程名称、开课院系和选修人数,并按选课人数排序。正确的命令是_。(分数:3.00)A.SELECT课程名称,开课院系,COUNT(课程编写)AS 选修人数;FROM 学生成绩,课程 WHERE课程.课程编号=学生成绩.课程编号;GROUP BY 学生成绩,课程编号 HAVING COUNT(*)=2;ORDER BY COUNT(课程编号)B.SELECT课程名称,开课院系,COUNT(学号)选修人数;FROM 学生成绩,课程 WHERE课程.课程编号=学生成绩.课程编号
23、;GROUP BY 学生成绩,学号 HAVING COUNT(*)=2;ORDER BY COUNT(学号)C.SELECT课程名称,开课院系,COUNT(学号)AS 选修人数;FROM 学生成绩,课程 WHERE课程.课程编号一学生成绩.课程编号;GROUP BY 课程名称 HAVING COUNT(学号)=2;ORDER BY 选修人数 D.SELECT课程名称,开课院系,COUNT(学号)AS 选修人数;FROM 学生成绩,课程 HAVING COUNT(课程编号)=2;GROUP BY 课程名称 ORDER BY选修人数解析:解析 统计人数可以使用 COUNT()函数,在本小题中由于学
24、号是唯一的,因而统计人数就可以通过统计学生学号的个数来实现,四个选项中可以排除 A、B 两个选项,这两个语句都缺少按选修人数进行排序的子句,选项 D的错误在于没有设定查询条件,故选项 C正确。(3).查询所有目前年龄是 22岁的学生信息:学号,姓名和年龄,正确的命令组是_。(分数:3.00)A.CREATE VIEW AGE_LIST AS;SELECT 学号,姓名,YEAR(DATE()-YEAR(出生日期)年龄 FROM学生;SELECT学号,姓名,年龄 FROM AGE_LIST WHERE年龄=22 B.CREATE VIEW AGE_LIST AS;SELECT 学号,姓名,YEAR
25、(出生日期)FROM 学生;SELECT 学号,姓名,年龄 FROM AGE_LIST WHERE YEAR(出生日期)=22C.CREATE VIEW AGE_LIST AS;SELECT 学号,姓名,YEAR(DATE()-YEAR(出生日期)年龄 FROM学生;SELECT学号,姓名,年龄 FROM学生 WHERE YEAR(出生日期)=22D.CR EATE VIEW AGE_LIST AS STUDENT;SELECT 学号,姓名,YEAR(DATE()-YEAR(出生日期)年龄 FROM学生;SELECT 学号,姓名,年龄 FROM STUDENT WHERE年龄=22解析:解析
26、本小题考查 SQL中复杂查询语句的书写,四个选项中只有选项 A是正确的。选项 B和选项C是从建立的 AGE LIST视图中查询数据,但 AGE LIST视图中没有出生日期字段。选项 D是从 STUDENT表或视图中查询数据,但是 STUDENT表或视图不存在。故选项 A是正确答案。(4).向学生表插入一条记录的正确命令是_。(分数:3.00)A.APPEND INTO学生 VALUES (“10359999“,“张三“,“男“,“会计“,1983-10-28)B.INSERT INTO学生 VALUES (“10359999“,“张三“,“男“,1983-10-28,“会计“) C.APPEN
27、D INTO学生 VALUES(“10359999“,“张三“,“男“,1983-10-28,“会计“)D.INSERT INTO学生 VALUES(“10359999“,“张三“,“男“,1983-10-28)解析:解析 向数据表中插入记录的 SQL命令是 INSERT,插入记录的各个字段值要与学生表中的字段顺序相同,因此只有选项 B正确。本题也可以用排除法进行求解,选项 A和 C中的命令关键字 APPEND都是错误的,选项 D中用来描述待插入记录各个字段值中缺少了一个字段值,不能与数据表匹配,因此选项 B正确。四、试题 4(总题数:1,分数:12.00)程序 SET TALK OFF CL
28、EAR ACCEPT“C=“TO C L=LEN(C) P=SPACE(O) DO WHILE L1 C1=SUBSTR(C,L-1,2) P=P+C1 L=L-2 ENDDO ? C+“-“+P SET TALK ON(分数:12.00)(1).当 C的值为 1212121,则输出的结果为_。(分数:3.00)A.1212121121212B.12121212121211C.12121211212121D.1212121212121 解析:解析 当 C为 1212121时,L=7 大于 1,进入 DO WHILE循环,C1=21,P=P+C1=21,当 L=5时,C1=21,P=P+C1=2
29、121,当 L=3时,C1=21,P=P+C1=212121,L=1 小于 1,退出 DOWHILE循环。输出1212121212121。(2).当 C的值为 1212,则输出结果为_。(分数:3.00)A.12121212 B.12122121C.12121221D.12122112解析:解析 当 C为 1212时,L=4 大于 1,进入 DO WHILE循环,C1=12,P=P+C1=12,当 L=2时,C1=12,P=P+C1=1212,L=0 小于 1,退出 DO WHILE循环。输出 12121212。(3).当 C的值为 123456,则输出结果为_。(分数:3.00)A.1234
30、56654321B.123456564321C.123456563412 D.123456123456解析:解析 当 C为 123456时,L=6 大于 1,进入 DO WHILE循环,C1=56,P=P+C1=56,当 L=4时,C1=34,P=P+C1=5634,当 L=2时,C1=12,P=P+C1=563412。L=0 小于 1,退出循环。输出123456563412。(4).当 C的值为 12345,则输出结果为_。(分数:3.00)A.1234512345B.123454523 C.1234545231D.1234545123解析:解析 当 C为 12345时,L=5 大于 1,进
31、入 DO WHILE循环,C1=45,P=P+C1=45,当 L=3时,C1=23,P=P+C1=4523,L=1 等于 1,退出 DO WHILE循环,输出 123454523。五、试题 5(总题数:1,分数:12.00)程序 SET TALK OFF CLEAR STORE O TO N,S DO WHILE .T. N=N+1 S=S+N IF N11 EXIT ENDIF ENDDO ? “S=“+STR(S,2) RETURN SET TALK ON(分数:12.00)(1).程序输出结果为_。(分数:3.00)A.S=45B.S=55C.S=78 D.S=85解析:解析 本程序是求
32、 112 整数的和,当 N=12时退出 DO WHILE循环,输出 S=78。(2).若将语句“IF N11“改为“IF N11”,则程序输出结果为_。(分数:3.00)A.S=0B.S=1 C.S=55D.S=36解析:解析 第一次循环,N=1,S=1,满足 IF N11 的条件,执行 EXIT,退出 DO WHILE循环,输出S=1。(3).若将“EXIT“改为“LOOP“,则程序输出结果为_。(分数:3.00)A.S=0B.S=36C.S=55D.死循环 解析:解析 当 N12 时,不执行 IFENDIF,当 N=12时,满足 IF N11 的条件,执行 LOOP语句,又进入循环。程序中
33、没有退出循环语句,所以一直执行下去。(4).若将“DO WHILE .T.“改为“DO WHILE .F.“,则程序输出结果为_。(分数:3.00)A.S=0 B.S=55C.S=78D.死循环解析:解析 当 DO WHILE的判断条件为假时,不执行循环,直接输出 S=0。六、试题 6(总题数:1,分数:12.00)程序 * *ABC.PRG SET TALK OFF STORE 10 TO a,b,c DO XYZ WITH a,a+b,10 ? a,b,c ? i,m,n SET TALK ON RETURN RETURN * *XYZ.PRG PARAx,y,z PUBLIC i,m,n
34、 STORE 5 TO i,m,n ? x,y,z i=x+y X=y+z y=m+n ? x,y,z(分数:12.00)(1).第一次输出 x,y,z的值分别为_。(分数:3.00)A.10 10 10B.30 10 20C.10 10 20D.10 20 10 解析:解析 调用 XYZ时,把实参 a,a+b,10 分别传递给 XYZ程序中的 x,y,z,所以第一次 x,y,z的值分别为 10,20,10。(2).第二次输出 x,y,z的值分别为_。(分数:3.00)A.30 10 10 B.30 10 20C.10 10 10D.30 10 20解析:解析 在 XYZ程序中,i=x+y=1
35、0+20=30,x=y+z=20+10=30,y=m+n=5+5=10,此时,X,Y 已被重新赋值,所以第二次输出 x,y,z的值分别为 30,10,10。(3).输出 a,b,c的值分别为_。(分数:3.00)A.30 10 10 B.30 10 20C.10 10 10D.10 20 10解析:解析 调用 XYZ时,把实参 a传递给 XYZ中的 x,又因 a是自然属性的内存变量,所以 a将随 x值的改变而改变。而 b,C 的值仍为初值,所以输出 a,b,c 的值分别为 30,10,10。(4).输出 i,m,n的值分别为_。(分数:3.00)A.5 5 5B.5 10 10C.30 5 5
36、 D.30 10 5解析:解析 在 XYZ中,i,m,n 都被定义为公有属性的内存变量,公有属性的内存变量的作用范围是整个系统的所有程序。在 XYZ程序中,i 被重新赋值为 30,而 m,n 仍为初值,所以输出 i,m,n 的值分别为 30,5,5。七、试题 7(总题数:1,分数:14.00)1.编写程序,从键盘输入一个人的工资,计算其应交税金。计算方法如下: 工资=1000 税金为 0 1000 2000工资=3500 税金为 10% 3500工资=5000 税金为 15% 5000工资 税金为 20% 如:一个人的工资为 3000,其应交税金为: (3000-2000)*10%+(2000
37、-1000)*5%=150 (分数:14.00)_正确答案:()解析:程序代码如下: CLEAR SET TALK OFF INPUT“请输入工资:“TO gz DO CASE CASE gz=1000 taxs=0 CASE gz=2000 taxs=(gz-1000)*0.05 CASE gz=3500 taxa=(gz-2000)*0.1+(2000-1000)*0.5 CASE gz=5000 taxs=(gz-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5 OTHERWISE taxs=(gz-5000)*0.2+(5000-3500)*0.15
38、+(3500-2000)*0.1+(2000-1000)*0.5 ENDCASE ? “ “ ? “税金为:“+STR(taxs,8,2) RETURN八、试题 8(总题数:1,分数:14.00)2.编制一个表单完成表文件“学生.dbf”、“成绩.dhf”内容的班级平均成绩查询显示功能。要求:(1)当用户在组合框输入或选择班级(学号的左 3位)后,按回车键或单击“确定”按钮时,表单将自动显示对应班级的所有学生的总平均成绩;(2)单击“退出”按钮时,自动关闭表单。具体界面如下图所示。 (分数:14.00)_正确答案:()解析:表单 Init事件代码如下: SET TALK OFF INDEX ON LEFT(学号,3)TO INXH UNIQUE SCAN THlS. COMBO1. ADDITEM(LEFT(学号,3) ENDSCAN SET INDEX TO “确定“按钮的 Click事件代码如下: SELECT成绩 AVERAGE成绩 TO MCJ: FOR LEFT(ALLTRIM(学号),3)=ALLTRIM(THISFORM. COMBO1. DISPLAYVALUE) THISFORM. TEXTl. VALUE=MCJ SELECT学生 “退出“按钮的 Click事件代码如下: THISFORM. RELEASE