VF9.0期末实验题库答案全解.docx

数据库应用基础Visuyal FoxPro 9.0期末考试题库 第一部分 基础题1.先用赋值语句分别为变量X、Y、Z赋初值为200、300、400，然后要求输出：(X-2Y)/(2-Z)*YY100或Y050Z8002.按照以下表结构，建立三个表。3. 统计职工表的职工总人数以及男、女职工的人数。USE 职工COUNT TO ZRSCOUNT FOR 性别=男 TO MZGCOUNT FOR 性别=女 TO WZG?总人数=+STR(ZRS,2), 男职工人数=+STR(MZG,1),; 女职工人数=+STR(WZG,1) 4. 编写程序，修改并显示指定职工的基本工资。NOTE 修改并显示指定职工的基本工资SET TALK OFFCLEAR USE 职工ACCEPT 请输入职工号: TO ZGHLOCATE FOR 职工号= ZGHIF !EOF() REPLACE 基本工资 WITH 基本工资+200 ?职工号,姓名, 基本工资 ELSE ?没有找到!ENDIFUSESET TALK ON5编写程序，火车托运行李，根据行李的重量计算托运费。收费标准假设是0.60元/千克。由用户输入货物的重量，请计算并输出所需要的托运费。SET TALK OFFCLEAR INPUT 请输入货物的重量(Kg)： TO WF=W*0.60?货物重量+ALLTRIM(STR(W,19,2)+千克需要的托运费为：;+ALLTRIM(STR(F,19,2)+元SET TALK ON 6.编写程序，求“职工”表中指定部门（如直销、零售）全体职工的基本工资总额。NOTE 求指定部门基本工资总额SET TALK OFFCLEARUSE 职工ACCEPT 请输入指定部门： TO BMSUM 基本工资 TO JBGZ FOR 部门=BM?BM+部全体职工的基本工资为：+STR(基本工资,8,2)USESET TALK ON7.编写程序，如果在例题5中，当重量不超过50kg时，按每千克0.60元收费；当重量超过50kg，超出50kg的部分按每千克0.90元收费。试编写程序计算托运费。SET TALK OFFCLEAR INPUT 请输入货物的重量(Kg)： TO WIF W=50F=W*0.60ELSEF=50*0.6+(W-50)*0.9ENDIF?“货物重量”+ALLTRIM(STR(W,19,2)+“ 千克需要的托运费为：”；+ALLTRIM(STR(F,19,2)+元SET TALK ON8.编写程序：求x + x2 + x3 + x4 + + xn的值。n，x从键盘输入。FOR- ENDFOR方法。 SET TALK OFFCLEARINPUT N= TO NINPUT X= TO XA=1S=0FOR I=1 TO NA=A*XS=S+AENDFOR?S= , SSET TALK ON9. 编写程序：显示输出正整数M（从键盘输入）内的偶数及偶数和。SET TALK OFFCLEARINPUT M= TO MS=0I=1DO WHILE I=MIF INT(I/2)= I/2?I,是偶数S=S+IENDIFI=I+1ENDDO?偶数和为： , SSET TALK ON10. 编写程序，显示输出如图4-34所示的图形。SET TALK OFF CLEAR FOR i=5 TO 1 STEP -1 ?SPACE(6-i) FOR j=1 TO 2*i-1 ? * ENDFORENDFORSET TALK ON 11. 编写程序，要求从键盘输入职工工作业绩考评分数（分100分），将其转换成对应的中文输出（分为五档：90分为优秀，8089分为良好，7079分为中等，6069分为合格，60以下为不合格）。SET TALK OFFCLEARINPUT 请输入数据x= TO XDO CASE CASE X=60 AND X=70 AND X=80 AND X=90 Y=优秀ENDCASE?考评分数：,X,为： , YSET TALK ON 12. 要求用循环语句编写程序，显示输出“职工”表中基本工资大于2000元的姓名、部门、性别、基本工资等数据。SET TALK OFF CLEARUSE zg1SCAN FOR 基本工资2000 ?姓名,部门,性别,基本工资ENDSCANUSESET TALK ON第二部分 拓展题1. 编制一个抽奖程序，实现对“职工.DBF” 表文件中的职工多次不重复的随机抽取。 1、设置数据环境 2、Form1 3、Command1 4、Command25、Command3 2. 设计下图所示的一个显示表单。要求：放一幅图片并配上诗。图片用两个形状作外框，诗句采用竖排、华文行楷、20号、白底、蓝字显示。步骤：（1）新建表单，设置表单的Caption属性为：“诗画”；（2）放入图像控件，在属性窗口设置其Picture与图片连接，调整图像大小并设置Stretch为等比填充。（3）为图像框一个形状，设置形状的SpecialEffect为3维，用布局工具栏或格式菜单使形状置后，并调整大小使其框住图像。同样再放入一个形状。本例用了2个形状来修饰图像。 （4）放入一个标签，设置其Caption为诗句，设置其AutoSize为.T.，WordWrap为.T.，往左挤压文字使之竖排。放入其他三个标签，同样做上面的设置。 （5）按住“Shift”键，选中所有写上诗句的标签，设置它们以华文行楷、20号、白底、蓝字显示，然后调整好布局。（6）保存、运行即可。3. 编写一个口令验证窗口，当输入的口令正确则显示欢迎的提示信息，不正确则要求重新输入口令。步骤： 立表单，放入标签和文本框控件。在属性窗口设置属性：表单Form1的Caption、文本框Text1的PassWordChar和SelectOnEntry属性。（不显示口令可设置文本框的PassWordChar属性为“*”，为了方便下次输入，设置SelectOnEntry为.T.，即自动选中文本。）Text1的Valid事件代码：IF ALLTRIM(This.Value)=ABC &精确比较,口令为“ABC” =MESSAGEBOX(欢迎使用本系统) &利用消息框函数显示提示 RETURN .T. &可以失去焦点，继续后面的操作ELSE =MESSAGEBOX(口令错，请再试一次!) RETURN .F. &不能失去焦点，光标锁定在文本框上ENDIF 4. 按姓名查询职工的信息。要设计一个表单，能在编辑框中输出一个对角线为0其余为1的一个矩阵。 步骤：新建表单，放入1个标签、1个文本框、1个命令按钮、1个编辑框。在属性窗口设置Form1、Label1、Command1的Caption属性。Form1的Init事件。Thisform.Command1.Default=.T. Thisform.Text1.SelectOnEntry =.T.Thisform.Text1.Value=1Thisform.Edit1.ReadOnly =.T. Command1（显示）的Click事件N=Thisform.Text1.Value &获取文本框的输入值P= &长字符串的初值FOR I=1 TO N &外循环控制输出的行数 FOR J=1 TO N &内循环控制输出的列数 IF I=J OR J=N-I+1 &左对角线I=J,右对角线J=N-I+1 A=0 &对角线上元素赋值0,为输出清晰在零的前面加一空格 ELSE A=1 &非对角线上元素赋值1 ENDIF P=P+str(A,2)&把每个字符连接起来 ENDFOR P=P+CHR(10) & 连接换行符，或回车符CHR(13)ENDFORThisform.Edit1.Value=P &把带回车符的长字符串赋值给编辑框Thisform.Text1.Setfocus &焦点打到文本框上，为下次输入作准备Thisform.RefreshText1的Valid事件IF This.Value9 OR This.Value1 =MESSAGEBOX(输入错,请重新输入!) Return .F.ELSE Return .T.ENDIFThisform.Refresh5. 按姓名查询职工的信息。求初始运行时只显示左边的姓名列表框信息，选择某一姓名后才显示指定姓名的具体信息步骤 建表单，职工表放入数据环境。放入标签和列表框控件，在属性窗口设置表单和标签的Caption属性，设置列表框的RowSourceType为6，RowSource为职工.姓名。 把职工号、姓名、性别、婚否、出生日期、部门、基本工资、简历字段从数据环境拖入表单，逻辑型字段婚否自动与复选框绑定，备注型字段简历自动与编辑框绑定，其余字段自动与文本框绑定。Form1的Init事件Thisform.Setall(Visible,.F.)Thisform.Label1.Visible=.T. Thisform.List1.Visible=.T. Thisform.SetAll(ReadOnly,.T.,TextBox) Thisform.Edt简历.ReadOnly=.T.Thisform.Chk婚否.ReadOnly=.T.List1的InteractiveChange事件Thisform.Setall(Visible,.T.) Thisform.Refresh &刷新表单6. 设计实现数据在列表框之间转移操作的表单。要求：能把左边列表框选定的数据项移到右边列表框，也能把右边列表框选定的数据项移到左边列表框。 步骤： 建表单，将职工表放入数据环境。 表单控件工具栏，放入2个标签、2个列表框、2个命令按钮。在属性窗口设置表单和2个命令按 钮的Caption属性。 Form1的Init事件Thisform.List1. RowSourceType=0SCAN Thisform.List1.AddItem(职工.姓名)ENDSCAN Command1的Click事件Thisform.List2.AddItem(Thisform.List1.Value) Thisform.List1.RemoveItem(Thisform.List1.ListIndex)Thisform.Refresh Command2的Click事件Thisform.List1.AddItem(Thisform.List2.Value)Thisform.List2.RemoveItem(Thisform.List2.listIndex)Thisform.Refresh7.根据“职工”表，设计一个计算指定部门基本工资平均数的表单。要求：指定部门可以用户输入也可以从列表中选择，如果用户输入的部门不存在，则显示“查无此部门！”，如果存在则计算指定部门基本工资的平均数，并显示在文本框中。步骤：新建表单，将职工表放入数据环境放入2个标签、1个组合框、1个文本框和1个命令按钮。在属性窗口设置表单和Label1的Caption属性，设置组合框的SelectOnEntry为.T.。Form1的Init事件SET TALK OFF SET SAFETY OFF Thisform.Combo1.RowSourceType=0 INDEX ON 部门 TO BM UNIQUE&将重复的部门记录去掉SCAN Thisform.Combo1.AddItem(部门)ENDSCANCLOSE INDEX &关闭索引，恢复表的原状Thisform.Label2.Visible=.F. Thisform.Text1.Visible=.F. Combo1的Valid事件LOCATE FOR ALLT (Thisform.Combo1.DisplayValue)=ALLT (部门)IF EOF() &到文件尾，则不存在 Thisform.Label2.Visible=.F. &设置Label2不可见 Thisform.Text1.Visible=.F. &设置Text1不可见 =MESSAGEBOX(查无此部门！) &显示提示信息 RETURN .F.ELSE &否则找到部门 Thisform.Label2.Visible=.T. &设置Label2可见 Thisform.Text1.Visible=.T. &设置Text1可见 RETURN .T.ENDIFThisform.Refresh8.编制一手工日历。步骤设置表单的标题属性Caption，放入1个文本框来显示日期，放入一个微调，利用其DownClick和UpClick事件。Form1的Init事件ThisForm.Text1.Value=Date()ThisForm.Text1.DateFormat=14ThisForm.Spinner1.SetfocusSpinner1的DownClick事件Thisform.Text1.Value=Thisform.Text1.Value-1Thisform.RefreshSpinner1的UpClick事件Thisform.Text1.Value=Thisform.Text1.Value+1Thisform.RefreshCommand1的Click事件Thisform.Release9.设计一个职工表的只读浏览表单，用户能通过前翻、后翻命令按钮翻页记录，当翻到文件头时，前翻按钮禁止使用，翻到文件尾时，后翻按钮禁止使用。步骤：新建表单，把职工表放入数据环境，然后把职工号、姓名、性别等字段拖入表单，它们会与对应的控件建立绑定。放入3个命令按钮。调整布局及字体大小。在属性窗口设置以下属性：表单及命令按钮的Caption；把Command2的Default属性设置为.T.，使其为默认按钮；选中所有的文本框、复选框、编辑框，设置它们的ReadOnly为.T.。Command1（前翻）的Click事件SKIP -1 &下移一条记录IF BOF() &如果是文件头 Thisform.Command1.Enabled=.F. &Command1禁用ENDIFThisform.Command2.Enabled=.T. &置Command2可用Thisform.RefreshCommand2（后翻）的Click事件SKIP &上移一条记录IF EOF() &如果是文件尾 Thisform.Command2.Enabled=.F. &Command2禁用ENDIFThisform.Command1.Enabled=.T. &置Command1可用Thisform.Refresh Command3（退出）的Click事件Thisform.Release10.编写一个无纸化考试的表单，运行界面如下图所示。题目内容取之于表文件的备注字段，学生答题时能将所选答案存入表文件对应字段中。步骤:新建表文件“题目及答案”，按照图所示的要求输入表结构，“题目”和 “标准”字段的数据自编或从电子数据复制过来。新建表单，“题目及答案”表文件放入数据环境。放入控件：1个编辑框、1个标签、1个选项按钮组、1个命令按钮组。 属性窗口设置属性：设置表单和标签的Caption，设置标签的FontName、FontSize、ForeColor为适当的样子；设置编辑框的ControlSource为“题目及答案.题目”字段、ReadOnly为.T.，调整编辑框的字体为适当大小。用命令按钮组的生成器设置其按钮数为5，在生成器对话框中设置每个按钮的标题并给每个按钮加上快捷键（标题中字母，按Alt+字母可以操作该按钮），如图6-23所示，再设置按钮布局为水平，按钮间距为10。用命令按钮组快捷菜单的“编辑”命令进入各按钮的编辑状态，选中全部的按钮设置它们的字体为适当大小。11.设计一个统计车票总金额的表单，要求是：在给出的各种车票中选择你需要的，按“计算总额”命令按钮，将所需要的车票总金额计算出来并显示在指定的文本框中。步骤新建表单，放入2个标签、3个复选框、2个命令按钮、1个文本框。在属性窗口设置属性：标签、复选框、命令按钮及表单的Caption属性，设置“计算总额”命令按钮为默认按钮，即Default为.T.。设置文本框Text1的只读属性ReadOnly为.T.，选中所有对象，设置字体为适当的大小。Command1（计算总额）的Click事件S=0 &为放总额的变量赋初值0IF Thisform.Check1.Value=1 &如果Check1被选中 S=S+580ENDIFIF Thisform.Check2.Value=1 &如果Check2被选中 S=S+50ENDIFIF Thisform.Check3.Value=1S=S+280ENDIFThisform.Text1.Value=SThisform.RefreshCommand2（退出）的Click事件代码Thisform.Release12.利用选项按钮组设计调色板表单，能调出红、橙、黄、绿、青、蓝、紫、黑、白九种颜色。初始运行颜色为白色。步骤新建表单，放入1个选项按钮组。在属性窗口设置表单的Caption，用选项按钮组的生成器设置其按钮数为9，在生成器对话框中设置按钮1到按钮9的标题分别