VF90期末实验题库答案全解

数据库应用基础VisuyalFoxPro9.0期末考试题库1第一部分基础题1.先用赋值语句分别为变量X、Y、Z赋初值为200、300、400，然后要求输出：①[(X-2Y)/(2-Z)]*Y②Y100或Y0③50Z8002.按照以下表结构，建立三个表。数据库应用基础VisuyalFoxPro9.0期末考试题库2数据库应用基础VisuyalFoxPro9.0期末考试题库33.统计职工表的职工总人数以及男、女职工的人数。USE职工COUNTTOZRSCOUNTFOR性别=男TOMZGCOUNTFOR性别=女TOWZG?总人数=+STR(ZRS,2),男职工人数=+STR(MZG,1),;女职工人数=+STR(WZG,1)4.编写程序，修改并显示指定职工的基本工资。NOTE修改并显示指定职工的基本工资SETTALKOFFCLEARUSE职工ACCEPT请输入职工号:TOZGHLOCATEFOR职工号=ZGHIF!EOF()数据库应用基础VisuyalFoxPro9.0期末考试题库4REPLACE基本工资WITH基本工资+200?职工号,姓名,基本工资ELSE?没有找到!ENDIFUSESETTALKON5．编写程序，火车托运行李，根据行李的重量计算托运费。收费标准假设是0.60元/千克。由用户输入货物的重量，请计算并输出所需要的托运费。SETTALKOFFCLEARINPUT请输入货物的重量(Kg)：TOWF=W*0.60?货物重量+ALLTRIM(STR(W,19,2))+千克需要的托运费为：;+ALLTRIM(STR(F,19,2))+元SETTALKON6.编写程序，求“职工”表中指定部门（如直销、零售）全体职工的基本工资总额。NOTE求指定部门基本工资总额SETTALKOFFCLEAR数据库应用基础VisuyalFoxPro9.0期末考试题库5USE职工ACCEPT请输入指定部门：TOBMSUM基本工资TOJBGZFOR部门=BM?BM+部全体职工的基本工资为：+STR(基本工资,8,2)USESETTALKON7.编写程序，如果在例题5中，当重量不超过50kg时，按每千克0.60元收费；当重量超过50kg，超出50kg的部分按每千克0.90元收费。试编写程序计算托运费。SETTALKOFFCLEARINPUT请输入货物的重量(Kg)：TOWIFW=50F=W*0.60ELSEF=50*0.6+(W-50)*0.9ENDIF?“货物重量”+ALLTRIM(STR(W,19,2))+“千克需要的托运费为：”；+ALLTRIM(STR(F,19,2))+元SETTALKON数据库应用基础VisuyalFoxPro9.0期末考试题库68.编写程序：求x+x2+x3+x4++xn的值。n，x从键盘输入。FOR---ENDFOR方法。SETTALKOFFCLEARINPUTN=TONINPUTX=TOXA=1S=0FORI=1TONA=A*XS=S+AENDFOR?S=,SSETTALKON9.编写程序：显示输出正整数M（从键盘输入）内的偶数及偶数和。SETTALKOFFCLEARINPUTM=TOMS=0I=1DOWHILEI=MIFINT(I/2)=I/2?I,是偶数S=S+IENDIFI=I+1ENDDO?偶数和为：,SSETTALKON数据库应用基础VisuyalFoxPro9.0期末考试题库710.编写程序，显示输出如图4-34所示的图形。SETTALKOFFCLEARFORi=5TO1STEP-1?SPACE(6-i)FORj=1TO2*i-1??*ENDFORENDFORSETTALKON11.编写程序，要求从键盘输入职工工作业绩考评分数（０分～100分），将其转换成对应的中文输出（分为五档：≥90分为优秀，80～89分为良好，70～79分为中等，60～69分为合格，60以下为不合格）。SETTALKOFFCLEAR数据库应用基础VisuyalFoxPro9.0期末考试题库8INPUT请输入数据x=TOXDOCASECASEX60Y='不合格'CASEX=60ANDX69Y='合格'CASEX=70ANDX79Y='中等'CASEX=80ANDX89Y='良好'CASEX=90Y='优秀'ENDCASE?考评分数：,X,为：,YSETTALKON12.要求用循环语句编写程序，显示输出“职工”表中基本工资大于2000元的姓名、部门、性别、基本工资等数据。SETTALKOFFCLEARUSEzg1SCANFOR基本工资2000?姓名,部门,性别,基本工资ENDSCANUSESETTALKON数据库应用基础VisuyalFoxPro9.0期末考试题库9第二部分拓展题1.编制一个抽奖程序，实现对“职工.DBF”表文件中的职工多次不重复的随机抽取。1、设置数据环境2、Form1数据库应用基础VisuyalFoxPro9.0期末考试题库103、Command14、Command25、Command3数据库应用基础VisuyalFoxPro9.0期末考试题库112.设计下图所示的一个显示表单。要求：放一幅图片并配上诗。图片用两个形状作外框，诗句采用竖排、华文行楷、20号、白底、蓝字显示。步骤：（1）新建表单，设置表单的Caption属性为：“诗画”；（2）放入图像控件，在属性窗口设置其Picture与图片连接，调整图像大小并设置Stretch为等比填充。（3）为图像框一个形状，设置形状的SpecialEffect为3维，用布局工具栏或格式菜单使形状置后，并调整大小使其框住图像。同样再放入一个形状。本例用了2个形状来修饰图像。数据库应用基础VisuyalFoxPro9.0期末考试题库12（4）放入一个标签，设置其Caption为诗句，设置其AutoSize为.T.，WordWrap为.T.，往左挤压文字使之竖排。放入其他三个标签，同样做上面的设置。（5）按住“Shift”键，选中所有写上诗句的标签，设置它们以华文行楷、20号、白底、蓝字显示，然后调整好布局。（6）保存、运行即可。3.编写一个口令验证窗口，当输入的口令正确则显示欢迎的提示信息，不正确则要求重新输入口令。步骤：②立表单，放入标签和文本框控件。②在属性窗口设置属性：表单Form1的Caption、文本框Text1的PassWordChar和SelectOnEntry属性。（不显示口令可设置文本框的PassWordChar属性为“*”，为了方便下次输入，设置SelectOnEntry为.T.，即自动选中文本。）③Text1的Valid事件代码：IFALLTRIM(This.Value)==ABC&&精确比较,口令为“ABC”=MESSAGEBOX(欢迎使用本系统)&&利用消息框函数显示提示RETURN.T.&&可以失去焦点，继续后面的操作ELSE=MESSAGEBOX(口令错，请再试一次!)RETURN.F.&&不能失去焦点，光标锁定在文本框上ENDIF数据库应用基础VisuyalFoxPro9.0期末考试题库134.按姓名查询职工的信息。要设计一个表单，能在编辑框中输出一个对角线为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事件数据库应用基础VisuyalFoxPro9.0期末考试题库14N=Thisform.Text1.Value&&获取文本框的输入值P=&&长字符串的初值FORI=1TON&&外循环控制输出的行数FORJ=1TON&&内循环控制输出的列数IFI=JORJ=N-I+1&&左对角线I=J,右对角线J=N-I+1A=0&&对角线上元素赋值0,为输出清晰在零的前面加一空格ELSEA=1&&非对角线上元素赋值1ENDIFP=P+str(A,2)&&把每个字符连接起来ENDFORP=P+CHR(10)&&连接换行符，或回车符CHR(13)ENDFORThisform.Edit1.Value=P&&把带回车符的长字符串赋值给编辑框Thisform.Text1.Setfocus&&焦点打到文本框上，为下次输入作准备Thisform.Refresh⑤Text1的Valid事件IFThis.Value9ORThis.Value1=MESSAGEBOX(输入错,请重新输入!)Return.F.ELSEReturn.T.ENDIFThisform.Refresh5.按姓名查询职工的信息。求初始运行时只显示左边的姓名列表框信息，选择某一姓名后才显示指定姓名的具体信息步骤②建表单，职工表放入数据环境。②放入标签和列表框控件，在属性窗口设置表单和标签的Caption属性，设置列表框的RowSourceType为6，RowSource为职工.姓名。数据库应用基础VisuyalFoxPro9.0期末考试题库15③把职工号、姓名、性别、婚否、出生日期、部门、基本工资、简历字段从数据环境拖入表单，逻辑型字段婚否自动与复选框绑定，备注型字段简历自动与编辑框绑定，其余字段自动与文本框绑定。④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个命令按钮数据库应用基础VisuyalFoxPro9.0期末考试题库16的Caption属性。③Form1的Init事件Thisform.List1.RowSourceType=0SCANThisform.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事件SETTALKOFFSETSAFETYOFFThisform.Combo1.RowSourceType=0I