读书之法 ,在循序而渐进 ,熟读而精思数据库原理及应用复习资料1一、选择题（每题 1.5 分，共 30分） 。1在 Visual FoxPro中，以独占方式打开数据表的命令是（） 。（A） 、USE （B） 、OPEN （C ） 、USE NOUPDATE SHARED （D ） 、USE EXCLUSIVE 2下面描述错误的是（）（A） 、一个表中可以建立多个候选索引（B） 、任何数据表都可以建立一个主索引（C ） 、一个表中可以建立多个普通索引（D ） 、一个表中可以建立多个唯一索引3. 对于只有两种取值的字段，一般使用 . A) 字符型 B) 数值型 C) 日期型 D) 逻辑型4. 以下命令中正确是的 _ _. A) STORE 10 TO X, Y B) STORE 10, 10 TO X, Y C) X=10, Y=10 D) X=Y=”10”5. 下面对字符型常量的表示方法中，错误的是_。A Visual FoxPro B Visual FoxPro C “Visual FoxPro ” D Visual FoxPro 6. 在 Visual FoxPro的命令窗口中显示数据表记录的命令是_。A MODIFY BCHANGE C LIST D USE 7文本框控件的 value 属性默认值为（）（A） 、数值型（B） 、字符型（ C） 、逻辑型（ D） 、日期型8项目的扩展名为 ( ) （A） 、.frx （B） 、.dbc （C ） 、.pjx （D） 、.scx 9. 要为当前表中所有职工增加100 元工资应该使用命令 _。A. CHANGE 工资 WITH工资+100 B. REPLACE 工资 WITH工资+100 C. CHANGE ALL 工资 WITH工资+100 D. REPLACE ALL 工资 WITH工资+100 10. 当前已打开的学生表中有姓名、性别、出生日期等字段，要显示所有1985年出生的学生名单，应使用的命令是_。A. LIST 姓名 FOR 出生日期 =1985 B. LIST 姓名 FOR 出生日期 =1985 C. LIST 姓名 FOR YEAR( 出生日期 )=1985 D. LIST 姓名 FOR YEAR(出生日期 )=1985 11. 如果需要给当前表增加一个字段，应使用的命令是_。A. APPEND B. MODIFY STRUCTURE 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思C. INSERT D. EDIT 12. 在当前表中，查找第2 个女同学的记录，应使用命令_。A. LOCATE FOR 性别=女 B. LOCATE FOR 性别=女 NEXT 2 C. LOCATE FOR 性别=女 CONTINUE D. LIST FOR 性别=女 NEXT 2 13. 当前工资表中有 108 条记录，当前记录号为 8， 用 SUM 命令计算工资总和时，若缺省范围短语，则系统将_。A. 只计算当前记录的工资值B. 计算前 8 条记录的工资和C. 计算后 8 条记录的工资和D. 计算全部记录的工资和14. 在 VFP的三种循环语句中，当循环次数为已知时，应选用（）语句。ADO WHILE BSCAN CFOR DLOOP 15下列关于视图与查询的叙述，错误的是（）（A） 、视图可以更新数据（B） 、查询和视图都可以更新数据（C ） 、查询保存在一个独立的文件中（D ） 、视图不是独立的文件，它只能存储在数据库中16. RSGZ数据表文件按基本工资字段升序索引后，再执GO TOP 命令，此时当前记录号是 _。A. 1 B. 基本工资最少的记录号C. 0 D. 基本工资最多的记录号17. 数据库文件有 30 条记录，当前记录号为20，执行命令 LIST NEXT 5后，所显示的记录号是 _。A.2125 B.2126 C.2025 D.2024 18在 Visual FoxPro中，打开数据表的命令是（） 。AOPEN BOPEN DATABASE CUSE DUSE DATABASE 19在“职工档案”表文件中，婚否是逻辑型字段，性别是字符型字段，若检索 已婚的女同志 ，应该用（）表达式。A婚否 .OR.( 性别=女) B( 婚否=.T.).AND. (性别=女) C婚否 AND (性别=女) D已婚 OR (性别=女) 20文本框所显示的内容是由（）属性确定的。A. caption B.text C. value D.name 二、填空题（每空2 分，共 20 分） 。1在 VFP系统中，查询文件的扩展名为。2命令 ?UPPER(ab456cd)的结果是。3DIMENSION x(3,4)命令后，数组 x 中的元素个数是。4设工资 =1200，职称=教授 ，逻辑表达式：工资1000 AND ( 职称=教授 OR 职称=副教授 ) 的值是。5在 SQL的 SELECT 查询中使用子句消除查询结果中的重复记录。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思6在 VFP数据表中，能够放置相片信息的字段类型是。7清除主窗口屏幕的命令是。8.?at( 二级 ， 计算机等级考试 ) 的显示结果为。9. 将系统菜单恢复成默认值使用命令。10. 报表的数据来源是一个表的时候，要按照某个字段对表进行分组，首先必须。三、综合题（共 50 分） 。1. 根据要求写 SQL语句。 （每小题 5 分，共 30 分）1. 图书管理数据库中的三个数据库表图书（总编号 C(6) ，分类号 C(8)，书名 C(16) ，出版单位 C(20) , 单价 N(6,2) ）读者（借书证号 C(4)，单位 C(8), 姓名 C(6), 性别 C(2), 职称 C(6) , 地址 C(20)）借阅（借书证号 C(4)，总编号 C(6) ，借书日期 D） 检索读者以及其借阅情况全部信息。 将图书表中电子工业出版社的图书的单价涨价10% 。检索书名以“ Internet”开头的所有图书的书名和出版单位. 查询所藏图书中每个出版社的图书最高单价往借阅表插入一个新的记录（2461，357128， 2007-12-12） 。为图书表的“书名”字段建立降序的普通索引。2表单操作。（10分）下图是一个计算圆面积程序画面, 当输入一个圆的半径时 , 选择计算按钮后自动求出圆面积 , 并显示出来。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思 图中所示共有几种控件，分别是（） 。由于 text2 为输出面积框，应设置其（）属性为 .t. 。写出“计算”这个控件的单击(Click)事件命令代码。3. 程序设计填空题。（10分）下面是一个简单的菜单程序，提供对jsxx 表的“添加”、“修改”和“打印”三种功能选择并转入相应处理，将程序填写完整。use jsxx CLEAR text 1.添加 2.修改 3.打印endtext input 请选择： to op DO CASE CASE OP=1 CASE OP=2 CASE OP=3 WAIT “请准备好打印机，按任一键开始” LIST TO PRINT ? 选择错！ 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思数据库原理及应用复习1 参考答案一、选择题（ 20*1.5=30 分）1 2 3 4 5 6 7 8 9 10 DBDADCBCDC 11 12 13 14 15 16 17 18 19 20 B C D CBB D CBC 二、填空题（ 10*2=20 分）1、.QPR 2、AB456CD 3、 _12_ 4、.T. 5、_ DISTINCT_6、通用型7、CLEAR8、. 0.9、set sysmenu to default10、以该字段建立索引，并设置其为主控索引。三、综合题 (共 50 分) 1.根据要求写SQL 语句。 （每小题5 分，共 30 分）Select * From 读者，借阅 WHERE 读者. 借书证号 =借阅. 借书证号 . 或者 Select * From 读者 join 借阅 on 读者. 借书证号 =借阅. 借书证号 . Update 图书SET 单价=单价*1.1 WHERE 出版单位 =电子工业出版 SELECT 书名，出版单位FROM 图书WHERE 书名Like Internet% SELECT 出版单位 , Max( 单价) FROM 图书Group by 出版单位Insert into 借阅VALUES( 2461，357128， 2007-12-12 ）index on 书名 tag sm descending 2表单操作。 （10 分）命令按钮，文本框，标签（3 分）readonly （2 分）r=thisform.text1.value thisform.text2.value = r*r*3.14 （5 分）3.程序设计填空题。 （10 分，每空2 分）APPENDBROW OTHERWISE ENDCASEUSE精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思数据库原理及应用复习资料2二、选择题（每题1.5 分，共 30 分） 。1. 对于逻辑删除和物理删除，下列说法正确的是_. A) 逻辑删除不可恢复，物理删除可恢复 B）二者皆可恢复C）逻辑删除可恢复，物理删除不可恢复D）二者皆不可恢复2在 Visual FoxPro中，以独占方式打开数据表的命令是（）。（A） 、USE （B） 、OPEN （C） 、USE NOUPDATE SHARED （D） 、USE EXCLUSIVE 3下面描述错误的是（）（A） 、一个表中可以建立多个候选索引（B） 、任何数据表都可以建立一个主索引（C） 、一个表中可以建立多个普通索引（D） 、一个表中可以建立多个唯一索引4. 在 VFP中，若当前记录位置为45，则将指针移到记录编号为20 的命令是 _ _. A) SKIP 20 B) SKIP -20 C) GOTO 20 D) GOTO -20 5. 对于只有两种取值的字段，一般使用 . A) 字符型 B) 数值型 C) 日期型 D) 逻辑型6. 在 Visual FoxPro的命令窗口中显示数据表记录的命令是_ _ 。A MODIFY BCHANGE C LIST D USE 7已打开的表“成绩”中有学号，课程名和成绩字段，要实现成绩小于60 分的学生成绩加5 分，可采用语句（）（A） 、replace 成绩 with 5 for 成绩 60 （B） 、replace成绩 with 成绩 +5 for成绩 60 （C） 、replace成绩 with 成绩 +5 where 成绩 602 （D） 、replace 成绩 with 5 for成绩 60 8. 当前已打开的学生表中有姓名、性别、 出生日期等字段，要显示所有1985 年出生的学生精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思名单，应使用的命令是_。A. LIST 姓名 FOR 出生日期 =1985 B. LIST 姓名 FOR 出生日期 =1985 C. LIST 姓名 FOR YEAR(出生日期 )=1985 D. LIST 姓名 FOR YEAR(出生日期 )=1985 9下列关于视图与查询的叙述，错误的是（）（A） 、视图可以更新数据（B） 、查询和视图都可以更新数据（C） 、查询保存在一个独立的文件中（D） 、视图不是独立的文件，它只能存储在数据库中10在 Visual FoxPro中，只关闭一个已打开的数据表的命令是（） 。ACLOSE BCLOSE DATABASE C USE DUSE 11在 VFP的三种循环语句中，当循环次数为已知时，应选用（）语句。ADO WHILE B SCAN CFOR DLOOP 12、检测数据表文件指针是否已到文件尾的函数是（） A BOF() BEND() C EOF() D Found() 13在 VF9.0 中，对象的引用是使用（）符号来进行的A, B C , D”14函数 STR(125.86,7,3)的值是（） 。A12586 B”125.86” C 125.860 D”125.8 7”15用 DIMENSION 命令定义了一个数组，其数组元素在赋值之前的默认值是（） 。A0 B .F. C （空） D不确定16文本框所显示的内容是由（）属性确定的。A. caption B.text C. value D.name 17. 表单中既可以作为输入框又可以作为输出框的是（）A. 文本框 B. 标签 C. 列表框 D.页框18. 把标签的（）属性设置为.F.,在运行表单的时候，该标签是不显示的。A. caption B.visibled C. readonly D.enabled 19在 Visual FoxPro中，打开数据表的命令是（） 。AOPEN BOPEN DATABASE CUSE DUSE DATABASE 20在“职工档案”表文件中，婚否是逻辑型字段，性别是字符型字段，若检索已婚的女同志 ，应该用（）表达式。A婚否 .OR.( 性别 =女) B( 婚否 =.T.).AND. (性别 =女) 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思C婚否 AND ( 性别 =女 ) D已婚 OR (性别 =女) 二、填空题（每空2 分，共 20 分） 。1利用 LOCATE 命令查找到满足条件的第1 条记录后，连续执行命令即可找到满足条件的其他记录 . 2要关闭表单，使用的命令语句是 . 3. 利用 _ _ 命令，可以在浏览窗口浏览表中的数据。4. 要将表中所有记录物理删除，可以使用的命令是_ _. 5. 在当前记录之后插入一条空白记录的命令是。6. 数据库文件默认的扩展名是_ _ 。7命令 ?UPPER(ab456cd) 的结果是。8DIMENSION x(3,4) 命令后，数组x 中的元素个数是。9在 SQL的 SELECT 查询中使用子句消除查询结果中的重复记录。10. 设已经生成了名为mymenu的菜单文件，执行该菜单文件的命令是。三、综合题（共50 分） 。1. 根据要求写SQL语句（每小题5 分，共 30 分） 。某表中有4 个数值型字段：数学、英语、计算机和总分。其中数学、英语、计算机的成绩均已录入，总分字段为空。要将所有学生的总分自动计算出来并填入总分字段中。在“职工”表中有“职称”和“工资”两个字段，现要求计算所有正教授和副教授的工资总额，并将其结果赋予内存变量gzze. 为职工表的职工编号字段建立升序的普通索引。统计某数据库中语文成绩（字段名为YW ）大于 80 分的记录数。为职工表插入一个新纪录( 2461， 张三，男， 2007-12-12，3000）检索职工表中女同志的信息。2表单操作。 （10 分）下图是一个计算圆面积程序画面, 当输入一个圆的半径时, 选择计算按钮后自动求出圆面积,并显示出来。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思 图中所示共有几种控件，分别是（） 。由于 text2为输出面积框，应设置其( ) 属性为 .t.。写出“计算”这个控件的单击(Click)事件命令代码。3. 程序设计填空题（10 分） 。下面是一个简单程序可实现以下功能：输入货物重量， 计算该货物的托运费，并在屏幕上显示出运费，记费标准每公斤为0.1 元，当超过50 公斤后，超出数为0.2 元。将程序填写完整。INPUT 请输入货物重量： w IF f=w*0.1 ELSE 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思数据库原理及应用复习资料2 参考答案一、选择题（ 20*1.5=30 分）1 2 3 4 5 6 7 8 9 10 CDBCDCBCBD11 12 13 14 15 16 17 18 19 20 CC BCBC A BCB 三、填空题（ 10*2=20 分）1、 CONTINUE 2、 Thisform.Release 或者 release thisForm 3、 BROWSE4、ZAP5、INSERT BLANK 6、.dbc7、AB456CD8、129、DISTINCT 10、DO mymenu.mpr三、综合题 (共 50 分) 1.根据要求写SQL 语句。 （每小题5 分，共 30 分） REPLACE ALL总分 WITH 高等数学 +英语 +计算机网络SUM 工资 TO gzze FOR 职称 =副教授 .OR. 职称 =正教授 Index on 职工编号 tag 职工编号COUNT FOR YW80 Insert into 职工VALUES( 2461，张三，男， 2007-12-12，3000）Select *from 职工 where 性别 =女2表单操作。 （10 分）命令按钮，文本框，标签（3 分）readonly （2 分）r=thisform.text1.value thisform.text2.value = r*r*3.14 （5 分）3.程序设计填空题。 （10 分，每空2 分）TO w=50f=50*01+(w-50)*0.2 ENDIF ? 托运费为： ,f 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思数据库原理及应用复习资料3一、选择题（每题2 分 共 40 分）得分1Visual FoxPro 中的 DO CASE-ENDCASE 语句属于（） 。（ A）选择结构（B）循环结构（C）模块结构（D）顺序结构2表达式20%4 的结果是（） 。（ A）4 （ B）2 （C）5 （D）0 3在 Visual FoxPro 6.0 中，扩展名为.dbc 的文件是（） 。（ A）数据库文件（B）索引文件（C）报表文件（D）表单文件4VisualFoxPro6.0 称为（） 。（ A）数据库系统（B）数据库管理系统（C）操作系统（ D）数据库5函数 ABS(INT(VAL(-56.72)的返回值为（） 。（ A）56 （ B）-56 （C）57 （D）-57 6以下属于日期常量的是（） 。（ A）2010/05/20 （B）2010/05/20 （C） 2010/05/20 （D） 2010/05/20 7进行联接查询时，若想查询结果只包含有两表中相匹配的记录，则这两个表的表间联接类型应选择为（） 。（ A）完全联接（B）左联接（C）右联接（D）内部联接8下列关于字段名的命名规则，不正确的是（） 。（A）字段名中可以包含空格（B）字段名必须以字母或汉字开头（C）字段名可以由字母、汉字、下划线、数字组成（D）自由表的字段名最多只能有10 个字节9把当前表的记录指针移到第一条记录，应该使用的命令是（） 。（A）SKIP 1 （B）GO 0 （C）GO TOP （D）GO BOTTOM10下列关于视图的叙述，错误的是（） 。（A）视图可以更新数据（B）视图的数据源可以是视图（C）视图的数据源可以是数据库表（D）视图的数据源可以是查询11 SQL语言又称为（） 。（A）结构化定义语言（B）结构化控制语言（C）结构化查询语言（D）结构化操纵语言12下列关于索引的叙述，错误的是（） 。（A）只有数据库表才能建立主索引（ B）只有数据库表才能建立候选索引（C）数据库表和自由表都可以建立普通索引（D）数据库表和自由表都可以建立唯一索引13如果要将查询结果中的字段重新命名, 需要使用的短语是（） 。（A）AS （B）RENAME （C）TO （D）WHERE 14执行以下程序后，内存变量S 的值是（） 。S=1 FOR N=1 TO 7 STEP 2 S=S*N ENDFOR 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思？ S （ A）16 （B）105 （C）15 （D）945 15在 Visual FoxPro 中，打开数据库的命令是（） 。（ A）DISPLAY DATABASE （B）MODIFY DATABASE （ C）OPEN DATABASE （D）USE DA TABASE 16在表单的命令按钮的键面上所显示的文字对应于该命令按钮的（）属性值。（A）Order （B）Value （C）Caption （D）Picture 17一个数据库表不可能同时拥有（） 。（A）多个普通索引（B）多个唯一索引（C）多个候选索引（ D）多个主索引18假设 考试成绩 表中有学号、姓名、分数等字段，求表中的最低分可用命令（） 。（A）SELECT 最低分FROM 考试成绩（B）SELECT 分数FROM 考试成绩MIN( 分数 ) （C）SELECT MIN(*) FROM 考试成绩（D）SELECT MIN( 分数 ) FROM 考试成绩19在 VFP6 的命令窗口中输入命令行：?AT(net,internet)，结果是（） 。（A）6 （B）.F. （C） 0 （D）.T. 20.下列属于自由表特点的是（） 。（A）可以指定表中字段的默认值和输入掩码（B）支持主关键字、参照完整性和表之间的联系（C）只能建立候选索引、唯一索引和普通索引，不能建立主索引（D）可以为表中的字段指定标题和添加注释二、填空题： （每空 1 分 共 10 分）得分1. 在 VFP中 索引类型有、。2.在 SQL 中，删除当前数据库中某一个表的语句是TABLE 。3.函数 LEN(Alltrim(STR(1234)的返回值是。4. 在 FORENDFOR 循环结构中，如省略步长则系统默认步长为5. 假设现有程序a.prg,那么执行这个程序的命令是。6. 在 关 系 数 据 模 型 中 ， 二 维 表 中 的 每 一 列 称 为 一 个 字 段 ， 或 称 为 关 系 的 一 个_； 二维表中的每一行称为一个记录，或称为关系的一个_。三、请写出SQL 语句（每小题3 分 共 30 分）得分现有数据库“学生成绩管理”，其中包含以下两张数据表表 1 “学生”表结构字段名称数据类型宽度说明学号字符型3 主码姓名字符型8 性别字符型2 只能输入 ” 男” 或” 女”出生日期日期型简历备注型精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思照片通用型表 2 “成绩”表结构字段名称数据类型宽度说明学号字符型3 课程名字符型8 成绩数值型5,1 要求1用 SQL 语句创建“学生”表，实现说明中的要求。2在成绩表中添加“平时成绩”字段，数据类型为数值型，宽度为3 3在学生表中查询所有女生的姓名，出生日期，简历。4在成绩表中查询学号为“001”的学生的“数学”课成绩。5在成绩表中求各门课的总分，在结果中显示课程名和总分。6查询姓名为“张三”的学生所学的课程名及成绩，结果按成绩降序排列7查询年龄小于20 岁的学生的姓名及性别。8查询姓“王”的学生的学号，姓名，性别。9查询所有成绩良好（成绩在7585 之间）的学生的学号，姓名，课程名，成绩10求男女学生的人数，在结果中显示性别及人数。四、表单操作（1-5 小题每小题3 分第 6 小题 5 分 共 20 分）得分精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 13 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思如上图所示，表单中有一个标签(名为 label1)，一个文本框(名为 text1)，四个命令按钮及一个计时器 (名为 timer1) ，请写出四个命令按钮的click 事件代码及计时器的timer 事件代码。1隐藏标签1 按钮，要求单击该按钮时隐藏标签1 2显示日期按钮，要求单击该按钮时在文本框text1 上显示系统日期。3设置计时器按钮，要求单击该按钮时设置计时器timer1 的执行时间间隔为1 秒钟。4退出按钮，要求单击该按钮时关闭当前表单。5计时器，要求在标签1 上显示系统时间。6.在计时器的timer 事件中编写程序，功能是当时间的秒钟为单数时标签1 的字体颜色为红色当时间的秒钟为双数时标签1 的字体颜色为绿色。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 14 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思数据库原理及应用复习资料3 参考答案一、选择题（每题2 分，共 40 分）1 2 3 4 5 6 7 8 9 10 A D A B A B D A 或 D C D 11 12 13 14 15 16 17 18 19 20 C B A B C C D D A C 二、填空题（每题1 分，共 10 分）1、 主索引、 候选索引、 普通索引、 唯一索引或二进制索引2、 DROP 3、4 4、1 5、 do a.prg 6、属性、元组三、请写出SQL 语句（每小题3 分 共 30 分）1.create table 学生（学号 c （ 3）primary key，姓名 c （8） ，性别 c （2） check 性别=“男” or 性别 =“女” ，出生日期 d ，简历 m，照片 g ）2.alter table 成绩 add 平时成绩 n （3）3.select 姓名，出生日期，简历 from 学生 where 性别 =“女”4.select 成绩 from 成绩 where 学号 =“001” and 课程名 =“数学”5.select 课程名， sum （成绩） as 总分 from 成绩 group by 课程名6.select 课程名，成绩 from 学生 join 成绩 on 学生 . 学号 =成绩 . 学号 where 姓名 =“张三” order by 成绩 desc 7.select 姓名，性别 from 学生 where year(date()-year(出生日期 )20 8.select 学号，姓名，性别 from 学生 where 姓名 like “王 % ”9. select 学生 .学号，姓名，课程名，成绩from 学生 join 成绩 on 学生 . 学号 =成绩 . 学号where 成绩 between 75 and 85 10. select 性别， count （学号） as 人数 from 学生 group by 性别表单操作（ 1-5 小题每小题3 分第 6 小题 5 分 共 20 分）1、 Thisform.label1.visible=.f. 2、 thisform.text1.value=date() 3、 thisform.timer1.interval=1000 4、 release thisform 5、 Thisform.label1.caption=time() 6、 if sec(datetime()%20 thisform.label1.forecolor=RGB(255,0,0) else 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共 16 页读书之法 ,在循序而渐进 ,熟读而精思thisform.label1.forecolor=RGB(0,255,0) endif 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 16 页