33次上機(jī)考試參考答案1.doc

33次上機(jī)考試參考答案第一套二、程序設(shè)計(jì)，實(shí)現(xiàn)該程序功能的代碼如下:CLEAR SELECT 1USE 成績(jī) REPLACE ALL 成績(jī) with 成績(jī)*1.15 FOR 課程名=Access程序設(shè)計(jì) INDEX ON 學(xué)號(hào) TAG XH SELECT 2 USE 學(xué)生 SET RELATION TO 學(xué)號(hào) INTO A SET SKIP TO AACCEPT 請(qǐng)輸入查詢(xún)的學(xué)號(hào): TO XHLOCATE ALL FOR 學(xué)號(hào)=XH ?*查詢(xún)結(jié)果* IF FOUND() row()+1,1 say 學(xué)號(hào) row(),11 SAY 姓名 row(),21 SAY 課程名 row(),41 SAY 成績(jī) row(),50 SAY 學(xué)院 DO WHILE .NOT.EOF() row()+1,1 say 學(xué)號(hào) row(),11 SAY 姓名 row(),19 SAY A.課程名 row(),35 SAY A.成績(jī) row(),50 SAY 學(xué)院 CONT ENDDOELSE ?表中沒(méi)有查找到此人的信息！ENDIFCLOSE ALLRETURN三、表單設(shè)計(jì)1.打開(kāi)表單設(shè)計(jì)器2.設(shè)置表單的數(shù)據(jù)環(huán)境(顯示數(shù)據(jù)環(huán)境),把與本表單有關(guān)的數(shù)據(jù)表添加到該數(shù)據(jù)環(huán)境中。3.在表單中添加相應(yīng)的控件，并設(shè)置其相關(guān)屬性GRID1的相關(guān)屬性：RECORDSOURCETYPE：4-SQL說(shuō)明RECORDSOURCE：無(wú)VISIBLE：.F.OPTIONGROUP1的VALUE屬性設(shè)置為04.為OPTIONGROUP1控件的INTERACTIVECHANGE事件編寫(xiě)如下代碼：THISFORM.GRID1.VISIBLE=.T.A=THISFORM.OPTIONGROUP1.VALUEIF A=1 THISFORM.GRID1.RECORDSOURCE=SELECT * FROM 學(xué)生 WHERE 性別=男 INTO CURSOR TEMPELSE THISFORM.GRID1.RECORDSOURCE=SELECT * FROM 學(xué)生 WHERE 性別=女 INTO CURSOR TEMPENDIFTHISFORM.REFRESH5.結(jié)束命令按鈕的CLICK事件的代碼為：THISFORM.RELEASE第二套二、程序設(shè)計(jì)，該程序的代碼如下：CLEARCLOSE ALLSELECT 1USE YYUREPLACE ALL 平均分 WITH (筆試+聽(tīng)力)/2INDEX ON 學(xué)號(hào) TAG XHSELECT 2USE KSHSET RELA TO 學(xué)號(hào) INTO AGO TOPDO WHILE NOT EOF() DO CASE CASE A.平均分=90 REPL 評(píng)語(yǔ) WITH 優(yōu) CASE A.平均分=80 REPL 評(píng)語(yǔ) WITH 良 CASE A.平均分=70 REPL 評(píng)語(yǔ) WITH 中 ENDCASE SKIP ENDDO CLOSE ALL三、表單設(shè)計(jì)1.打開(kāi)表單設(shè)計(jì)器2.設(shè)置表單的數(shù)據(jù)環(huán)境(顯示數(shù)據(jù)環(huán)境),把與本表單有關(guān)的數(shù)據(jù)表添加到該數(shù)據(jù)環(huán)境中。3.在表單中添加相應(yīng)的控件，并設(shè)置其相關(guān)屬性（1）添加頁(yè)框控件PAGEFRAME1PAGECOUNT的值為：2PAGE1的CAPTION屬性值為：成績(jī)PAGE2的CAPTION屬性值為：綜合（2）在PAGE1頁(yè)面上添加一個(gè)表格控件GRID1GRID1的相關(guān)屬性：RECORDSOURCETYPE：4-SQL說(shuō)明RECORDSOURCE：無(wú)(3)在PAGE2頁(yè)面上添加三個(gè)標(biāo)簽、三個(gè)文本框、一個(gè)命令按鈕組TEXT1的CONTROLSOURCE屬性值為：KSH.學(xué)號(hào)TEXT2的CONTROLSOURCE屬性值為：KSH.平均分TEXT3的CONTROLSOURCE屬性值為：KSH.評(píng)語(yǔ)（4）在表單中添加一個(gè)命令按鈕，其CAPTION屬性為：退出4.為PAGE2頁(yè)面中的命令按鈕組的CLICK事件編寫(xiě)如下代碼：DO CASE CASE THIS.VALUE=1 SKIP -1 IF BOF() GO TOP ENDIF CASE THIS.VALUE=2 SKIP IF EOF() GO BOTTOM ENDIF CASE THIS.VALUE=3 THISFORM.RELEASEENDCASETHISFORM.REFRESH5.為表單的INIT事件編寫(xiě)如下代碼：THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=; SELECT YYU.學(xué)號(hào),姓名,筆試,聽(tīng)力 FROM YYU,KSH; WHERE YYU.學(xué)號(hào)=KSH.學(xué)號(hào) INTO CURSOR TEMPTHISFORM.REFRESH5.命令按鈕組的CLICK事件的代碼如下DO CASE CASE THIS.VALUE=1 SKIP -1 IF BOF() GO TOP ENDIF CASE THIS.VALUE=2 SKIP IF EOF() GO BOTTOM ENDIF CASE THIS.VALUE=3 THISFORM.RELEASEENDCASETHISFORM.REFRESH6.為退出命令按鈕的CLICK事件編寫(xiě)如下代碼：THISFORM.RELEASE第三套二、程序設(shè)計(jì)，該程序的代碼如下：CLEARCLOSE ALLSELECT 1USE 商品INDEX ON 商品號(hào) TAG SPHSELECT 2USE 訂單SET RELATION TO 商品號(hào) INTO AREPL ALL 總金額 WITH A.單價(jià)*數(shù)量DO WHILE .T. ACCEPT 請(qǐng)輸入訂單號(hào) TO DDH LOCATE FOR 訂單號(hào)=DDH 1,1 SAY =查詢(xún)結(jié)果= ROW()+1,1 SAY 商品名稱(chēng) ROW(),21 SAY 單價(jià) ROW(),29 SAY 數(shù)量 ROW(),34 SAY 總金額 ROW()+1,1 SAY A.商品名 ROW(),21 SAY A.單價(jià) ROW(),29 SAY 數(shù)量 ROW(),32 SAY 總金額 ACCEP 繼續(xù)查詢(xún)嗎(y/n) TO A IF UPPER(A)=Y LOOP ELSE EXIT ENDIFENDDOCLOSE ALL三、菜單設(shè)計(jì)1.打開(kāi)下拉式菜單設(shè)計(jì)器2.分別設(shè)計(jì)該菜單的各級(jí)菜單項(xiàng)3.“查詢(xún)最高金額”菜單項(xiàng)包含的過(guò)程如下：SELECT TOP 1 訂單號(hào)，商品名，總金額；FROM 商品，訂單；WHERE 商品.商品號(hào)=訂單.商品號(hào);ORDER BY 總金額 DESC4.“查詢(xún)最低金額”菜單項(xiàng)包含的過(guò)程如下：SELECT TOP 1 訂單號(hào)，商品名，總金額；FROM 商品，訂單；WHERE 商品.商品號(hào)=訂單.商品號(hào);ORDER BY 總金額 ASC5.”退出”菜單的命令如下:SET SYSMENU TO DEFAULT6.選擇VF系統(tǒng)菜單中的”菜單生成“，將該菜單文件生成為菜單程序。第四套三、表單設(shè)計(jì)1、打開(kāi)表單設(shè)計(jì)器2、把密碼表添加到表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器3.在表單上添加兩個(gè)標(biāo)簽、兩個(gè)文本框、兩個(gè)命令按鈕，并分別設(shè)置各控件的相關(guān)屬性。TEXT2的PASSWORDCHAR屬性值為：*4.為表單的INIT事件編寫(xiě)如下代碼：PUBLIC NN=04.確定命令按鈕的CLICK事件的代碼如下：A=ALLTRIM(THISFORM.TEXT1.VALUE)B=ALLTRIM(THISFORM.TEXT2.VALUE)LOCATE FOR ALLTRIM(賬號(hào))=A AND ALLTRIM(密碼)=BIF FOUND() MESSAGEBOX(歡迎進(jìn)入本系統(tǒng),64+0+0,歡迎)ELSE N=N+1 MESSAGEBOX(密碼錯(cuò)誤,是否重新輸入,16+0+0,錯(cuò)誤) IF N=3 THISFORM.COMMAND1.ENABLED=.F. ENDIFENDIF5.取消命令按鈕的CLICK事件代碼如下：THISFORM.RELEASE第五套二、程序設(shè)計(jì)CLEARCLOSE ALLUSE CJ5DO WHILE .T. ACCEPT 請(qǐng)輸入查詢(xún)的學(xué)號(hào)： TO XH AVER 成績(jī) TO X FOR 學(xué)號(hào)=XH ?學(xué)號(hào):,XH,平均成績(jī):,X ACCE 繼續(xù)查詢(xún)輸出嗎(Y/N)? TO A IF UPPER(A)=Y LOOP ELSE EXIT ENDIF ENDDO CLOSE ALL三、表單設(shè)計(jì)1.打開(kāi)表單設(shè)計(jì)器2.設(shè)置表單的數(shù)據(jù)環(huán)境(顯示數(shù)據(jù)環(huán)境),把與本表單有關(guān)的數(shù)據(jù)表添加到該數(shù)據(jù)環(huán)境中。3.在表單中添加兩個(gè)標(biāo)簽LABEL1和LABEL2LABEL1的CAPTION屬性為：請(qǐng)選擇：LABEL2的CAPTION屬性為：請(qǐng)輸入4.在請(qǐng)選擇標(biāo)簽后添加一個(gè)選項(xiàng)按鈕組OPTIONGROUP15.在請(qǐng)輸入標(biāo)簽后添加一個(gè)文本框TEXT16.把數(shù)據(jù)環(huán)境設(shè)計(jì)器的CJ5表中的學(xué)號(hào)、課程號(hào)、成績(jī)?nèi)齻€(gè)字段直接拖到表單的適當(dāng)位置處7.在表單中添加三個(gè)命令按鈕并設(shè)置其CAPTION屬性8.“查詢(xún)”命令按鈕的CLICK事件的代碼如下：PUBLIC AA=THISFORM.OPTIONGROUP1.VALUEIF A=1 LOCATE FOR ALLTRIM(學(xué)號(hào))=ALLTRIM(THISFORM.TEXT1.VALUE)ELSE LOCATE FOR ALLTRIM(課程號(hào))=ALLTRIM(THISFORM.TEXT1.VALUE)ENDIFTHISFORM.REFRESH9.“繼續(xù)”命令按鈕的CLICK事件的代碼如下：CONTTHISFORM.REFRESH10.“結(jié)束”命令按鈕的CLICK事件的代碼如下：THISFORM.RELEASE第六套二、程序設(shè)計(jì)CLEARCLOSE ALLUSE CJREPL ALL 平均分 WITH (英語(yǔ)+計(jì)算機(jī))/2GO TOPDO WHILE NOT EOF() DO CASE CASE 平均分=85 REPL 獎(jiǎng)學(xué)金 WITH 1 CASE 平均分=80 RE