2010年3月份VF上机考试题答案

万老师VF等级考试资料第1页共13页2010年3月份VF上机考试题答案第一套二、简单应用题1、select供应商号,工程号,数量from供应,零件where供应.零件号=零件.零件号and颜色=红orderby数量descintotablesup_temp2、rightclick事件的代码：dom_quick.mpr三、综合应用题Command1按钮的Click事件中代码：select零件名,颜色,重量from零件,供应where零件.零件号=供应.零件号and工程号=alltrim(thisform.text1.value)orderby零件名intotableppthisform.grid1.recordsource=pp第二套二、简单应用题1、select书名,作者,价格frombook,loans,borrowswherebook.图书登记号=loans.图书登记号andloans.借书证号=borrows.借书证号and姓名=田亮orderby价格descintotablebooktemp2、顶层表单的设计：①在表单的属性窗口中设置Showwindow属性为2-作为顶层表单②双击表单，在load事件中输入以下代码：domenu_lin.mprwiththis三、综合应用题在Command1的Click事件中输入:selectcount(*)frombookwhere出版社=thisform.combo1.valueintoarrayathisform.text1.value=a在Command2的Click事件中输入:thisform.release第三套一、基本操作题3、insertintoscore1value(993503433,0001,99)三、综合应用题“平均”菜单项的过程代码为：select课程名,avg(成绩)平均成绩fromscore1,coursewherescore1.课程号=course.课程号groupby课程名orderby课程名intotablenewtable第四套二、简单应用题2、”查询”的click事件代码为：select作者姓名,所在城市fromauthors,bookswhereauthors.作者编号=books.作者编号groupby作者姓名havingcount(书名)=3orderby作者姓名intotablenewtable三、综合应用题1、SELECT*FROMbooksWHEREAT(计算机,书名)0INTOTABLEBOOKSBAK2、updatebooksbakset价格=价格*0.953、①select出版单位,avg(价格)as均价frombooksbakgroupby出版单位orderby均价intocursoraa②select*top1fromaawhere均价=25orderby均价intotablenewtable第五套二、简单应用题1、select外币名称,持有数量fromcurrency_sl,rate_exchangewherecurrency_sl.外币代码=rate_exchange.外币代码and姓名=林诗因orderby持有数量intotablerate_temp三、综合应用题“查询”的Click事件代码为：select外币名称,现钞买入价*持有数量as人民币数量fromcurrency_sl,rate_exchangewherecurrency_sl.外币代码=rate_exchange.外币代码andcurrency_sl.姓名=alltrim(thisform.text1.value)orderby人民币数量descintotableDBFAthisform.grid1.recordsource=DBFA第六套二、简单应用题1、第一个错误改为locatefor姓名=林诗因第二个错误改为dowhilenoteof()第三个错误是改为summ=summ+a[1]*currency_sl.持有数量三、综合应用题“统计”的click事件代码为：DOCASECASEthisform.myOption.option1.value=1SELECTCurrency_sl.姓名,Currency_sl.持有数量FROMrate_exchange,Currency_slwhererate_exchange.外币代码=Currency_sl.外币代码andrate_exchange.外币名称=日元INTOTABLErate_ryCASEthisform.myOption.option2.value=1SELECTCurrency_sl.姓名,Currency_sl.持有数量FROMrate_exchange,Currency_slwhererate_exchange.外币代码=Currency_sl.外币代码andrate_exchange.外币名称=美元INTOTABLErate_myCASEthisform.myOption.option3.value=1SELECTCurrency_sl.姓名,Currency_sl.持有数量FROMrate_exchange,Currency_slwhererate_exchange.外币代码=Currency_sl.外币代码andrate_exchange.外币名称=欧元电话：1552929606513289865580第2页共13页INTOTABLErate_oyENDCASE第七套二、简单应用题1、update教师set新工资=原工资*1.2where职称=教授update教师set新工资=原工资where职称!=教授insertinto教师value(林红,讲师,10200,10000)三、综合应用题“查询”的click事件代码为：THISFORM.GRID1.RECORDSOURCE=SELECT学生.姓名,课程.课程名称,选课.成绩FROM课程,选课,学生where学生.学号=选课.学号and课程.课程号=选课.课程号and系='6'INTOCURSORa第八套二、简单应用题1、select项目信息.项目号,项目名,零件信息.零件号,零件名称from零件信息,使用零件,项目信息where零件信息.零件号=使用零件.零件号and使用零件.项目号=项目信息.项目号and零件信息.零件号in(select零件号from使用零件where项目号=s1)orderby项目信息.项目号descintotableitem_temp三、综合应用题表单form_item的Load事件代码为：publicss(3)ss(1)=s1ss(2)=s2ss(3)=s3“命令”的Click事件代码为：SELECTSUM(零件信息.单价*使用零件.数量);FROM零件信息,使用零件,项目信息where使用零件.项目号=项目信息.项目号and零件信息.零件号=使用零件.零件号and使用零件.项目号=ALLTRIM(THISFORM.combo1.VALUE)GROUPBY项目信息.项目号INTOARRAYaaTHISFORM.TEXT1.VALUE=aa第九套二、简单应用题2、select姓名,sum(基准价*持有数量)人民币价值fromcurrency_sl,rate_exchangewherecurrency_sl.外币代码=rate_exchange.外币代码groupby姓名orderby2descintotableresults三、综合应用题“查询”的click事件代码为：x=thisform.text1.valueselect外币名称,持有数量fromcurrency_sl,rate_exchange;wherecurrency_sl.外币代码=rate_exchange.外币代码and姓名=xorderby持有数量intotable&xthisform.grid1.recordsource=&x第十套一、基本操作题1、select外币名称,现钞买入价,卖出价fromrate_exchangeintotablerate_x2、updaterate_exchangeset卖出价=829.01where外币名称=美元二、简单应用题1、timer1的timer事件代码为：thisform.label1.caption=time()“暂停”的click事件代码为：thisform.timer1.interval=0“继续”的click事件代码为：thisform.timer1.interval=500第十一套二、简单应用题1、空行处应填usecustomer第二个错误应改为SCANFOR所在地='北京'。2、select公司名称,订单编号,金额,送货方式fromcustomer,orderwherecustomer.客户编号=order.客户编号orderby公司名称,订单编号intotableresults三、综合应用题“退出”的过程代码为：myform.releasesetsysmenutodefaultload事件代码为：domymenu.mprwiththis第十二套一、基本操作题1、insertinto零件信息value(p7,PN7,1020)2、deletefrom零件信息where单价6003、update零件信息set单价=1090where零件号=p4二、简单应用题1、第一处错误改为SELE零件名称FROM零件信WHERE零件号IN第二处错误改为GROUPBY零件号HAVINGCOUNT(项目号)=3)第三处错误改为TOFILEresults第十三套二、简单应用题2、select学号,姓名,系部fromstudentwhere学号notin(select学号fromscore1)orderby学号intotablenew_table2三、综合应用题“查询”的click事件代码为：closeallusestudentgotoplocateforstudent.学号=alltrim(thisform.text1.value)ifstudent.学号=alltrim(thisform.text1.value)thisform.grid1.recordsource=select课程名,成绩fromstudent,score1,coursewherestudent.学号=score1.学号andscore1.课程号=course.课程号andstudent.学号=alltrim(thisform.text1.value)intocursora万老师VF等级考试资料第3页共13页elsemessagebox(学号不存在，请重新输入学号！)thisform.grid1.recordsource=””endif第十四套一、基本操作题4、select*fromscore1orderby学号,成绩descintotablenew_order二、简单应用题1、selectcount(distinct学号)学生人数fromscore1intotablenew_table2、select课程名,开课单位fromcoursewhere课程号notin(select课程号fromscore1)orderby课程名intotablenew_table2三、综合应用题“查询”的click事件代码为：select课程名,max(成绩)最高分fromcourse,score1wherecourse.课程号=score1.课程号groupby课程名orderby课程名intotablenew_table3第十五套一、基本操作题3、ok的click事件代码为：thisform.mymethod三、综合应用题“计算”的过程代码为：select民族,avg(数学),avg(英语)fromxuesheng,chengjiwherexuesheng.学号=chengji.学号and民族=汉intoarrayainsertint