2010計(jì)算機(jī)二級(jí)vfp上機(jī)解析

目2010年秋 2010年秋 2010年秋 2010年秋 2010年秋 2010年秋 1、在JXSJAB01.DBF表,并按表格中的要求設(shè)置相寬度DN6N6M（1）AB01表的注釋:參觀人數(shù)(2)設(shè)置日期字段的默認(rèn)值：當(dāng)前的系統(tǒng)日 （操作提示：date（）（操作提示：在表設(shè)計(jì)器中，選中rq字 選spinner如上圖 （操作提 ：在表設(shè)計(jì)器的”表”選項(xiàng)卡中設(shè)置：SJRS<=SCSL如下圖創(chuàng)建普通索引，索引名為2AB01表中輸入如下記錄（kc—（或者使用命令： &&選中kc表為當(dāng)前工作區(qū)中的 ALLFORxf4、已知JS表已存在主索引gh，索引表達(dá)式為GH；KCAP表已存在普通索引gh,索引表達(dá)式為GH,以JS表為主表,KCAP表為子表,gh建立永久關(guān)系,并設(shè)置兩表之間的參照（操作提示:選中JXSJ數(shù)據(jù)庫(kù),點(diǎn)擊修改,出現(xiàn)數(shù)據(jù)庫(kù)設(shè)計(jì)器,找到JS表與KCAP表,JSgh,KCAPgh（即：主表gh索引子表gh索引）,會(huì)出現(xiàn)一條連接線,即建立永久關(guān)系,雙擊連接線,選中參照完整性,出現(xiàn)參照完整性生成器,選擇”更新”選項(xiàng)卡,選中其中的級(jí)聯(lián),選中”刪除”選項(xiàng)卡,選中其中的限制,按確定注意如果單擊參照完整性出現(xiàn)一個(gè)錯(cuò)誤提示框,則要執(zhí)行系統(tǒng)菜單”數(shù)據(jù)庫(kù)”→清理數(shù)據(jù)庫(kù)創(chuàng)建一個(gè)新的查詢chaxun_A，要求如下：已知JS表含有字段如下： 自由表JYB含有字段如下：（f，（j，基于js表和jyb表查詢教師借書情況，教師的工號(hào)與讀者號(hào)相同，jyb表是自由表。計(jì)算過(guò)期罰款信息，要求：輸出字段為dzh（讀者號(hào)、xm（、罰款額、查詢結(jié)果按照罰款額降序排序，輸出去向?yàn)槲谋疚募EMP1300.1元，沒(méi)有還書者（即還SELECTJyb.dzh,Js.xmsum(iif((hsrq-jyrq)>30,(hsrq-jyrq-30)*0.10,0.0))as罰FROMjxsj!jsINNERJOINjyb;ONJs.gh=Jyb.dzh;Groupbyjyb.dzhORDERBY3DTOFILEJXGL項(xiàng)目中已存在菜單 完成后的運(yùn)行效果如圖1所示。 為”查詢”菜單項(xiàng)設(shè)置快捷鍵F12(操作提示：在選項(xiàng)中設(shè)置F12) （操作提示：菜單項(xiàng)名稱為\-（USE&dCopyto適當(dāng)加大shape1形狀的高度。在形狀內(nèi)部增加一個(gè)控件Label_Sum,和一個(gè)文本框控件TEXT4，并設(shè)置的標(biāo)題為“總字符數(shù)”編寫“清空”按鈕的click代碼，用2條語(yǔ)句實(shí)現(xiàn)如下功能：清除編輯框Edit1中的文本；使“字?jǐn)?shù)統(tǒng)計(jì)”矩形區(qū)域內(nèi)的4個(gè)文本框的值為0.表單已經(jīng)定義了一個(gè)count（）方法，對(duì)Edit1中的文本進(jìn)行字?jǐn)?shù)統(tǒng)計(jì)。編寫“統(tǒng)計(jì)”按鈕的click代碼：實(shí)現(xiàn)調(diào)用表單的count（）方法，然后，將text1，text2，text3中的值加起來(lái)，顯示在text4中。3個(gè)文本框禁用，每個(gè)文本框的enabled屬性=。F添加1個(gè)控件，控件的caption屬性=總字符數(shù)，name屬性=Label_Sum)添加一個(gè)文本框text4清空按鈕的 統(tǒng)計(jì)按鈕的 100～99910的模等于百位數(shù)，且該數(shù)十素?cái)?shù)。例如：101，211，239等。并對(duì)其中的fori=100to999forj=3toi-ifmod（j，i）=0 mod(i,j)=0ifif 1、在JXSJAB02.DBF表,并按表格中的要求設(shè)置相寬度DC8CGRQ字段的默認(rèn)值：當(dāng)前系統(tǒng)日期減一提示：RQ字段的默認(rèn)值為DATE()-1提示：NOTEMPTY(qcph)提示：索引表達(dá)式為dd+qcph2AB02表中輸入記錄3、修改jc表數(shù)據(jù)：所有記錄的單價(jià)字段的值取整提示：利用命令updatejcsetjc.dj=int(DJ)或者利用替換字段操作4、已知JS表已存在主索引gh，索引表達(dá)式為GH；KCAP表已存在普通索引gh,索引表達(dá)式為GH,以JS表為主表,KCAP表為子表,按gh建立永久關(guān)系,并設(shè)置兩表之間的參照二、設(shè)計(jì)查詢（8分）創(chuàng)建查詢文件chaxun_B基于計(jì)算過(guò)期罰款信息，要求：輸出字段為dzh（讀者號(hào)、xm（、罰款額、查詢結(jié)果按照罰款額降序排序，輸出去向?yàn)槲谋疚募EMP2SELECTJyb.dzh,SUM(IIF(Jyb.hsrq-Jyb.jyrq>30,(Jyb.hsrq-Jyb.jyrq-30)*0.05,0))AS罰款額;FROMjxsj!xsINNERJOINjyb;ONXs.xh=Jyb.dzh;GROUPBYJyb.dzh;TOFILEJXGL項(xiàng)目中已存在菜單 如下要求設(shè)計(jì)菜單,完成后的運(yùn)行效果如圖1所示。Select*fromCJ表打開(kāi)時(shí)才可操作（啟用 （操作提示：菜單項(xiàng)名稱為\-4位碼9999，文本框中的字體為粗體在表單的空白區(qū)域添加一個(gè)復(fù)選框控件的click代碼，用1條語(yǔ)句實(shí)現(xiàn)list1的自動(dòng)排（操作提 編寫“清除”按鈕的click代碼，用2條語(yǔ)句實(shí)現(xiàn)如下功能：text1的值為回文數(shù)是指正讀和反讀都一樣的數(shù)，例如121，1001，1221等。下列程序的功能是：求出小于2000的所有回文數(shù)，并將它們打印出來(lái)（每行打印5個(gè)數(shù)，最后一行打印總個(gè)數(shù)。store0ton,n1,n2fori=1to2000forj=1ton2 &&改為ifif??'1JXSJAB03.DBF表,并按表格中的要求設(shè)置相寬度DCCN設(shè)置日期的有效性規(guī)則：不能為星期星期日（提示：使用dow函數(shù)）提示：dow(date())!=1anddow(date())!=7提示：索引表達(dá)式為2AB03表中輸入如下記錄 到新的表中，表名為（提示：SELECT4、已知xs表已存在主索引xh，索引表達(dá)式為xH；CJ表已存在普通索引XH,索引表達(dá)式為XH,以XS表為主表,CJ表為子表,按XH建立永久關(guān)系,并設(shè)置兩表之間的參照完整性:基于js表和gzb表查詢各院系專業(yè)教師人數(shù)和應(yīng)發(fā)工資總額。要求：查詢輸出字段為僅僅輸出應(yīng)發(fā)工資總額最多的前3個(gè)院系專業(yè)，輸出去向?yàn)楸砦募emp3住房補(bǔ)貼（zfbtN）等。SELECTTOP3Js.yxzydmcount(*as人數(shù)Gzb.jbgz+Gzb.gwjt+Gzb.zhjt+Gzb.zfbtas應(yīng)發(fā)工資總額; jxsj!jsINNERJOINgzb;ONJs.gh=Gzb.gh;GROUPBYJs.yxzydm;ORDERBY3DESC;JXGL項(xiàng)目中已存在菜單 如下要求設(shè)計(jì)菜單,完成后的運(yùn)行效果如圖1所示。為"瀏覽文件"菜單項(xiàng)設(shè)置快捷鍵和“關(guān)閉”（提示：利用插入欄）為“瀏覽文件”菜單項(xiàng)設(shè)置命令代碼dir設(shè)置文本框text1的相關(guān)屬性，使其最多能輸入6個(gè)字符，且文本居中顯示，文本框text2的符號(hào)為*（操作提示：form2form2的有關(guān)屬性，使其在初始運(yùn)行時(shí)隱操作提示：form2的 為了使text1輸入的字符數(shù)不少于4，可通過(guò)其 進(jìn)行檢驗(yàn)，編寫其代碼，要求：當(dāng)text1中字符數(shù)小于4時(shí)返回.f.操作提示：text1的valid return.f.(4)修改登錄按鈕的click代碼，如果文本框text1中輸入的用戶名為admin，且 為123456，這顯示form2表單，同時(shí)關(guān)閉formG表單。IFALLT(THISFORM.text1.VALUE)="admin".AND.我國(guó)古代數(shù)學(xué)家張丘提出“百錢買百雞”問(wèn)題：1只公雞5元，1只母雞3元，3只小雞fori=0to100/5forj=0to100/3fork=0to ”+”+只?cstring &&語(yǔ)法錯(cuò)誤，改為endforParai,j,k 5*i+3*j+k/3=100or &&邏輯錯(cuò)誤，ori代表公雞數(shù)目，j表示母雞數(shù)，k表示小雞數(shù)，該問(wèn)題是搜索滿足以下兩個(gè)條件①i+j+k=1001、在JXSJAB04.DBF表,并按表格中的要求設(shè)置相寬度DCC8N3設(shè)置日期字段的默認(rèn)值：當(dāng)前的系統(tǒng)日期（提示：date（）創(chuàng)建普通索引，索引名為abcd，要求按地點(diǎn)排序，相同時(shí)，按照車速排序提示：索引表達(dá)式： 2AB04表中輸入如下記錄（JC—4、已知JS表已存在主索引gh，索引表達(dá)式為GH；KCAP表已存在普通索引gh,索引表達(dá)式為GH,以JS表為主表,KCAP表為子表,按gh建立永久關(guān)系,并設(shè)置兩表之間的參照（操作提示:選中JXSJ數(shù)據(jù)庫(kù),點(diǎn)擊修改,出現(xiàn)數(shù)據(jù)庫(kù)設(shè)計(jì)器,找到JS表與KCAP表,然后選中JS表的索引gh,拖放至KCAP表的索引gh（即：主表gh索引子表gh索引）,會(huì)出現(xiàn)一條連接線,即建立永久關(guān)系,雙擊連接線,選中參照完整性,出現(xiàn)參照完整性生成器,選擇”更新”選項(xiàng)卡,選中其中的級(jí)聯(lián),選中”插入”選項(xiàng)卡,選中其中的限制,按確定注意如果單擊參照完整性出現(xiàn)一個(gè)錯(cuò)誤提示框,則要執(zhí)行系統(tǒng)菜單”數(shù)據(jù)庫(kù)”→清理數(shù)據(jù)庫(kù)二、設(shè)計(jì)查詢創(chuàng)建查詢文件chaxun_DSELECTJs.yxzydm,count(*)assum(iif(empty(hsrq),1,0))asmax(iif(empty(hsrq),date()-Jyb.jyrq,hsrq-Jyb.jyrq))as最大借閱天數(shù);FROMjxsj!jsINNERJOINjyb;ONalltrim(Js.gh)=alltrim(Jyb.dzh);GROUPBYJs.yxzydm;ORDERBY4DESC;INTOCURSORtemp4JXGL項(xiàng)目中已存在菜單 如下要求設(shè)計(jì)菜單,完成后的運(yùn)行效果如圖1所示。為“”菜單項(xiàng)設(shè)置命令代碼：copytolsit12230列表框的columncount2，ColumnWidthsspinner1控件，用來(lái)控制列表框中數(shù)據(jù)的最大函數(shù)。設(shè)置其初始值為5，微調(diào)框可達(dá)最小值為5，最大值為50.5SpnerLowaue屬性設(shè)置為50在“添加”按鈕的Click 的數(shù)據(jù)后，在該行的第二列顯示行號(hào)，且行號(hào)顯示寬度為2個(gè)字符。將“添加”按鈕的click的所有代碼放入一個(gè)if…….endif語(yǔ)句結(jié)構(gòu)中，要求根據(jù)微IFTHISFORM.LIST1.LISTCOUNT< 五、程序改錯(cuò)(5336現(xiàn)將12種球混雜在一個(gè)盒子里，從中任意摸出m個(gè)球，問(wèn)會(huì)出現(xiàn)多少種不同的情況？form=1toallt(str(m))+"球的取法有"+allt(str(solutioncount(m)))+"種"functionsolutioncount()parainumfori=0to3forj=0to3 k=0toif 1、在JXSJAB05.DBF表,并按表格中的要求設(shè)置相寬度CTTC8AB052AB05表中輸入如下記錄為jc表增加一個(gè)字段名ndj2，并計(jì)算該字段的值：ndj字段的值為單價(jià)（dj）字段值的70%，小數(shù)部分四舍五入。UpdatejcsetXS表已存在主索引Xh，索引表達(dá)式為XH；CJ表已存在普通索引XH,索引表達(dá)式為XH,以XS表為主表,CJ表為子表,按XH建立永久關(guān)系,并設(shè)置兩表之間的參照創(chuàng)建一個(gè)新的查詢chaxun_E，要求如下：已知XS表含有字段如下： C）,院校專業(yè)代碼（yxzydm 自由表JYB含有字段如下：（f，C（jyr，D自由表。要求：輸出字段為yxzydm、借書本數(shù)、未還本數(shù)、最大借閱天數(shù)，查詢結(jié)果按照最大借閱天數(shù)降序排序，輸出去向?yàn)榕R時(shí)表zyjsqk。 SELECTXs.yxzydm,count(*)as借書本數(shù),;sum(iif(empty(hsrq),1,0))as未還本數(shù),;

FROMjxsj!xsINNERJOINjyb;ONXs.xh=Jyb.dzh;GROUPBYXs.yxzydm;ORDERBY4DESC；IntocursorJXGL項(xiàng)目中已存在菜單 如下要求設(shè)計(jì)菜單,完成后的運(yùn)行效果如圖1所示。“流通”菜單設(shè)置快捷鍵 （提示：屬性edit120edit2的有關(guān)屬性，使其內(nèi)容不可改，但可獲得焦點(diǎn)。（MaxLength來(lái)限制用戶輸入編輯框的字符數(shù)目。若Maxlength設(shè)置為0，那么輸入到編輯框的字符數(shù)目沒(méi)有限制。Readonly屬性為真，用戶不能編