vfp实验题整理
VFP实验答案
PDF 文件使用 "pdfFactory Pro" 试用版本创建
STORE X(2, 4) TO Y(6) X(3,4)=X(4) ? X(4) ? X(2, 4) ? X(1, 4) ? X(12) ? Y(4) 1．DIMENSION X(3,4), Y(8) 2．本题的答案为：666，888，666，666，.F. 3．上机计算下列表达式的值。 （1）? 2*5 （2）? ‘I LOVE’ + ‘ CHINA’ （3）? ‘123’ – ‘56’ （4）? {08/12/98}-{08/10/98} （用 set stri to 0 将日期设置为不严格日期格式） （5）? ‘AS’ $ ‘ABDASD’ （6）? ‘AS’ = ‘ABDASD’ （7）? ‘AS’ = = ‘AS’ （8）? (8>5) .AND. ‘STRING’ $ ‘STR’ （9）? {11/26/96}–10 （10）? ‘DEF’ < ‘AB’ （1）10 （2）I LOVE CHINA （3）12356 （4）2 （5）.T. （6）.F. （7）.T. （8）.F. （9）11/16/96 （10）.F. 4．函数（在命令窗口使用下列函数并写出运行结果）。 【1】数值函数 （1）? INT(10−3.2) （2）? ROUND(282.467,1), ROUND(282.467,0) （3）? ABS(2∗3−8) （4）? MOD(218, 7), MOD(417, −8) （5）? MAX(128, 821),MIN(128, 821) （6）? SQRT (9) （7）? SIGN (-5) （8）? INLIST (80,20,100) （9）? BETWEEN (80,20,100) （10）? EMPTY ( 0 ) （11）? EMPTY ( ‘ ’ ) （12）? SIN ( 3.14/2 ) （13）?RAND(-5) 【运行结果为】 （1）6 （2）282.5 282 （3）2 （4）1 -7 （5）821 128 （6）3 （7）-1 （8）.F. （9）.T. （10）.T. （11）.T. （12）1.00 （13）随机值 【2】字符函数 Y=“ 123” （1）? 456+&Y （2）? LEFT(“ AABBCCDD”, 2) （3）? RIGHT(“ AABBCCDD”, 2) （4）? SUBSTR(“ AABBCCDD”, 4, 2), SUBSTR(“ AABBCCDD”, 0, 2) （5）? STUFF(“WORLD”, 2,令窗口中使用命令并写出结果）。 设 ABOUT=8， AMOUNT=“ 18”， BOOK=10， ROOT=“HAPPY”， A=123， B= ‘Hangzhou’， C=‘VFP’ 要求： （1）实现对上述变量赋值并显示内存变量。 （2）把上述变量保存到 A1.MEM 文件中。 （3）把第 3 个字母为 O 的变量保存到 A2.MEM 文件中。 （4）把所有第 1 个字母不是 A 的变量保存到 A3.MEM 文件中。 （5）清除所有内存变量 （6）恢复 A1.MEM 文件中变量（不加 additive）。 （7）清除以 A 开头的内存变量。 （8）清除所有第 3 个字母不为 O 的内存变量。 （9）清除所有内存变量。 （10）新增变量 A2=200，B2=50 （11）恢复 A1.MEM 文件中内存变量（带 additive） **建议同学们每执行一条命令后， 都执行一次 DISP MEMO 命令来观察内存变量的变化。 参考答案： （1）在命令窗口中用 STORE 和“=” 直接给变量赋值；DISP/LIST MEMO （2）SAVE TO A1 （3）SAVE TO A2 ALL LIKE ??O∗ （4）SAVE TO A3 ALL EXCEPT A∗ （5）RELEASE ALL （6）RESTORE FROM A1 （7）RELEASE ALL LIKE A* （8）RELEASE ALL EXCEPT ??O* （9）RELEASE ALL （10）在命令窗口定义变量 A2=200，B2=50 （11）RESTORE FROM A1 ADDITIVE 2．数组变量的定义和使用（在命令窗口中使用命令并写出结果）。 （1）定义数组 X(3,4)，Y(8) （2）写出下列命令的运行结果。 STORE 666 TO X(1, 4) X(8)=888
VFP题目及答案
VFP题⽬及答案1.在两个⽂本框中分别输⼊⽤户名和密码，点击“注册”按钮，出现三种情况：a)若⾄少⼀个⽂本框为空，者提⽰“⽤户名或密不能为空！”b)若输⼊的⽤户名的已经在后台的“⽤户”表中存在，则提⽰“此⽤户名已被占⽤，请重新输⼊！”c)排除上述两种情况，则出现“注册成功”信息，并把该新注册的⽤户名及密码写⼊后台的“⽤户”表中2.输⼊⽤户名和密码，点击“登录”按钮，可能出现的三种情况：a)该⽤户已在⽤户表中，⽽且密码也正确，则出现“您已成功登录本系统”的信息；b)若⽤户名已存在于后台的“⽤户”表中，则显⽰“密码错误”的信息c)若⽤户名不在⽤“户表”中，则显⽰“您尚未注册”的信息3.点击“退出”按钮，退出程序注册（command1）clickif allt(thisform.text1.value)=="" or allt(thisform.text2.value)==""messagebox("⽤户名或密码不能为空！",17,"提⽰")elsesele ⽤户locate for ⽤户名=allt(thisform.text1.value)if found()messagebox("此⽤户名已被占⽤，请重新输⼊！",49,"提⽰")elseappend blankreplace ⽤户名with alltrim(thisform.text1.value)replace 密码with alltrim(thisform.text2.value)messagebox("注册成功",65,"恭喜！")thisform.text1.value=""thisform.text2.value=""endifendif登⼊（command2）clickif allt(thisform.text1.value)=="" or allt(thisform.text2.value)==""messagebox("⽤户名或密码不能为空！",17,"提⽰")elseif allt(密码)==allt(thisform.text2.value)messagebox("您已成功登录本系统！",65,"恭喜")elsemessagebox("密码错误！",49,"提⽰")endifelsemessagebox("您尚未注册！",49,"提⽰")endifendif选择左边组合框中的课程号，右侧列表中显⽰该课程的全部成绩。
VFP实践教程答案(完整版)
(4) _____840__________
35．①2,②.T.,③16,④.T.,⑤.F.,⑥.F.,⑦.T.,⑧1
36．①1,②8,③1,④9,⑤3,⑥4,⑦1,⑧7,⑨1,⑩7
37．_职称代码___,___4______38．____4_____，__1____
48．( B )49．( B )50．( A)51．( D )52．( A )53．( B )54．( A )55．( B )
56．( C )57．（D）58．( D )59．( B )60．( C )61．( C ) 62．( C )
63．( C )64．( D )65．( B )66．( C )67．( C )68．( B )69．( D )
92．（A）93．（A）94．（B）95．（C）96．（B）97．（B）98．（B）
99．（B）100．（B）101．（D）102．（C）103.（B）104．（D）
105．（A）106．（C）107．（D）108．（C）109．（A）110．（B）
111．（A）112．（D）113．（C）114. ( B )
39．SET RELATION TO编号INTO B
40．____B.部门代码______,____ZJ/部门人数_
41．学号,INTO A,课程号INTO C42．_1 2 4 5
43．6 7 8 944．____3______45．8 8 146．__99 100__
47．___ 3 ___48．3副教授
110．( B )111．( B )112．( D )113．( D )114．（D）115．（B）
116．（C）117．（D）118.（B）119．（D）120．（D）121．（B）
2007_08_1VFP实验考核复习题
南京财经大学2007_08学年第一学期注：以上说明所要求的操作在正式考核时执行；平时上机练习时，可不执行。
一、项目、数据库和表操作：（一）打开软盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。
1．按下列要求在数据库JXSJ中新建一个表名为AB的数据库表。
(1)(2) 设置表的有效性规则：XSJ在CBJ的基础上最多增加20％；(3) 设置BH字段的格式，使得在该字段中输入数据时自动删除其前导空格和结尾空格；(4) 为表创建一个主索引abcd，使BH字段不能输入重复值。
2．为教师(JS)表设置插入触发器：工号(GH)字段的值必须是6个字节的非空格字符(这里指去除首尾空格后，其长度为6)。
3．为教师(JS)表增加一个备注型字段(字段名为BZ)，并将所有职称(ZC字段)为“教授”记录的BZ字段的值设置为“学科带头人”。
4．已知学生(XS)表和成绩(CJ)表存在相同的学号(XH)字段，以XS表为主表，CJ表为子表，按XH建立永久关系，并设置xs表和cJ表之间的参照完整性：删除级联。
（二）打开软盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。
1．按下列要求在数据库JXSJ中新建一个表名为AB的数据库表。
(1)(2) 设置XB字段的默认值：“男”；(3) 为CSRQ字段设置有效性规则：必须是1980年以后(包括1980年)出生的学生；(4) 创建一个普通索引abed，使表中记录按学生的年龄排序，相同时按XB字段排序。
（注：年龄为当前年份与出生年份(由CSRQ字段指定)之差。
）2．为教师(JS)表设置删除触发器：禁止删除。
3．修改院系专业(YXZY)表的备注(BZ)字段的值，修改方法是：若代码(YXZYDM字段)以“11”开头，则BZ字段值设置为“一本招生”。
4．已知课程(KC)表和成绩(CJ)表存在相同的课程代码(KCDM)字段，以KC表为主表，CJ表为子表，按KCDM建立永久关系，并设置KC表和CJ表之间的参照完整性：删除限制。
VFP实验教程_部分_
第1章数据库系统概述1.1 基础知识练习1.1.1 选择题1. 存储在计算机内、有结构的相关数据的集合称为______。
A. 数据库B. 数据库系统C. 数据库管理系统D. 数据结构【答案】A2. 数据库DB、数据库系统DBS和数据库管理系统DBMS之间的关系是________。
A. DBMS包括DB和DBSB. DBS包括DB和DBMSC. DB包括DBS和DBMSD. DB、DBS和DBMS是平等关系【答案】B3. ________是处理数据库存取和各种管理控制的软件系统，是数据库系统的中心枢纽。
A. DBB. DBMSC. DBASD. DML【答案】B4. 下列关于数据库系统的叙述中，正确的是________。
A. 数据库系统只是比文件系统管理的数据更多B. 数据库系统中数据的一致性是指数据类型一致C. 数据库系统避免了数据冗余D. 数据库系统减少了数据冗余【答案】D5. 能唯一标识实体的是________。
A. 属性B. 域C. 码D. 联系【答案】C6. Visual FoxPro是一种关系数据库管理系统，所谓关系是指________。
A. 表中各条记录彼此之间有一定的关系B. 表中各个字段彼此之间有一定的关系C. 一个表与另一个表之间有一定的关系D. 数据模型符合满足一定条件的二维表格式【答案】D7. 如果一个部门有若干职员，每个职员只能属于某一个部门，则部门和职员两个实体之间的联系属于________。
A. 一对一联系B. 一对二联系C. 多对多联系D. 一对多联系。
第1章数据库系统概述【答案】D8. 在数据库设计中，将E-R图转换为关系模式是在________阶段。
A. 需求分析B. 概念设计C. 逻辑设计D. 物理设计【答案】C9. 在关系中将年龄字段的值限制在15-30岁之间的这种约束属于________。
A. 实体完整性约束B. 域完整性约束C. 参照完整性约束D. 视图完整性约束【答案】B10. 下列叙述中正确的是________。
vfp表单所有习题参考答案
VFP表单实验参考讲义一、标签和文本框一题目要求：1该表单的名称为“Form1”,标题为“密码输入窗口”,高度为190,宽度为300；2定义一个名称为“Label1”、标题为“请输入密码”、字号为10磅的标签；3定义一个名称为“Text1”的文本框,用于输入密码,当输入密码时,屏幕显示“”； 4定义一个名称为“Label2”的标签,标题为空,自动调整控件大小； 5定义一个名称为“Command1”,标题为“显示密码”的按钮,当单击该按钮时,标签“Label2”显示输入的密码,编写Click事件代码6定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单;不得退出VFP系统操作要点：1注意将text1的属性passwordchar设置为：2label2的属性autosize设置为：.T.3 “显示密码”按钮Command1的Click事件代码:写法一：写法二：X=X3“关闭”的按钮Command2的Click事件代码:二Command1 的CLICK事件代码:欢迎使用"else密码错误"EndifCommand2 的CLICK事件代码:三代码编写：1)“确定”按钮Command1的Click事件代码: I”ABCD”Messagebox“欢迎光临”,65,“密码正确“ElseMessagebox“禁止进入“,65,”密码错误“Endif2“关闭”的按钮Command2的Click事件代码:四代码编写：1“确定”按钮Command1的Click事件代码:rs=rrmessageboxstrs,5,2,65,”面积”2 “关闭”的按钮Command2的Click事件代码:五题目要求：1 该表单的名称为“Form1”,标题为“温度转换”,高度为260,宽度为400；2 定义一个名称为“Label1”标题为“摄氏温度”的标签；再定义一个名称为“Label2”标题为“华氏温度”的标签,两个标签的字号均为11磅；3 定义一个名称为“Text1”的文本框,用于输入摄氏温度,再定义一个名称为“Text2”的文本框,具有只读属性,用于显示华氏温度;4 定义一个名称为“Command1”,标题为“转换”的按钮,当单击该按钮时,将输入的摄氏温度转换成华氏温度并显示在Text2文本框中,编写其Click事件代码；其中：华氏温度=9/5摄氏温度+325 定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;操作要点：1文本框text2的readonly属性设置为.T.2“转换”按钮Command1的Click事件代码:X=Val9/5X+322“关闭”的按钮Command2的Click事件代码:六题目要求：1该表单的名称为“Form1”,标题为“计算”,高度为260,宽度为400；2定义三个文本框,从左到右名称分别为“Text1”、“Text2”和“Text3”,其中“Text1”、“Text2”用于输入两个数,“Text3”用于显示“Text1”和“Text2”中两数之和；3定义一个名称为“Label1”的标签,标题为“+”； 4定义一个名称为“Label2”的标签,标题为“等于”；5定义一个名称为“Command1”,标题为“确定”的按钮,当单击该按钮时,文本框“Text3”中显示“Text1”和“Text2”中两数之和；6定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统操作要点：1“确定”按钮Command1的Click事件代码:X=ValY=ValX+Y2“关闭”的按钮Command2的Click事件代码:七题目要求：1该表单的名称为“Form1”,标题为“奇偶判断”,高度为260,宽度为400；2定义一个名称为“Label1”标题为“请输入一个数”的标签；3定义一个名称为“Label2”标题为“结果”的标签；4定义一个名称为“Text1”的文本框；5定义一个名称为“Text2”的文本框,具有只读属性6定义一个名称为“Command1”,标题为“判断”的按钮,当单击该按钮时,若Text1文本框输入的为偶数,则在Text2文本框中显示“这是一个偶数”,否则显示“这是一个奇数”,编写其Click事件代码；7定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统操作要点：1“判定”按钮Command1的Click事件代码:X=Val MODX,2=0这是一个偶数”ELSE这是一个奇数”ENDIF2“关闭”的按钮Command2的Click事件代码:八代码编写：1“计算”按钮Command1的Click事件代码:2“关闭”的按钮Command2的Click事件代码:九代码编写：1“产生随机数”按钮Command1的Click事件代码:法一：x=int1000randif x>=100Endif法二：x=int900rand+1002 “判别”按钮Command2的Click事件代码:XIf modx,2=0T“偶数“ElseT“奇数“endif3“关闭”的按钮Command3的Click事件代码:十题目要求：1该表单的名称为“Form1”,标题为“颜色设置”,高度为260,宽度为400；2定义一个名称为“Label1”标题为“红”的标签；3定义一个名称为“Label2”标题为“绿”的标签；4定义一个名称为“Label3”标题为“蓝”的标签；5定义三个名称分别为“Text1”、“Text2”、“Text3”的文本框；6定义一个名称为“Command1”,标题为“设置为表单背景色”的按钮,当单击该按钮时,表单背景色设置为用3个文本框中数字组成的rgb颜色,编写Click事件代码；7定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;操作要点：1Command1的Click事件代码:X=ValY=ValZ=Val=RGB X,Y,Z2“关闭”的按钮Command2的Click事件代码:二、列表框十一题目要求：1该表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400；2定义一个名称为“LABEL1”,标题为“你的选择是”的标签；2定义一个名称为“TEXT1”的文本框,具有只读属性；3定义一个名称为“List1”的列表框,数据来源类型为值,列表项的来源设置为“神州5号,神州6号,嫦娥1号”,当选中列表项后,选中的项显示在文本框中,编写其CLICK事件代码;4定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;操作要点：1TEXT1的只读设置: READONLY属性设为.T.2LIST1的ROWSOURCETYPE属性选择”1--值”,ROWSOURCE属性里写上“神州5号,神州6号,嫦娥1号”注意:分隔的逗号全部是英文逗号3列表框LIST1的CLICK事件代码:或4“关闭”按钮 Command1的Click事件代码:十二题目要求：1该表单的名称为“Form1”,标题为“风景区添加”,高度为260,宽度为400；2定义一个名称为“Text1”的文本框,字体为10磅字；3定义一个名称为“List1”的列表框,数据来源类型为1,列表项的来源设置为“泰山,黄山” 4定义一个名称为“Command1”,标题为“添加”的按钮,当单击该按钮时,文本框中输入的内容添加到列表框最后,编写其Click事件代码；5定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;代码编写：1“添加”按钮Command1的Click事件代码:2“关闭”的按钮Command2的Click事件代码: 十三题目要求：1该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽度为400；2定义一个名称为“List1”列表框,字号为11磅,用于显示偶数；3定义一个名称为“Command1”,标题为“开始”的按钮,当单击该按钮时,将1到100之间的偶数显示在列表框“List1”中,编写其Click事件代码；4定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;代码编写：1“开始”按钮Command1的Click事件代码:FOR N=2 TO 100 STEP 2注意：因为列表框的默认类型为字符型,所以加数字进去时要使用函数转换;2“关闭”的按钮Command2的Click事件代码:十四题目要求：1 表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400；2 定义一个名称为“Label1”标题为“你选中的项是”的标签；3 定义一个名称为“Text1”的文本框,具有只读属性；4 定义一个名称为“List1”的列表框,数据来源类型为“值”,项的来源为“A,B,C,D,E”,当选中列表项后,选中的项显示在文本框中,编写其Click事件代码；6 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统; 代码编写：1列表框List1的Click事件代码:X=“关闭”的按钮Command1的Click事件代码:十五1“添加到右边”按钮Command1的Click事件代码:2“关闭”按钮Command2的Click事件代码:三、组合框十六题目要求：1 该表单的名称为“Form1”,标题为“课程选择”,高度为260,宽度为400；2 定义一个名称为“Combo1”的下拉组合框,数据来源类型为1,列表项的来源设置为“计算机基础,高等数学,大学英语”,编写其Click事件代码,使得选中的列表项显示在文本框中；3定义一个名称为“Text1”的文本框,字体为12磅字,用于显示列表框选中的列表项；4定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;操作要点：1下拉组合框Combo1的Click事件代码:X=“关闭”的按钮Command1的Click事件代码:十七题目要求：1 该表单的名称为“Form1”,标题为“成绩表单”,高度为260,宽度为400；2 将考生文件夹下的自由表添加到表单的数据环境中；3 定义一个名称为“Combo1”下拉列表框,数据来源类型为“字段”,数据项的来源为cj表中“姓名”字段；4 定义一个名称为“Text1”的文本框；5编写下拉列表框的“Click”事件代码,将选中学生所对应的成绩显示在文本框中；6 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP 系统;操作要点：1下拉列表框Combo1的Click事件代码:成绩2“关闭”的按钮Command1的Click事件代码:四、复选框十八法1Check1 的Value属性值初始为数值型.复选框Check1的Click事件代码:IF ELSE法2Check1 的Value属性值初始为逻辑型.复选框Check1的Click事件代码:IF十九题目要求：1 表单的名称为“Form1”,标题为“设置窗口”.2定义一个名称为“Label1”、标题为“请输入内容”的标签,字体为加粗、楷体14磅字;3定义一个名称为“Text1”高度适中的文本框,Value值为“请观察效果”；4定义一个名称为“Check1”,标题为“文本框背景为红色”、Value 值为.F.的复选框,当选中该复选框时,“Text1”背景为红色RGB值为255,0,0,当未选中该复选框时,“Text1”背景为白色RGB值为255,255,255；5定义一名称为“Check2”,标题“文本框前景为蓝色”、Value值为.F.的复选框,当选中该复选框时,“Text1”前景为蓝色RGB值为0,0,255,未选中该复选框时,“Text1”前景为黑色RGB值为0,0,0 6定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不退出VFP系统;1复选框Check1的Click事件代码:IF ELSE2复选框Check2的Click事件代码:IF ELSE. ForeColor =RGB0,0,0ENDIF说明：因为题目要求将CHECK1和CHECK2的初值设为.F.,所以代码里要把复选框写成相应的逻辑型;五、选项按钮组二十1该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽度为400；2定义一个名称为“LABEL1”,标题为“请输入文本内容”的标签,字号为楷体,加粗,14磅字;3定义一个名称为“TEXT1”的文本框,字号为16磅字,用于输入文本；4定义一个名称为“LABEL2”,标题为“请选择字体”的标签,字体为黑体,加粗,12磅字;5定义一个名称为“OPTIONGROUP1”的选项按钮组,标题依次为“宋体”、“隶书”、“黑体”、“幼圆”,当选中某个按钮时,文本框中的字体发生相应的变化,用DO CASE结构编写CLICK事件代码;6定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时释放该表单不得退出VFP系统;操作要点：1选项按钮组OPTIONGROUP1的CLICK事件代码：do casecase =1宋体"case =2隶书"case =3黑体"case =4幼圆"Endcase注意：2关闭按钮COMMAND1的CLCK事件代码：二十一题目要求：1该表单的名称为“Form1”,标题为“字符转换”,高度为260,宽度为400；2定义一个名称为“Label1”、标题为“请输入字符串”的标签,字体为加粗12磅字；3定义一个名称为“Text1”的文本框,字体为10磅字,用于输入字符串；4定义一个名称为“OptionGroup1”的选项按钮组,2个按钮的标题顺序为“转成大写”、“转成小写”,当选中某个按钮时,文本框输入的字符串发生相应的变化,编写“OptionGroup1”的Click事件代码；5定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统操作要点：1选项按钮组OPTIONGROUP1的CLICK事件代码:do casecase =1case =2Endcase2关闭按钮COMMAND1的CLICK事件代码:六、命令按钮组二十二题目要求：1该表单的名称为“Form1”,标题为“学生成绩查询”,高度为260,宽度为400；2将添加到表单的数据环境中3将xscj表各字段拖至表单上；4定义一个名称为“Command Group1”的命令按钮组,4个按钮的标题顺序为“第一条”、“上一条”、“下一条”、“最后一条”当选中某个按钮时,文本框中字符串发生相应的变化,编写“CommandGroup1”的Click事件代码.操作要点：右击命令按钮组,在弹出的快捷菜单上选生成器,弹出“命令组生成器”对话框选“布局”选项卡,按钮布局：水平按钮组各命令按钮的CLICK事件代码如下：1）COMMAND1的CLICK事件代码:go 12）COMMAND2的CLICK事件代码:skip -13）COMMAND3的CLICK事件代码:Skip 14）COMMAND4的CLICK事件代码:go bottom七、微调控件二十三操作要点：1把spinner1的increment属性设置为,spinnerhighvalue设为40,spinnnerlowvalue设为61）Spinner1的interactivechange事件代码：2关闭按钮COMMAND1的CLICK事件代码:二十四代码编写：1“设置为表单背景色”按钮COMMAND1事件代码为：=rgbx,y,z2关闭按钮COMMAND1的CLICK事件代码:七、计时器二十五题目要求：1该表单的名称为“Form1”,标题为“欢迎光临”,高度为260,宽度为400；2定义一个名称为“LABEL1”,标题为“2008北京奥运”的标签,字号为12的加粗蓝色字体RGB值为0,0,255;3定义一个名称为“TIMER1”的计时器,Enabled为.F. ,Interval的值为500,编写Timer事件代码,使得每执行一次代码标签上移10;4定义一个名称为“Command1”,标题为“开始”的按钮,当单击该按钮时,标签LABEL1中的内容逐渐向表单上方移动; 5定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;操作要点：1TIMER1按钮的TIMER事件代码为:Command1按钮的CLICK事件代码为:2“关闭”的按钮 Command2的Click事件代码:注意：1不要忘记设置TIMER1的INTERVAL2执行过程：开始按钮的CLICK事件代码为激活时钟TIMER1,由TIMER1的CLICK事件代码控制标签的移动;二十六代码编写：1时钟TIMER1按钮的TIMER事件代码为:2“开始“按钮Command1的CLICK事件代码为:.3“关闭”按钮 Command2的Click事件代码:1自动居中,把label2的aligenment属性设为2-中央2把label2的caption属性设为空3把timer1的interval属性设为1000,并在timer1的timer事件代码里写：4“关闭”按钮 Command2的Click事件代码:八、页框二十八题目要求：1该表单的名称为“Form1”,标题为“页框演示”,高度为260,宽度为400；2定义一个名称为“Pageframe1”的页框,含有两个页面,分别为“系统编辑”和“退出系统”;3 在第一个页面中定义一个名称为“Command1”,标题为“开始”的按钮；4在第二个页面中定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单不得退出VFP系统;1“放大”按钮CLICK事件代码：2“缩小”按钮CLICK事件代码：endif3“还原”按钮CLICK事件代码：九、数据环境三十代码编写：1 “查询”按钮Command1的Click事件代码:G3“关闭”按钮Command2的Click事件代码:三十一代码编写：1）组合框combo1的click事件代码：2“关闭”按钮Command2的Click事件代码:三十二1“commandgroup1”的click事件代码：n=do casecase n=1if .not. bofskip -1endifcase n=2if .not. eofskipendifif eofskip -1endifendcase2“关闭”按钮Command2的Click事件代码:VFP程序设计题第2题：编制一个表单完成计数器计数显示功能界面如图例所示,图例文件为.JPG;具体要求如下：1．表单的边框为固定对话框,运行时自动居中,不可移动；2．表单初始显示状态为全零“00:00:00”；3．按“计数”按钮后,自动以秒为单位从零开始计数设：时的计数属性名为F,分的计数属性名为H,秒的计数属性名为S并在表单上动态显示；4．按“停止”按钮后暂停计数,按“计数”按钮可以继续计数；参考答案：1．表单的标题属性Caption设置为“计数器”；2．表单的BorderStyle属性为“2—固定对话框”,自动居中属性AutoCenter 为.T.;3．表单的Movable属性为.F.；4．时钟控件Timer1的Interval属性为1000; 5．表单的Form1的Init事件代码：STOR 0 TO ,,6．“计数”按钮Command1的Click事件代码：7．“停止”按钮Command2的Click事件代码：8．时钟控件Timer1的Timer事件代码：=+1IF =60=+1=0ENDIFIF =60=+1=0ENDIFIF =60=+1=0ENDIFHH=IIF>=10,STR,2,'0'+STR,1FF=IIF>=10,STR,2,'0'+STR,1SS=IIF>=10,STR,2,'0'+STR,1第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能界面如图例所示;具体要求如下：1．表单的边框为固定对话框,运行时自动居中,不可移动；2．表单初始显示内容为表文件“学生.dbf”的首记录；3．表单内容将以10秒为间隔自动刷新,即自动顺序向后翻记录,当翻至表底时,将自动回到首记录循环翻动;参考答案：1．表单的标题属性Caption设置为“学生表内容只读浏览”；2．表单的BorderStyle属性为“2—固定对话框”,自动居中属性AutoCenter 为.T.;3．表单的Movable属性为.F.；4．时钟控件Timer1的Interval属性为10000;5．表单的Form1的Init事件代码："READONLY",.T.,"TEXTBOX"GO TOP6．时钟控件Timer1的Timer事件代码：SKIPIF EOFGO TOPENDIF第4题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能界面如图例所示;具体要求如下：1．表单的边框为单线边框,运行时自动居中；2．表单初始显示内容为表文件“学生.dbf”的首记录；3．当按“前翻”“后翻”“首记录”“末记录”按钮时,表单将自动显示相应记录的内容；4．当翻至表头或表底时,将自动设置相应按钮不可访问;参考答案：1．表单的标题属性Caption设置为“学生表内容只读浏览”；2．表单的BorderStyle属性为“1—单线边框”；自动居中属性AutoCenter为.T.3．表单的Form1的Init事件代码："READONLY",.T.,"TEXTBOX"GO TOP4．“首记录”按钮Command1的Click事件代码：go top5．“前翻”按钮Command2的Click事件代码：skip -1if bof=.f.endif6．“后翻”按钮Command3的Click事件代码：skipif eofendif7．“末记录”按钮Command4的Click事件代码：go bottom第7题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能界面如图例所示;具体要求如下：1．表单的边框为固定对话框,运行时自动居中；2．当用户在组合框下拉列表选择班级学号的左三位后,表单将自动显示对应班级的所有学生的总平均成绩；3．按“退出”按钮时,自动关闭表单;参考答案：1．表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”；2．表单的BorderStyle属性为“2—固定对话框”；自动居中属性AutoCenter 为.T.;3．组合框Combo1的Init事件代码：SET TALK OFFINDEX ON LEFT学号,3 TO XH UNIQUESCANLEFT学号,3ENDSCANSET INDEX TO4．组合框Combo1的Click事件代码：BJ=AVERAGE FOR LEFT学号,3=BJ 成绩 TO CJ5．“退出”按钮Command1的Click事件代码：第8题：编制一个表单完成数字时钟显示功能界面如图例所示;具体要求如下：1．表单的位置在左上角,可移动,表单的边框为无边框；2．表单将自动以1秒间隔动态显示系统时间；参考答案：表单的标题属性Caption设置为“数字时钟”；表单的位置属性Left为0；Top为0；Movable为.T.；表单的BorderStyle属性为“0—无边框”；时钟控件Timer1的Interval属性为1000;文本框Text1的背景色Backcolor为RGB255,255,255；FONTNAME为“隶书”;时钟控件Timer1的Timer事件代码：s=substrtime,1,2f=substrtime,4,2m=substrtime,7,2第10题：编制一个表单完成表文件“成绩.dbf”和“课程.dbf”内容的查询显示功能界面如图所示;具体要求如下：1．表单运行时自动居中,不可移动；2．当用户在组合框下拉列表选择课程后,表单将自动显示该课程的总平均成绩；3．按“退出”按钮时,自动关闭表单;参考答案：1．表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”；2．表单的自动居中属性AutoCenter为.T.;3．表单的Movable属性为.F.；4．组合框Combo1的RowSouceType属性为“6-字段”,RowSouce属性为“课程.课程名”;5．组合框Combo1的Click事件代码：SET TALK OFFSELECT 课程KCH=课程号SELECT 成绩AVERAGE FOR 课程号=KCH 成绩 TO CJ6.“退出”按钮Command1的Click事件代码：第11题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能界面如图例所示;具体要求如下：表单的边框为固定对话框,运行时自动居中,不可移动；表单的文本框中输入需查询学生的学号;参考答案：1．表单的标题属性Caption设置为“学生表信息查询”；2．表单的BorderStyle属性为“2—固定对话框”,自动居中属性AutoCenter 为.T.;表单的Movable属性为.F.；标签Label2的Forecolor属性为“255,255,255”；FontSize属性为“16”；表单的Form1的Init事件代码：use 学生"visible",.f.表单的Form1的destroy事件代码：use7.文本框Text1的Valid事件代码：loca for alltrim学号=alltrimif found"visible",.t.else"visible",.f.endifreturn .t.第12题：根据要求,用表单设计器建立一个“按钮组调色板”表单界面如图例所示;具体要求如下：1．表单的标题为“按钮组调色板”, 表单运行时,当按某个命令按钮后,表单的背景色就会变成按钮指定的对应颜色;参考答案：1．表单的标题属性Caption设置为“按钮组调色板”；2．命令按钮组Commandgroup1的Click事件代码：do casecase =1=rgb225,0,0case =2=rgb0,255,0case =3=rgb0,0,255case =4=rgb0,0,0case =5=rgb225,255,255endcase第13题：根据要求,用表单设计器建立一个“按钮组调色板”表单界面如图例所示;具体要求如下：1.表单的标题为“按钮组调色板”, 表单运行时,当按某个命令按钮后,命令按钮组的背景色就会变成按钮指定的对应颜色;参考答案：1.表单的标题属性Caption设置为“按钮组调色板”；2.命令按钮组Commandgroup1的Click事件代码：do casecase =1=rgb225,0,0case =2=rgb0,255,0case =3=rgb0,0,255case =4=rgb0,0,0case =5=rgb225,255,255endcase第15题：根据要求,用表单设计器建立一个“选项按钮组调色板”表单界面如图例所示;具体要求如下：1.表单的标题为“选项按钮组调色板”, 表单运行时,当按某个命令按钮后,选项按钮组的背景色就会变成按钮指定的对应颜色;参考答案：1.表单的标题属性Caption设置为“选项按钮组调色板”；2. 选项按钮组Optiongroup1的Click事件代码：do casecase =1case =2case =3case =4case =5endcase第16题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能界面如图例所示;具体要求如下：1．表单的列表框中选择需查询学生的姓名;2．所有文本框Text为只读;参考答案：1．表单的标题属性Caption设置为“学生表信息查询”；2．所有文本框Text的ReadOnly属性为“.T.”；3.表单的Form1的Init事件代码：use 学生"visible",.f.,"textbox""visible",.f.,"label"4．表单的Form1的destroy事件代码：use5．列表框List1的Interactivechange事件代码："visible",.t.第17题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能界面如图例所示;具体要求如下：1.表单的组合框中选择需查询学生的姓名;2.所有文本框Text为只读;参考答案：1．表单的标题属性Caption设置为“学生表信息查询”；2．Combo1的Rowsourcetype为“6-字段”,Rowsource为“学生.姓名”；3．所有文本框Text的ReadOnly属性为“.T.”；4.表单的Form1的Init事件代码：use 学生"visible",.f.,"textbox""visible",.f.,"label"5．表单的Form1的destroy事件代码：use6．列表框Combo1的Interactivechange事件代码："visible",.t.第19题：根据要求,用表单设计器建立一个时钟表单界面如图例所示;具体要求如下：1．表单只有标题为“信息窗”;2．当时钟的分为奇数时,表单的背景色为绿色,偶数时为蓝色;3．显示的内容为只读;参考答案：1．表单的标题属性Caption设置为“信息窗”；2．时钟控件Timer1的Timer事件代码：S=SUBSTRTIME,1,2F=SUBSTRTIME,4,2M=SUBSTRTIME,7,2MN=VALfIF INTMN/2=MN/2=RGB0,0,255ELSE=RGB0,255,0ENDIF第20题：根据要求,用表单设计器建立一个“人工翻动日历牌”表单界面如图例所示;具体要求如下：1．编制一个日历的表单,表单的标题为“人工翻动日历牌”,文本框为只读,显示的日期格式为“年月日”,年份为4位;2．当表单运行时,显示当前日期,用户可以通过微调按钮向前或向后翻动日期;参考答案：1．表单的标题属性Caption设置为“人工翻动日历牌”；2．微调Spinner1的Downclick事件代码：3．微调Spnnier1的Upclick事件代码：第21题：根据要求,用表单设计器建立一个“选页调色板”表单界面如图例所示;具体要求如下：1.表单的标题为“选页调色板”, 表单运行时,当按某个命令按钮后,该页框的背景色就会变成按钮指定的对应颜色;参考答案：1.表单的标题属性Caption设置为“选页调色板”；2. 选项按钮组Pageframe1的Click事件代码：do casecase =1case =2case =3case =4case =5endcase第22题：根据要求,用表单设计器建立一个如图所示的表单界面如图例所示;1.表单的标题属性Caption设置为“新建”；2. 选项按钮组Optiongroup1的Click事件代码：do casecase =1creacase =2crea formcase =3modify commandendcase第24题：编制一个日历时钟表单界面如图例所示;具体要求如下：1．“日期”“星期”“时钟”标签上的文本能自动换行,自动调整大小,背景透明；2．文本框对齐方式为中间对齐；3．时钟每1秒种跳一次;参考答案：1．表单的标题属性Caption设置为“日历时钟表单”；2．文本框Text1、Text2、Text3的对齐方式属性为Alignment为“2—中间”；3．时钟控件Timer1的Interval属性为1000;4．时钟控件Timer1的Timer事件代码：Y=STRYEARDATE,4M=STRMONTHDATE,2D=STRDAYDATE,2C="日一二三四五六"N=DOWDATEW="星期"+SUBSTRC,2N-1,2+""+CDOWDATE+""第26题：编制一个如图所示的表单界面如图例所示;参考答案：1.表单的标题属性Caption设置为“学生成绩信息浏览”；2.表单的Form1的Init事件代码：set dele onSElect 课程set order to tag 课程号 in 成绩SET RELATION TO 课程号 INTO 成绩select 学生set order to tag 学号 in 成绩SET RELATION TO 学号 INTO 成绩with 成绩.readonly=.f..allowaddnew=.f..deletemark=.f.endwith"READONLY",.T.,"TEXTBOX"3. 表单的Form1的Unload事件代码：clear events4. 命令按钮组Commandgroup1的Click事件代码：do casecase =1 &&表头按钮go topcase =2 and bof &&前翻skip -1if bofendifcase =3 and eof &&后翻skipif eofendifcase =4 &&表尾go bottomcase =5 &&退出if messagebox"退出吗",4+32,"退出确认框"=6select 成绩packset delete offendifendcase第27题：编制一个表单完成学生成绩信息查询显示功能界面如图例所示;参考答案：1．表单的标题属性Caption设置为“学生成绩信息查询表单”；2．文本框Text1的SelectOnEntry设置为“.T.”；3.表单的Form1的Init事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩"visible",.f.4.表单的Form1的Unload事件代码：use5.文本框Text1的Valid事件代码：loca for alltrim学号=alltrimif found"visible",.t.else"visible",.f.messagebox'查无此人',0+48,"提示窗"endifreturn .t.6.文本框Text1的Gotfocus事件代码："visible",.f.第28题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能界面如图例所示;参考答案：1.表单的标题属性Caption设置为“学生成绩信息查询”；2.表单的Form1的Init事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩3. 列表框List1的Interactivechange事件代码："visible",.t.4. 列表框List1的Gotfocus事件代码：sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩第30题：编制一个表单完成学籍信息查询显示功能界面如图例所示;参考答案：1.表单的标题属性Caption设置为“学生学籍信息查询表单”；2．表单的Form1的Init事件代码：SELE 成绩SET ORDER TO TAG 课程号 IN 课程SET RELATION TO 课程号 INTO 课程sele 学生set order to tag 学号 in 成绩set relation to 学号 into 成绩"visible",.f.。
vfp实验7-16参考答案
VF实验7-16参考答案实验7●检索所有供应商的全部信息。
select*from 供应商号●检索所有员工的工号和姓名信息。
select 职工号,姓名 from 职工●查询目前哪几个仓库目前有员工分配（使用单表查询）。
Select distinct仓库号 from 职工●检索工资最高的前两名员工姓名。
Select top 2姓名 from 职工 order by 工资 desc●检索工资大于1230元的员工姓名。
select 姓名 from 职工 where 工资>1230●检索不在WH1仓库工作的员工姓名和工资。
SELECT 姓名,工资 from 职工 where 仓库号=!"WH1" && <>,#也可表不等于●检索生成于2001年7月的所有订单信息。
SELECT*from 订购单 where 订购日期 BETWEEN{^2010-07-01} AND {^2010-07-31} 检索2001年7月发给供应商S4的订单信息。
SELECT * from 订购单 where 供应商号="S4" AND 订购日期 BETWEEN{^2010-07-01} AND{^2010-07-31}实验8●检索所有“周”姓员工的信息。
Select * from 职工 where 姓名 like "周%"●检索所有订购单信息并将其按照订购日期升序排序。
Select * from 订购单 order by 订购日期 && asc 升序 desc 降序●检索所有订购单信息并将其按照订购日期降序排序。
Select * from 订购单 order by 订购日期 desc●检索工资最高的前三名员工姓名。
Select top 3 姓名 from 职工 order by 工资 desc●检索工资水平在所有员工中排名前50%的员工姓名。
VF实验报告复习题及其答案
实验一常量、变量、数组、函数和表达式1. VFP有哪三种工作方式菜单方式命令方式程序方式2. 顺序执行如下两条命令后，显示的结果是ABCDEF。
m="ABC"m=m-"DEF"? m3. 在Visual FoxPro中要将系统默认磁盘设置为D盘，可执行命令是什么set defa to d:4. 用严格的日期格式，将日期型数据2008年7月1日赋值给变量A2的语句a2={^2008-07-01}实验二建立项目、数据库和表1.在项目管理器的右侧有6个命令按钮，这6个命令按钮会随着所选文件类型的不同而动态改变，初次打开时6个命令按钮分别是：新建添加修改运行移去连编2. 写出打开项目文件“学生信息管理.pjx”的项目管理器的命令modi proj学生信息管理3. 写出创建项目文件“学生信息管理.pjx”的命令crea proj学生信息管理4. 修改数据库中表结构的命令是________?modi stru5. 当数据库被打开后，如果要使用其包含的表，则需要使用________命令打开？use6. 写出打开数据库“学生信息管理.dbc”的设计器的命令。
modi data学生信息管理7. 用命令方式，在C盘根目录下建立一个名为“学生学籍管理”的数据库，写出命令。
crea data c:\学生学籍管理实验三表的基本操作(1)1.将记录指针从末记录向上移2条记录，显示记录号，并显示该记录内容，请填空。
use xs.dbfgo bottomskip -2?recno()_______disp2.有自由表文件：xs.dbf (xh(c7),xm(c8),xb(C2),csrq(D8),jxj(N7.2),bz(M4) )写出如下list或display或browse命令：显示所有女生的姓名、出生日期、奖学金的记录。
list xm,csrq,jx jfor xb="女"3.有自由表文件：xs.dbf (xh(c7),xm(c8),xb(L),csrq(D8),jxj(N7.2),bz(M4) )将记录指针从首记录向下移3条记录，显示当前记录号，并显示当前记录内容，请填空：go topskip 3? ________ recn()display4.有自由表文件：xs.dbf (xh(c7),xm(c8),xb(L),csrq(D8),jxj(N7.2),bz(M4) )写出：显示1985年1月1日至2002年12月31日之间出生的学生记录：list for csrq>={^1985-01-01}.and.csrq<={^2002-12-31}5.有自由表文件：xs.dbf (xh(c7),xm(c8),xb(L),csrq(D8),jxj(N7.2),bz(M4) )写出连续显示表的全部记录的命令：list6.有自由表文件：xs.dbf (xh(c7),xm(c8),xb(L),csrq(D8),jxj(N7.2),bz(M4) )写出以独占方式打开表文件“xs.dbf”的命令：use xs excl7.假设表文件student.dbf已经打开，将student.dbf的结构原样复制到表文件"xsb3.dbf"中的命令是________。
VFP实验试题及答案
（1）命令按钮是（ C ）。
(A)控件(B)容器(C)控件类对象(D)容器类对象（2）以下特点中不属于面向对象程序设计的特点的是（ A ）。
(A)单一性(B)继承性(C)封装性(D)多态性（3）在面向对象方法中，对象可看成是属性（数据）以及这些属性上的专用操作的封装体，封装是一种（ D ）技术。
(A)组装(B)产品化(C)固体(D)信息隐藏（4）在VFP中，表单是指（ A ）。
(A)人机交互时的窗体界面(B)数据库的查询结果的列表(C)数据表中的各个记录的清单(D)数据库中各数据表的清单（5）下面关于面向对象方法的叙述中，选项（ D ）是错误的。
(A)每一对象在系统中有唯一的对象标识(B)事件作用于对象，对象识别事件并做出相应的反应(C)一个子类能继承父类的所有属性的方法(D)一个父类包括其所有子类的属性的方法（6）用DIME SZ(4,8)定义了一个二维数组，以下与数组元素SZ(3,6)所指的是同一元素的选项是（ E ）。
(A)SZ(6,3) (B)SZ(9) (C)SZ(18)(D)SZ(23) (E)SZ(22)(F)SZ(21)(7)控件有自己的属性、方法和（B ）。
(A)图形(B)事件(C)容器(D)形状（8）.从下面文本框中给出的语句中选出恰当语句并确定语句顺序，完成一个将1到100累加，并且将和数输出正确的程序。
正确顺序：7个语句答案：Stor 0 to n,sDo while s<100N=n+s+1S=s+1Enddo?nretu（9）有名为:CXBD.SCX的表单文件,要求该表单运行时随输入框中输入的姓名能同步在表格(Grid)控件中显示相应数据，当鼠标单击“退出”按钮时释放表单。
请完善该表单欠缺的命令。
注：在D盘KS文件夹中有文件：CXBD.SCX，请打开该文件对TEXT对象的InteractiveChange事件和命令按钮对象的Click事件的过程中指定的行，补充合适的命令。
vf实验报告-程序部分答案
vf实验报告程序部分答案**在编辑窗口中输入如下程序：h=2r=4z=3.14*r*r*h/3z运行该程序，查看结果。
2、在vfp中，程序文件的扩展名是什么？运行程序的方法有哪些？说出三种方法。
prg，pjx。
do 程序名！程序-运行3、如何打开调试器窗口？观察调试器窗口。
【工具】-【调试】**程序设计功能：显示所按键。
输入：9 输出：按的是数字键9创建程序文件p1.prg,代码如下：**显示用户从键盘输入的按键**clearwait windows"请按键" to ckeydo casecase between(ckey,"0","9")"按的键是数字键"+ckeycase between(ckey,"a","z") or between(ckey,"A","Z")"按的键是字母键"+ckeycase ckey=space(1)"按的键是空格键"case ckey=chr(13)"按的键是回车键"otherwise"按的键不是字母键、数字键、空格键、回车键！"endcase**求圆面积程序h=2r=4z=3.14*r*r*h/3z**定义一个有参函数，文件名为area.prg，求圆面积。
圆的半径由用户随机输入，从而达到程序的通用性。
clearinput "请输入半径：" to rs=area(r)"您输入的圆半径的面积为：",sfunction areaparameters av=3.14*a*areturn vend function**创建程序文件test.prg，包含以下几个功能函数：****自定义函数jiecheng，用于计算阶乘，参数名为num****自定义函数p99，用于显示“九九乘法”表。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual FoxPro 实验题汇总★顺序结构程序设计1. 用过程化编成方式编写本题。
求解一元二次方程 （JFC.PRG ） a=1 b=4 c=4x1=(-b+SQRT(b^2-4*a*c))/(2*a) x2=(-b-SQRT(b^2-4*a*c))/(2*a)?"方程的一个根是:",x1,space(10),"另一个根是:",x2 2.理解大小写转换函数。
在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写（如图所示）。
<FORM><load>: Public a<text1><interactiveChange>: Thisform.text1.value=a <大写><click>:Thisform.text1.value=upper(a) <小写><click>:Thisform.text1.value=lower(a) <复原><click>: Thisform.text1.value=a3.班上集体购买课外读物，在文本框中输入3种书的单价、购买数量，计算并输出所用的总金额。
<总计><click>:a=val(thisform.text1.value) b=val(thisform.text2.value)c=val(thisform.text3.value) d=val(thisform.text4.value) e=val(thisform.text5.value) f=val(thisform.text6.value) thisform.text7.value=a*b+c*d+e*f 4. 在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。
a=val(thisform.text1.value) b=val(thisform.text2.value) c=val(thisform.text3.value)thisform.text4.value=a*3600+b*60+c 5. 编程序输出在指定范围内的3个随机数，范围在文本框中输入。
<三个随机数><click>:bel3.caption=str(int((b-a+1)*rand()+a))bel4.caption=str(int((b-a+1)*rand()+a))bel5.caption=str(int((b-a+1)*rand()+a))6.编写例题4-8求圆面积，用对话框输出结果<计算><click>: r=val(thisform.text1.value)a=”圆的面积为:”+alltrim(str(3.14*r^2)) messagebox(a,0,”计算圆的面积”) thisform.text1.selstart=0thisform.text1.sellength=len(thisform.text1.text)thisform.text1.setfocus★顺序结构程序1. 输入3个不同的数，将它们从大到小排序。
<排序><click>:a=val(thisform.text1.value) b=val(thisform.text2.value) c=val(thisform.text3.value) do casecase a=max(a,b,c)thisform.text4.value=alltrim(str(a)) case a=min(a,b,c)thisform.text6.value=alltrim(str(a)) otherwisethisform.text5.value=alltrim(str(a)) endcase do casecase b=max(a,b,c)thisform.text4.value=alltrim(str(b)) case b=min(a,b,c)thisform.text6.value=alltrim(str(b)) otherwisethisform.text5.value=alltrim(str(b)) endcase do sasecase c=max(a,b,c)thisform.text4.value=alltrim(str(c))case c=min(a,b,c)thisform.text4.value=alltrim(str(c)) otherwisethisform.text5.value=alltrim(str(c)) endcase2. 创建一个检查输入口令的表单，口令设定为“SOFTWARE ”，允许用户输入三次口令。
如果三次输入错误，则显示相关信息，并禁止再次输入口令：如果正确，则显示“欢迎使用本系统！”字样，请编写该程序。
<确认><click>:a=ALLTRIM(thisform.container1.text1.value) if a=="SOFTWARE"bel1.caption="欢迎使用本系统!" thisform.container1.visible=.F. bel1.visible=.T. mand1.visible=.t. else b=b+1 if b>=3messagebox("你已第"+str(b,3)+"次输入错误,"+chr(13); +"不能使用该系统",48,"错误提示") thisform.release ELSEmessagebox("你已第"+str(b,3)+"次输入错误!",48,"错误提示") thisform.container1.text1.selstart=0thisform.container1.text1.sellength=len(ltrim(thisform.container1.text1.value)) RETURN 0 endif endif<关闭><click>: Thisform.release3. 输入一个数字（0～6），用中英文显示星期几。
<星期转换><click>: a=thisform.text1.value do casecase a=”0” &&注意带””,字符型 thisform.text2.value=”星期日” thisform.text3.value=”Sunday ” case a=”1”thisform.text2.value=”星期一” thisform.text3.value=”Monday ” case a=”2”thisform.text2.value=”星期二” thisform.text3.value=”Tuesday ” case a=”3”thisform.text2.value=”星期三” thisform.text3.value=”Wednesday ” case a=”4”thisform.text2.value=”星期四” thisform.text3.value=”Thursday ” case a=”5”thisform.text2.value=”星期五” thisform.text3.value=”Friday ” case a=”6”thisform.text2.value=”星期六” thisform.text3.value=”Saturday ” otherwisemessagebox(“对不起,只能输入0-6的整数”,48,”提示”) endcasethisform.text1.selstart=0 &&以下可不写 thisform.text1.sellength=len(thisform.text1.text) thisform.text1.setfocus4. 若基本工资大于等于600元，增加工资20%；若小于600元大于等于400元，则增加工资15%；若小于400元则增加工资10%。
请根据用户输入的基本工资，计算出增加后的工资。
<新工资><click>: x=val(thisform.text1.value) do case case x>=600 y=x*1.2case x<600 and x>=400 y=x*1.15 case x<400 y=x*1.1 endcasethisform.text2.value=y5. 输入圆的半径r ，利用选项按钮，选择运算：计算面积、计算周长等。
r=val(thisform.text1.value) n=This.value Do case Case n=1Y=alltrim(str(2*3.14*r))A="圆的周长为:"+y Case n=2Y=alltrim(str(3.14*r^2))A="圆的面积为:"+y Endcasebel2.caption=a 6. 设计一个电子游动标题板，标题“使用VFP 设计动画”在表单的黄色区域（容器中）自左至右地反复移动。
单击“暂停”按钮，标题停止移动，按钮变成“继续”。
单击“继续”按钮，标题继续移动，按钮又变回“暂停”<timer1><属性><interval>:10 &&动画移动的快慢,数字越大移动越慢 <timer1><timer>:If bel1.left+thisform.container1.width<670 &&”670”大于container 的宽度和label 的宽度加和数.即动画要完全过去才能再开始. bel1.left=bel1.left+1 elsebel1.left=-360 &&”-360”绝对值要大于container 的宽度 endif<command1><click>:If mand1.caption=”暂停” mand1.caption=”继续” Thisform.container1.timer1.enabled=.f. Elsemand1.caption=”暂停” Thisform.container1.timer1.enabled=.t. Endif7．设计一个计算一元二次方程根的程序：从文本框输入一元二次方程的三个系数：A，B ，C ，计算并输出方程的两个根X1、X2。