海大VFP上机考试试题答案.docx

VFP上机考试 1新建商品数据表SB.DBF，字段有：商品号（C,5），商品名（C,8），单价（N,5,2），出厂单价(N,5,2)，产地(C,6)。并添加如下记录：商品号（C,5），商品名（C,8），单价（N,6,2），出厂单价(N,6,2)，产地(C,6)。10001电视机800.0500.0青岛20001电子字典360.0200.0深圳10002手机8210980.0600.0北京30001MP3800.0560.0广州10003商务通890.0460.0深圳设计一个名称为MY_FORM的表单，上面有“浏览”、“调整”、“备份”和“退出”四个命令按钮，“商品名称”标签和文本框text1。1）在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记录。2）单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。3）单击“备份”按钮时，将“商品表”进行备份(使用命令COPYTO)，备份文件名为“商品表备份.DBF”，4）单击“退出”按钮时，关闭表单。a=allt(thisform.text1.value)x=this.valuedocasecasex=1sele*fromsbwher商品名=acasex=2repl单价with出厂单价*1.1forleft(商品号,2)=10browscasex=3copyto商品表备份casex=4thisform.releaseendcasethisform.text1.setfocus2设计一个菜单。主菜单 子菜单 任务 文件（F） 建查询(C)Ctrl+C 新建立查询，表自备，查询内容、文件名自定 保存（S） 关闭(G) 编辑（E） 输入(I) 修改(E) 修改该查询 运行（R）Ctrl+R 运行该查询显示结果 退出（X） 过程 提示“退出菜单？”，退出恢复系统隐含菜单 3在建立“E:专业姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”Click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。s=1a=thisform.text1.valuedowhiles=60and高数=60and英语=60replace学分with9case物理=60and高数=60and英语=60and高数=60replace学分with3case物理=60and英语=60replace学分with5case物理=60and高数=60replace学分with4case物理=60and英语=60and高数=60and英语=60replace学分with2case物理=60and高数=60and英语=180sele*top5fromstd_cjorderby总成绩descsele*fromstd_cjwhere总成绩0x1=allt(str(-b+sqrt(d)/(2*a),7,3)x2=allt(str(-b-sqrt(d)/(2*a),7,3)thisform.label1.caption=方程有两个不相等的实根,X1=+X1+space(3)+X2=+X2cased=0x1=allt(str(-b+sqrt(d)/(2*a),7,3)thisform.label1.caption=方程有两个相等的实根，X1=X2=+x1cased0e=allt(str(-b/(2*a),7,3)f=allt(str(sqrt(-d)/(2*a),7,3)g=allt(str(-sqrt(-d)/(2*a),7,3)thisform.label1.caption=方程有两个相等的虚根，X1=+e+f+i+X2=+e+g+iendcase注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。17.某数组有10个元素，其值为随机产生的两位整数。现要求将该数组逆序输出。分别在表单上输出原数组和排序后的数组。Form1load事件：publica(10),b(10)Active：p=fori=1to10a(i)=int(90*rand()+10)p=p+allt(str(a(i)+,endforthisform.label1.caption=left(p,len(p)-1)Co