數(shù)據(jù)庫實(shí)驗(yàn)考核題庫及解答

1、實(shí)驗(yàn)考核題庫及解答實(shí)驗(yàn)考核題庫及解答 注意：注意： 1)程序填空題：程序填空題：把第把第13題（口令驗(yàn)證）、第題（口令驗(yàn)證）、第23題（轉(zhuǎn)題（轉(zhuǎn)換中文星期的自定義函數(shù)）去掉了。換中文星期的自定義函數(shù)）去掉了。2)程序改錯題：程序改錯題：把第把第10題（題（K！+M!,帶參調(diào)用）去帶參調(diào)用）去掉，掉，把第把第18題（輸出最大數(shù)和最小數(shù)）去掉。題（輸出最大數(shù)和最小數(shù)）去掉。3)表單設(shè)計(jì)題：表單設(shè)計(jì)題：把第把第10題（查詢并顯示指定學(xué)生的平題（查詢并顯示指定學(xué)生的平均成績和成績檔次）換為了教材的例均成績和成績檔次）換為了教材的例6.10（統(tǒng)計(jì)車票（統(tǒng)計(jì)車票總金額）；把第總金額）；把第20題（命令按鈕

2、組實(shí)現(xiàn)前翻、后翻等）題（命令按鈕組實(shí)現(xiàn)前翻、后翻等）去掉了。去掉了。 上面的題號與上面的題號與數(shù)據(jù)庫應(yīng)用基礎(chǔ)學(xué)習(xí)指導(dǎo)數(shù)據(jù)庫應(yīng)用基礎(chǔ)學(xué)習(xí)指導(dǎo)第第4部分部分題目編號一致。題目編號一致。 N型數(shù)據(jù)取數(shù)的技巧：型數(shù)據(jù)取數(shù)的技巧：除十取余：得到最后一除十取余：得到最后一位數(shù)；位數(shù)；除十取整：得到取數(shù)后除十取整：得到取數(shù)后的剩余的剩余用循環(huán)逐個取數(shù)，當(dāng)剩用循環(huán)逐個取數(shù)，當(dāng)剩余為零時循環(huán)結(jié)束余為零時循環(huán)結(jié)束. USE 課程課程INDEX ON 學(xué)期學(xué)期 TO XQ?學(xué)期學(xué)期 考試課總學(xué)分考試課總學(xué)分 考查課總學(xué)分考查課總學(xué)分?*DO WHILE .NOT.EOF() XQ=學(xué)期學(xué)期 STORE 0 TO K

3、S,KC *1* DO WHILE .T. IF 考試標(biāo)志考試標(biāo)志=1 *2* KC=KC+學(xué)分學(xué)分 ELSE KC=KC+學(xué)分學(xué)分 ENDIF *3* CONTINUE ENDDO ?XQ+STR(KS,19,2)+STR(KC,19,2)ENDDOUSESET TALK OFF*1*2*3*1*2*3*1*2*3* SET TALK ON 四舍五入函數(shù)：四舍五入函數(shù)：ROUND(X,N) 定義數(shù)組的命令：定義數(shù)組的命令：DIMENSION或者或者DECLARE 3*編制一個表單完成學(xué)生成績查詢顯示功能，數(shù)據(jù)來源于表文編制一個表單完成學(xué)生成績查詢顯示功能，數(shù)據(jù)來源于表文件件“學(xué)生學(xué)生.dbf

4、”“成績成績.dbf”。界面如圖界面如圖4-15、4-16所示。具體要求如下：所示。具體要求如下：當(dāng)用戶在組合框當(dāng)用戶在組合框輸入或選擇姓名后，按回車或輸入或選擇姓名后，按回車或“確定確定”按鈕時，表單將自動顯按鈕時，表單將自動顯示對應(yīng)學(xué)生的平均成績，如果該學(xué)生不存在，則顯示提示信息；示對應(yīng)學(xué)生的平均成績，如果該學(xué)生不存在，則顯示提示信息；按按“退出退出”按鈕時，自動關(guān)閉表單。按鈕時，自動關(guān)閉表單。命令按鈕命令按鈕Command1（計(jì)算總額）的（計(jì)算總額）的Click事件代碼事件代碼。S=0 IF Thisform.Check1.Value=1 S=S+580ENDIFIF Thisform.

5、Check2.Value=1 S=S+50ENDIF IF Thisform.Check3.Value=1 S=S+280ENDIFThisform.Text1.Value=SThisform.Refresh （2）命令按鈕）命令按鈕Command1的的Click事件：事件：（1）表單）表單Form1的的Init事件事件ThisForm.Text1.SelectonEntry=.T. ThisForm.Text2.ReadOnly=.T.ThisForm.Text1.value=3ThisForm.Command1.Default=.T.（2）命令按鈕）命令按鈕Command1的的Click事

6、件事件N=Thisform.Text1.ValueFOR I=2 TO N-1 IF N%I=0 EXIT ENDIFENDFORIF IN-1 Thisform.Text2.Value=是素數(shù)是素數(shù)!ELSE Thisform.Text2.Value=不是素數(shù)不是素數(shù)!ENDIFThisform.Text1.SetfocusThisform.Refresh（1）表單）表單Form1的的Init事件事件Thisform.F=0&F是用戶自定義的屬性是用戶自定義的屬性Thisform.Caption=動畫動畫（2）計(jì)時器）計(jì)時器Timer1的的Timer事件事件IF Thisform.F

7、=0 Thisform.Image1.Left=Thisform.Image1.Left+1ELSE Thisform.Image1.Left=Thisform.Image1.Left-1ENDIFIF Thisform.Image1.Left=Thisform.Width-Thisform.Image1.Width Thisform.F=1ENDIFIF Thisform.Image1.Left=0 Thisform.F=0ENDIF計(jì)時器計(jì)時器Timer1的的Timer事件：事件：DO CASECASE Thisform.Pageframe1.Activepage=1Thisform.Pageframe1.Activepage=2CASE Thisform.Pageframe1.Activepage=2Thisform.Pageframe1.Activepage=3CASE Thisform.Pageframe1.Activepage=3Thisform.Pageframe1.Activepage=1ENDCASEThisform.Refresh或者或者IF Thisform.Pageframe1.Activepage3 T