33次上機考試參考答案1.doc

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