2008级《VFP程序设计》练习(表单题部分)表单题(参考答案)
2008年9月vfp试卷及参考答案
2008年9月全国计算机等级考试二级笔试试卷Visual FoxPro数据库程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）一个栈的初始状态为空。
现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再依次出栈，则元素出栈的顺序是A) 12345ABCDE B) EDCBA54321C) ABCDE12345 D) 54321EDCBA（2）下列叙述中正确的是A) 循环队列有队头和队尾两个指针，因此，循环队列是非线性结构B) 在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C) 在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D)循环队列中元素的个数是由队头指针和队尾指针共同决定（3）在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是A) O(n) B) O(n2) C)O(log2n) D) O(nlog2n)（4）下列叙述中正确的是A) 顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的B) 顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C) 顺序存储结构能存储有序表，链式存储结构不能存储有序表D) 链式存储结构比顺序存储结构节省存储空间（5）数据流图中带有箭头的线段表示的是A) 控制流 B) 事件驱动C) 模块调用 D)数据流（6）在软件开发中，需求分析阶段可以使用的工具是A) N-S图 B) DFD图 C) PAD图 D) 程序流程图（7）在面向对象方法中，不属于“对象”基本特点的是A) 一致性 B) 分类性 C) 多态性 D) 标识唯一性（8）一间宿舍可住多个学生，则实体宿舍和学生之间的联系是A) 一对一B)一对多 C) 多对一 D) 多对多（9）在数据管理技术发展的三个阶段中，数据共享最好的是A) 人工管理阶段 B) 文件系统阶段C) 数据库系统阶段 D) 三个阶段相同（10）有三个关系R、S和T如下：R S TA) 笛卡尔积 B) 交 C) 并 D)自然连接（11）设置表单标题的属性是A) Title B) Text C) Biaoti D) Caption（12）释放和关闭表单的方法是A) Release B) Delete C) LostFocus D) Destory（13）从表中选择字段形成新关系的操作是A) 选择 B) 连接C) 投影 D) 并（14） Modify Command命令建立的文件的默认扩展名是A) prg B) app C) cmd D) exe（15）说明数组后，数组元素的初值是A) 整数0 B) 不定值 C) 逻辑真 D)逻辑假（16）扩展名为mpr的文件是A) 菜单文件B)菜单程序文件 C) 菜单备注文件 D) 菜单参数文件（17）下列程序段执行以后，内存变量y的值是X=76543Y=0DO WHILE x>0y=x%10+y*10x=int(x/10)ENDDOA) 3456 B) 34567 C) 7654 D) 76543（18）在SQL SELECT查询中，为了使查询结果排序应该使用短语A) ASC B) DESC C) GROUP BY D) ORDER BY（19）设a=“计算机等级考试”，结果为“考试”的表达式是A) Left(a,4) B) Right(a,4) C) Left(a,2) D) Right(a,2)（20）关于视图和查询，以下叙述正确的是A) 视图和查询都只能在数据库中建立B) 视图和查询都不能在数据库中建立C)视图只能在数据库中建立D) 查询只能在数据库中建立（21）在SQL SELECT语句中与INTO TABLE等价的短语是A) INTO DBF B) TO TABLE C) INTO FORM D) INTO FILE（22） CREATE DATABASE命令用来建立A)数据库 B) 关系 C) 表 D) 数据文件（23）欲执行程序temp.prg，应该执行的命令是A) DO PRG temp.prg B) DO temp.prgC) DO CMD temp.prg D) DO FORM temp.prg（24）执行命令MyForm=CreateObject（”Form”）可以建立一个表单，为了让该表单在屏幕上显示，应该执行命令A) MyForm.List B) MyForm.DisplayC) MyForm.Show D) MyForm.ShowForm（25）假设有student表，可以正确添加字段“平均分数”的命令是A) ALTER TABLE student ADD 平均分数 F(6,2)B) ALTER DBF student ADD 平均分数 F 6,2C) CHANGE TABLE student ADD 平均分数 F(6,2)D) CHANGE TABLE student INSERT 平均分数 6,2（26）页框控件也称作选项卡控件，在一个页框中可以有多个页面，页面个数的属性是A) Count B) Page C) Num D) PageCount（27）打开已经存在的表单文件的命令是A) MODIFY FORM B) EDIT FORM C) OPEN FORM D) READ PORM（28）在菜单设计中，可以在定义菜单名称时为菜单项指定一个访问键。
VFP教材书后练习题答案(苏大2008年版)
VFP教材书后练习题答案第一章一、选择题1．C 2．A 3．C 4．C 5．C 6．D 7．D 8．D二、填空题1．数据库管理系统 2．冗余度 3．元数据 4．概念层 5．属性 6．完整性规则 7．实体完整性 8．信息流第二章一、选择题1．C 2．C 3．D 4．C 5．A 6．C 7．C 8．B二、填空题1．； 2．Shift 3．SET ESCAPE ON /OFF 4．.PIX.和.PJT 5．全局6．DIMESION 7．Save to mVar all like c* 8．10,8 9．MESSAGEB( )第三章一、选择题1．D 2．C 3．B 4．A 5．C 6．A 7．A 8．A 9．A 10. C二、填空题1．255 2．Ctrl+Home 3．Additive 4．Y 5．drop column by6．select 0 7．xs, w20 8．freeze 9．zap 10. .cdx第四章一、选择题1．B 2．C 3．A 4．D 5．D 6．D 7．D二、填空题1．完全联接 2．DISTINCT 3．UNION 4．TO FILE5．SUBSTR(BM.ZKZ,4,2), GROUP BY 1 6．MONTH(XS.CSRQ), COUNT(*)*100, DESC 7．DISTINCT, COUNT(*), 18．0,本题第二行有错误，改为SUM(IIF(XB=”女”,1,0) ) AS女生人数9．1 10. IIF(KS.CJ>59,1 0), 4 DESC第五章一、选择题1．A 2．D 3．C 4．C 5．D 6．D 7．C 8．A 9．D 10. C二、填空题1．.FXP 2．ESC 3．i<=10, ?CHR(k) 4．10,15 5．Nsum+jc(n)/jc(n+1), to x 6．55+mod(num,16), num1 7．封装性 8．属性 9．error 10. 容器对象11. _screen.caption, thisformset第六章一、选择题1．C 2．B 3．A 4．A 5．B6．D 7．C8．B 9．D 10. A二、填空题1．集合 2．顶层表单 3．LOAD, ACTIVATE4．确定(\<Y) 5．PASSWORDCHAR 6．0 7．下拉列表框8．0~99 9．INTERVAL 10. ENABLED11. THIS.PARENT.CMD2.ENABLED=.F. 12. TEXT1.VALUE 13. 文本框14. SETALL 15. COLUMNS(i), STR(i-2，1)16. IIF(CJ<60,RGB(255,0,0), RGB(0, 0,255)) 17. ACTIVEPAGE 18. PAGECOUNT19. ACTIVEPAGE 20. USE (X), -1, X第七章一、选择题1．C 2．C 3．B 4．A 5．D 6．D 7．B 8．C 9．B 10.D二、填空题1．类库，.vcx 2．公共、保护、隐蔽 3．.F.,0 4．控件5．cmdclose,CommandButton, cmd 6. RGB(0, 0,255)第八章一、选择题1．B 2． D 3．A 4．B 5．B二、填空题 1．_PAGENO 2．一对多 3．每行 4．细节 5．细节 6．页面设置 7．双击 8． PREVIEW 9. PROMPT 10. LBX第九章一、选择题 1．C 2．D 3．C 4．B 5．D6．B 7．A 8．A二、填空题 1．快捷菜单 2．set sysmenu to default 3．set sysmenu off 4．过程 5．Day(date())#1 6. .T. 7. MPR 8. DO MENUA.MPR 9.RIGHTCLICK 10. DOCK(0)第十章一、选择题 1．C 2．B 3．A 4．B 5．D二、填空题 1．255，254 ， 20 2．调试器 3．ON ERROR， ERROR 4．CLEAR EVENT 5．排除，包含 6．连编可执行文件 7．Web安装。
vf表单试题
vf表单试题职业部07－08学年下学期第⼀次⽉考试卷科⽬：《VFP》⼀、填空题（每空1分，共30分）1.表单向导能产⽣两种表单：__________和________________________。
2.表单的英⽂名称为____________；表单设计完成以后，保存在磁盘上的表单⽂件的扩展名为________________。
3.创建快速表单的步骤：（1）_____________________________________（2）通过________菜单的_______________命令进⾏设置。
4.Visual FoxPor6.0中的控件对象基于所属的类可以分为________________和________________。
5._______控件是⼀种能在表单上显⽰⽂本的输出控件，常⽤作提⽰或说明。
6.标签的__________属性⽤于指定该标签的标题。
7.可以向⽂本框输⼊数值型、____________、____________、逻辑型4种类型，⽽编辑框只能⽤于输⼊和编辑____________型的数据。
8.Active X绑定控件与_____________型的字段绑定，能显⽰此类型中的OLE对象。
9.数据环境指创建表单时使⽤的数据源，包括_______、____________以及表单所要求的表之间的关系。
10.数据环境设计器中拖动表的字段到表单中产⽣的控件，如果添加的是逻辑型字段系统⽣成_____________；备注型字段⽣成____________；表⽣成_____________。
11.在表单设计器中，如果选定多个对象需按住____________键然后单击各个对象。
12.在表单设计器中复制对象时，新对象可以复制原对象的所有信息，但不能复制原对象的____________属性。
13.在命令窗⼝中执⾏___________________或_____________________命令，即可打开表单设计器窗⼝。
2008秋vfp试卷(答案)
2008年秋浙江省高等学校试题1、（每空格3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】某冷饮店出售冰淇淋，第二天的订单必须在当天下午四点钟之前送出，根据统计资料，冰淇淋的销售与天气有关，晴天可销售3000支，阴天可销售1500支，下雨天可销售800支；该店向冰淇淋厂家订货批量有3000支、2000支和1600支三种；每售出一支冰淇淋可得利润5角钱，如果订购的冰淇淋当天没有及时售出将损失6角钱。
求第二天某订货批量下的利润？【程序】SET TALK OFFCLEARDO WHILE .T.INPUT '订货批量=' TO PLDO CASECASE PL=3000LR1=3000*0.5LR2=1500*0.5-(3000-1500)*0.6LR3=800*0.5-(3000-800)*0.6CASE PL=2000LR1=2000*0.5（1）LR3=800*0.5-(2000-800)*0.6（2）LR1=1600*0.5LR2=1500*0.5-(1600-1500)*0.6LR3=800*0.5-(1600-800)*0.6OTHE（3）（4）ENDCASEEXITENDDO? "订货批量为"+ALLT(STR(PL))+"时，利润分别为："? "晴天=",LR1,"阴天=",LR2,"下雨=",LR3SET TALK ON【供选择的答案】(1) A、LR2=1500*0.5-1500*0.6B、LR2=2000*0.5-(2000-1500)*0.6C、LR2=1500*0.5-(3000-1500)*0.1D、LR2=1500*0.5-(2000-1500)*0.6(2) A、CASE PL=1600 B、OTHERWISEC、IF PL=1600D、CASE PL<>3000 OR PL<>2000(3) A、WAIT '订货批量输入有错！,重输'B、INPUT '订货批量输入有错！,重输'C、ACCEPT '订货批量输入有错！,重输'D、? 订货批量输入有错！,重输(4) A、ENDIF B、EXITC、LOOPD、ELSE试题2、（每空格3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
2008年春季江苏省计算机等级考试二级VFP考试试题(含答案)
2008年春季江苏省计算机等级考试二级VFP考试试题第一部分:计算机基础知识一、选择题(用答题卡答题，答案依次填在1—20答题号内)1．在下列有关微电子技术与集成电路的叙述中，错误的是( ) 。
A．微电子技术是以集成电路为核心的技术B．集成度是指单个集成电路所含电子元件的数目C．Moore定律指出，单个集成电路的集成度平均每18—24个月翻一番D．IC卡仅有存储器和处理器，卡中不可能存储有软件2．在下列有关通信技术的叙述中，错误的是( ) 。
A．目前无线电广播主要还是采用模拟通信技术B．数字传输技术最早是被长途电话系统采用的C．数字通信系统的信道带宽就是指数据的实际传输速率(简称”数据速率”)D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号3． CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施? ( )①增加CPU中寄存器的数目②提高CPU的主频③增加CPU中高速缓存(cache)的容量④优化BIOS的设计A．①、③和④B．①、②和③ C．①和④ D．②、③和④4．下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是( ) A． RS-232 B． IEEE-1394 C． USB D． IDE5．下列有关PC机外部设备的叙述中，错误的是（）。
A．扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一B．制作3—5英寸的照片(图片)，数码相机的CCD像素必须在600万以上C．集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中D．存折和票据的打印，目前主要是采用针式打印机6．下列有关PC机辅助存储器的叙述中，错误的是( ) 。
A．硬盘的盘片转动速度特别快，目前一般为每秒数千转B. 近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快C．目前移动硬盘大多采用USB 2．0接口，其传输速率可达每秒数十兆字节D. 40倍速的CD-ROM驱动器的速率可达6MB／s左右7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是（）。
(完整版)vfP程序设计基础习题集
VFP程序设计习题习题一一、判断题（1分/题，共20分，对打画√，错打×）1．建立自由表分两步：定义表结构和输入数据。
2．表间的关系分三种：一对一关系、一对多关系和多对多关系。
3.若要使用多个表，就要使用多个工作区。
4．在应用程序中可以通过使用该工作区的表的别名来标识工作区。
5．对象具有属性，而属性只能在设计阶段设置。
6．引用对象的方法分绝对引用和相对引用。
7．表单集是指两个以上的表单同时输出，并且可以通过程序或鼠标交换输出权。
8．一条命令可分几行写，在行结束处用“：”表示一行未完，转入下一行。
9．VFP主要数据容器有：表记录、变量和数组。
10．报表包括两个基本组成部分：数据源和布局。
11．如果不想使用“报表向导”或“快速报表”设计报表，可以从空白报表布局开始，然后自己添加控件。
12．表选择查询输出的去向可以是浏览、报表或表单。
13．视图与查询相类似的地方是：可以用来从一个或多个相关联的表中提取有用信息。
14：视图与表相类似的地方是：可以用来更新其中的信息，并将更新结果永久保存在磁盘上。
15．在“数据库设计器”中，视图的显示方式与表在分层结构中的显示方式相同，所不同的是视图名代替了表名。
16．一个视图在使用时，将作为临时表在自己的工作区中打开。
17．如果打开基于本地表的视图，则在Visual FoxPro的另一个工作区中基表被同时打开。
18．在视图中更新数据与在表中更新数据类似，使用视图还可以对其基表进行更新。
19．ＶＦＰ中的ＮＵＬＬ表示未知数据，便于与含有ＮＵＬＬ值的ＳＱＬ数据库一起工作。
20．索引是改变表的物理顺序，排序是排列表的逻辑顺序。
二、选择题（每个选择3分，共24分）1．统计女生人数并将结果存放于变量X中的命令是（）(A).COUNT FOR .NOT. 性别=”男” TO X(B).COUNT FOR ( 性别=”女”)=.T. TO X(C).SUM FOR ( 性别<>”男”)=.T. TO X(D).SUM FOR 性别=”女” TO X2. 在已打开的表中,要永久删除当前记录位置开始的10条记录,可用()(A)先执行DELETE NEXT 10命令,后用PACK命令(B)先执行DELETE RECORD 10命令,后用PACK命令(C)先执行DELETE FOR RECORD> 10命令,后用PACK命令(D)ZAP NEXT 103.按数值型字段”总分”进行索引,使其按降序排列的命令是()(A)INDEX ON -总分TO WP(B)INDEX ON 总分/A TO WP(C)INDEX ON 总分TO WP(D)INDEX ON 总分/D TO WP4.下列操作后,不改变表记录指针的命令是()(A)RECALL(B)LIST(C)SUM(D)REPL ALL5.按照数据库的数据模型分类,VFP属于()(A)层次型(B)关系型(C)网状型(D)混合型6.函数LEN(SPACE(5)-SPACE(1))的返回值是()(A)错误信息(B)17(C)6(D)47.某表文件中有日期型字段”出生日期”,设N=’01/01/80’,下列命令正确的是()(A)LOCATE FOR 出生日期=’01/01/80’(B)LOCATE FOR 出生日期=&N(C)LOCATE FOR DTOC(出生日期)=N(D)LOCATE FOR DTOC(出生日期)=CTOD(N)8.从表customer中提取所有记录生成查询，并将查询结果存放于表MyCursor的SQL命令为（）(A)SELECT * FROM customerINTO CURSOR MyCursor(B)SELECT * FROM customerINTO TABLE MyCursor(C)SELECT ALL FROM customerINTO TABLE MyCursor(D)CREATE SQL VIEWMyCursor ASSELECT * FROM customer答案一．1．（√）2．（√）3．（√）4．（√）5．（×）6．（√）7．（√）8．（×）9．（√）10．（√）11．（√）12．（×）13．（√）14．（√）15．（√）16．（√）17．（√）18．（√）19．（√）20．（×）二．AAAABCCB习题二一．判断题（1分/题，共21分，对画√，错画×）1．VFP程序每行必须以“；”结尾。
VFP教程2008年版课后练习题含答案
VFP教程2008年版课后练习题含答案
前言
Visual FoxPro（简称VFP）是由微软公司开发的一种关系型数据库管理系统（DBMS），是极受开发人员欢迎的一种开发软件。
VFP 9.0 是VFP系列的最后一个版本，于2004年出版。
然而，本文将针对2008年版的VFP教程编写课后练习题与答案。
一、题目
1.什么是VFP？
2.VFP的运行环境是什么？
3.VFP支持哪些数据类型？
4.请说明常见的VFP UI控件及其作用。
5.请简述VFP中如何创建表格。
二、答案
1.VFP是一种关系型数据库管理系统，由微软公司开发。
2.VFP运行环境要求Windows操作系统。
3.VFP支持多种数据类型，包括整数、浮点数、日期时间、字符、逻辑、
二进制以及货币。
4.常见的VFP UI控件包括表单、查询器、报表、标签页、下拉框、文
本框、按钮、菜单、工具栏等，它们的作用和常规的UI控件类似。
5.在VFP中，创建表格可以通过执行以下步骤来完成：
1.打开VFP控制台并创建一个新应用程序。
2.在应用程序的主窗体中打开数据库设计器。
3.在数据库设计器中创建一个新的数据表。
4.为数据表定义字段，并定义它们的数据类型。
5.为数据表设置主键、默认值和其他属性。
6.保存数据表并退出设计器。
三、总结
本文针对VFP教程2008年版编写了一些课后练习题及其答案，希望对读者有所帮助。
需要指出的是，VFP之所以受欢迎，是因为它具有数据库管理和UI设计的强大功能。
通过学习VFP，可以轻松地构建符合业务需要的信息系统。
2008年秋VFP上机练习试卷4(注意保存、以后有用)
江苏省高等学校非计算机专业学生2008(秋)计算机基础知识和应用能力等级考试上机试卷二级Visual FoxPro(试卷代号VFP04)一、项目、数据库和表操作(12分)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ｡1、按下列要求在数据库JXSJ中新建一个表名为AB4的数据库表。
（1）按下表所示创建AB4表的表结构（包括字段的标题属性）：（2（3）为BH字段设置默认值：为当前记录号；（4）创建一个普通索引abcd，要求按BMRQ字段排序，BMRQ相同时按BH字段排序。
2、为学生（XS）表设置插入触发器：班级编号（BJBH字段）的前二位必须为入学年份（来源于入学日期（RXRQ）字段。
例如2008年入学的学生BJBH必须以“08”开头）。
3、为学生（XS）表增加一个是否转专业字段（字段名为ZZY，类型为逻辑型），并为其赋值：如果院系专业代码（YXZYDM字段）的前四位与学号（XH字段）中的第3~6位不一致，则ZZY字段的值设置为.T.。
4、已知课程（KC）表和课程安排（KCAP）表存在相同的课程代码（KCDM）字段，以KC表为主表，KCAP表为子表，按KCDM建立永久关系，并设置KC 表和KCAP表之间的参照完整性：更新级联、删除限制。
二、设置查询(8分)已知教师(JS)表存储了每名教师的基本信息，其中含院系专业代码（YXZYDM，C）、性别（XB，C）等字段，院系专业（YXZY）表为院系专业代码与与院系专业名称对照表，含院系专业代码（YXZYDM，C）、院系名称（YXMC，C）等字段。
按如下要求修改JXGL项目中的查询CHAXUN：基于JS表和YXZY表统计各院系人数及男教师人数。
要求：输出院系名称、人数和男教师人数（字段名依次分别为YXMC、RS和NANRS），且查询结果按男教师人数降序排列，输出去向为文本文件TEMP.TMP。
三、设计菜单(5分)JXGL项目中已存在菜单MENU，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项｡按如下要求设计菜单，完成后的运行效果如图1所示｡图11、在“系统管理”菜单栏中插入VFP系统菜单“导出”，并为其设置跳过条件：当前工作区中无表打开时，该菜单跳过，即菜单不可用（提示：使用ALIAS（）函数可以测试当前工作区中有无表打开）；2、创建“教师管理”菜单栏，其访问键为T，并创建其子菜单“录入”和“编辑”、“浏览”和“打印预览”，分组线如图1所示;3、为“打印预览”菜单项设置命令，其功能是预览报表文件RTEST。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2008级《VFP程序设计》练习（表单题部分）一、表单设计230100、LOGIN.scx######form Form1AutoCenter = .T.Caption = "登录"######label Label1AutoSize = .T.Caption = "密码"######label Label2AutoSize = .T.Caption = "登录日期"######textbox Text1InputMask = "999999"PasswordChar = "*"######textbox Text2BorderStyle = 0Value = (DATE( ))ReadOnly = .T.BackColor = 192,192,192######commandbutton Command1 Caption = "确定"######commandbutton Command2 Caption = "取消"######230101、shape.scx######form Form1Caption = "画图"######shape Shape1Height = 100Width = 70Top = 20Left = 30BorderColor = 255,0,0######command Command1 Caption = "画图"######command Command2 Caption = "退出"######230102、line.scx######form Form1Caption = "图形"######shape Shape1Height = 100Width = 100 BorderWidth = 6 Curvature = 99 BackColor = 255,0,255 BorderColor = 255,255,0 ######line Line1 BorderWidth = 20 BorderColor = 0,0,255 ######230103、imsh2.scx######form Form1BackColor = 200,255,255######label Label1FontName = "隶书"FontSize = 18BackStyle = 0Caption = "日落"ForeColor = 0,0,255######image Image1Picture = ..\..\fjexam95\sunset.jpg Stretch = 1######230104、sjrq2.scx######form Form1Caption = "显示时间与日期" ######pageframe Pageframe1 PageCount = 2Page1.Caption = "时间" Page2.Caption = "日期"######label label1FontSize = 14Caption = (time())######label label2FontBold = .T.Caption = (dtoc(date()))######230105、shpr.scx######form Form1Caption = "形状变化"######label Label1FontSize = 12Caption = "圆角曲率"######spinner Spinner1 KeyboardHighValue = 99 KeyboardLowValue = 0 SpinnerHighValue = 99.00 SpinnerLowValue = 0.00 ######shape Shape1 BackColor = 255,0,0######230106、horse.scx######label Label1Caption = "哈哈镜"AutoSize = .T.FontSize = 20######image Image1Picture = ..\..\fjexam95\zebra.bmp Stretch = 2Height = 120Width = 80######230107、Selball2.scx######form Form1AutoCenter = .T.Caption = "选择"######optiongroup Optiongroup1 ButtonCount = 3Option1.Caption = "选1号" Option2.Caption = "选2号" Option3.Caption = "选3号" Option1.Top = 5Option2.Top = 5Option3.Top = 5######commandgroup Commandgroup1 ButtonCount = 2Command1.Caption = "确定" Command2.Caption = "取消" Command1.Top = 5Command2.Top = 5######230108、dxxz2.scx######form Form1Caption = "多项选择"######check Check1Caption = "选择1"AutoSize = .T.######check Check2Caption = "选择2"AutoSize = .T.######commandgroup Commandgroup1 Command1.Caption = "确定" Command2.Caption = "取消"######230109、combo.scx######form Form1Caption = "选择"######label Label1Caption = "请选择"######combobox Combo1 RowSourceType = 1 RowSource = "VB,VFP,C语言" ######checkbox Check1Caption = "总成绩"######checkbox Check2Caption = "平均成绩"######230110、edit.scx######form Form1Caption = "显示"######editbox Edit1FontName = "楷体_GB2312" Alignment = 2Value = 居中显示######textbox Text1Value = (date())FontBold = .T.ForeColor = 100,0,100 BackColor = 200,200,255######二、表单编程230200、lbtjsc.scx参考解答：●对象command1（添加按钮）的click事件a=thisform.text1.valuethisform.list1.additem(a)●对象command2（删除按钮）的click事件for i=thisform.list1.listcount to 1 step -1if thisform.list1.selected(i)thisform.list1.removeitem(i)endifendfor230201、ddcx.scx参考解答：●设置对象text1的value属性为“=date()”●对象command1（查询按钮）的click事件rq=thisform.text1.valuethisform.grid1.recordsource="sele 订单号,签订日期,金额from orders ;where 签订日期<=rq into cursor ls"thisform.refresh230202、xscx.scx参考解答：对象command1（查询按钮）的click事件a=alltrim(bo1.value)b=alltrim(bo2.value)thisform.grid1.recordsource="select xsb.商品号,商品名,上半年利润,下半年利润,上半年利润+下半年利润from xsb,spdmb ;where xsb.商品号=spdmb.商品号and 部门号=a and 年度=b into cursor lsb"thisform.refresh230203、login2.scx参考解答：●对象command1（确定按钮）的click事件xh=alltrim(bo1.value)mm=alltrim(thisform.text1.value)select 姓名from stulog where alltrim(学号)==xh and alltrim(密码)==mm into cursor lsb bel3.visible=.t.sele lsbif reccount()=0bel3.caption="密码错误"elsego topbel3.caption="欢迎"+alltrim(姓名)+"同学"endifthisform.refresh230204、adds.scx参考解答：●对象command1（统计按钮）的click事件repl all 金额with 单价*数量thisform.refresh●对象check1（复选框）的click事件if this.value=1mand1.enabled=.t.elsemand1.enabled=.f.endif230205、gspf.scx参考解答：对象combo1（选择歌手姓名组合框）的interactivechange事件a=alltrim(this.value)thisform.grid1.recordsource="select 评委编号,分数from gsb,pfb ;where gsb.歌手编号=pfb.歌手编号and alltrim(歌手姓名)=a into cursor lsb" select avg(分数) from lsb into array abcthisform.text1.value=abc(1,1)thisform.refresh230206、tsxz.scx参考解答：●对象optiongroup1的click事件sele avg(单价),sum(数量) from book1 where 种类=bo1.value into array sz if this.value=1thisform.text1.value=sz(1,1)elsethisform.text1.value=sz(1,2)endifthisform.refresh230207、ddpx.scx参考解答：●对象command1（生成表按钮）的click事件if thisform.optiongroup1.value=1sele 职员号,avg(金额) as 平均金额from orders group by 职员号;order by 平均金额into table px_aelsesele 职员号,avg(金额) as 平均金额from orders group by 职员号;order by 平均金额desc into table px_bendif230208、ddtj.scx参考解答：对象command1(统计按钮)的click事件if thisform.optiongroup1.value=1thisform.grid1.recordsource="select 客户号,count(订单号),sum(金额) ; from orders group by 客户号into cursor ls"endifif thisform.optiongroup1.value=2thisform.grid1.recordsource="select 职员号,count(订单号),sum(金额) ; from orders group by 职员号into cursor ls"endifthisform.refresh230209、rccx.scx参考解答：●对象command1(显示按钮)的click事件bh=bo1.valuethisform.list1.rowsource="sele 姓名,成果名称,成果类别from rcda,cjda ;where rcda.人才编号=cjda.人才编号and rcda.人才编号=bh into cursor ls" thisform.refresh230210、teach1.scx参考解答：●对象combo1的init事件this.listindex=1●对象combo1的click事件sele avg(基本工资) from ddm1,teach1 where ddm1.系号=teach1.系号; and 系名=this.value into array aif thisform.check1.value=0thisform.text1.value=""elsethisform.text1.value=a(1,1)endifthisform.refresh230300、calchar.scx参考解答：●对象command1（统计按钮）的click事件t=0a=thisform.text1.valuefor i=1 to len(a)x=substr(a,i,1)if x!=space(1)t=t+1endifendforthisform.text2.value=t230301、chadate.scx参考解答：●对象text1的value值改为“=date()”●对象spinner1的upclick事件thisform.text1.value=thisform.text1.value-1 thisform.refresh●对象spinner1的downclick事件thisform.text1.value=thisform.text1.value+1 thisform.refresh230302、js2.scx参考解答：●对象command1（计算按钮）的click事件a=thisform.text1.valueb=thisform.text2.valueif bo1.value="+"c=a+bendifif bo1.value="-"c=a-bendifif bo1.value="*"c=a*bendifif bo1.value="/"if b<>0c=a/belsec="除数不能为0"endifendifthisform.text3.value=c230303、calc.scx参考解答：●对象command1（计算按钮）的click事件x=thisform.text1.valuedo casecase x<=-10y=2*(sin(x)+1)case x<=10y=(abs(x)-5)/3otherwisey=x/7-8endcasethisform.text2.value=y230304、xsys.scx参考解答：对象command1（更新按钮）的click事件r=thisform.spinner1.valueg=thisform.spinner2.valueb=thisform.spinner3.valuethisform.shape1.backcolor=rgb(r,g,b)if r=255 and g=0 and b=0thisform.shape1.curvature=0elseif r=0 and g=255 and b=0thisform.shape1.curvature=50elseif r=0 and g=0 and b=255thisform.shape1.curvature=99elsethisform.shape1.curvature=1endifendifendifthisform.refresh230305、stfn.scx参考解答：对象command1(偶数字符串按钮)的click事件s=alltrim(thisform.text1.value)n=len(s)js=””for i=1 to nc=substr(s,i,1)if c>="0" and c<="9"d=val(c)if d%2=0js=js+cendifendifendforthisform.text2.value=jsthisform.refresh230306、addcal.scx参考解答：对象command1(添加按钮)的click事件s=thisform.text1.valuen=str(len(s))a=s+space(1)+alltrim(n)thisform.list1.additem(a)thisform.text1.setfocus230307、SelPag.SCX参考解答：●对象page1（天空页）的click事件this.backcolor=rgb(0,0,255)thisform.refresh●对象page2（沙漠页）的click事件this.backcolor=rgb(255,255,0)thisform.refresh●对象page3（雪原页）的click事件this.backcolor=rgb(255,255,255)thisform.refresh230308、leapyear.scx参考解答：●对象command1(是否闰年按钮)的click事件y=year(thisform.text1.value)if (y%4=0 and y%100!=0) or y%400=0thisform.text2.value="是闰年"elsethisform.text2.value="不是闰年"endifthisform.refresh230309、factor.scx参考解答：对象command1(因子个数按钮)的click事件n=thisform.text1.valuejs=0for i=1 to n-1if n%i=0js=js+1endifendforthisform.text2.value=jsthisform.refresh230310、stat.scx参考解答：对象command1(数字字符个数按钮)的click事件s=alltrim(thisform.text1.value)n=len(s)js=0for i=1 to nc=substr(s,i,1)if c>="0" and c<="9"js=js+1endifendforthisform.text2.value=jsthisform.refresh。