Delphi 程序設(shè)計(jì)試題.pdf

試卷代號(hào) 2 23 5座位號(hào) 中央廣播電視大學(xué)20112012學(xué)年度第二學(xué)期 開(kāi)放專(zhuān)科 期末考試 Delphi程序設(shè)計(jì)試題 2012年7月 題號(hào)四五總分 一 一一 分?jǐn)?shù) 得分 評(píng)卷人 一 單項(xiàng)選擇題 30分 每題3分 1 Delphi程序設(shè)計(jì)的基本特點(diǎn)是 A 可視化程序設(shè)計(jì)B 代碼程序設(shè)計(jì) c 事件驅(qū)動(dòng)編程D A和C 2 IV 下不是Delphi中對(duì)象編輯器的作用是 A 選擇對(duì)象B 設(shè)置屬性 c 添加事件D 編譯程序 定制Delphi選項(xiàng) 3 x是小于100的非負(fù)數(shù) 的ObjectPascal表達(dá)式是 A 0 x 0 x 0 AND x 0 OR x 100 4 利用Image對(duì)象的哪個(gè)屬性設(shè)置 可以使加載的圖像自動(dòng)放大 或縮小 以適應(yīng)Image 的顯示區(qū)域 A StretchB AutoSize B dpr D dfm C AlignD Center 5 工具欄上的一個(gè)SpeedButton按鈕如果要設(shè)置為狀態(tài)按鈕 則正確設(shè)置的方法是 A 將SpeedButton按鈕的GroupJndex屬性設(shè)置為0 且A1lowA1IUp屬性設(shè)置為T(mén)rue B 將SpeedButton按鈕的GroupJndex屬性設(shè)置為0 且A1lowA1lUpJ副主設(shè)置為False c 將SpeedButton按鈕的GroupJndex屬性設(shè)置為非O值 且A1lowA1lUp屬性設(shè)置為1iue D 將SpeedButton按鈕的GroupJndex屬性設(shè)置為非O值 且A1lowA1lUp屬性設(shè)置為False 6 Pascal單元文件的擴(kuò)展名是 A dps C pas 1395 7 下列說(shuō)法正確的是 A 組件必須是可視的 這樣用戶(hù)才能使用 B Delphi中組件就是控件 二者是完全相同的 C控件都是可視的 D 按鈕 Button 是組件 而窗體 Form 則不是組件 8 以下能夠觸發(fā)編輯框 Edit 組件OnChange事件的操作是 A 鼠標(biāo)單擊編輯框B 鼠標(biāo)雙擊編輯框 c 在編輯框中選擇文本D 在編輯框中輸入文本 9 以下敘述中錯(cuò)誤的是 A 一個(gè)項(xiàng)目包含不止一種類(lèi)型的文件 B 窗體的Show方法的作用是顯示該窗體 c 窗體的Hide方法和Release方法的作用完全相同 D 若項(xiàng)目文件中有多個(gè)窗體 可以根據(jù)需要指定一個(gè)窗體為主窗體 10 只能輸出 而不能輸入的數(shù)據(jù)感知控件是 A DBEdit C DBRadioGroup 得分評(píng)卷人 B DBText D DBCheckBox 二 判斷題 請(qǐng)給下列論述中正確的打上U 錯(cuò)誤的打土 X 10 分 每題2分 1 1 時(shí)鐘Timer組件的時(shí)間 間隔是由Interval屬性控制 例如其值為1000時(shí)表示時(shí)間 間隔是1秒 12 在Delphi環(huán)境中 組件頁(yè)上的組件是 對(duì)象 的概念 在窗體上建立的按鈕是 類(lèi) 的 概念 13 打開(kāi)的數(shù)據(jù)集Table通過(guò)BDE訪(fǎng)問(wèn)一個(gè)數(shù)據(jù)表 則 調(diào)用Table的First方法可以 使記錄指針指向table的第 個(gè)記錄o 14 在DataControls組件頁(yè)上 只有DBNavigator組件可以不用指定DataField屬性值 15 圖形組件沒(méi)有輸入焦點(diǎn) 不能接受用戶(hù)的輸入 它只具有向用戶(hù)顯示的功能 得分l評(píng)卷人 三 填空題 20分 每空2分 16 結(jié)構(gòu)化程序設(shè)計(jì)要求程序中僅采用三種控制結(jié)構(gòu) 其中每種結(jié)構(gòu)只能有 個(gè)人口和一個(gè)出口 17 現(xiàn)實(shí)世界中對(duì)象具有自己的狀態(tài)和行為 對(duì)應(yīng)著 面向?qū)ο蠹夹g(shù)中的對(duì)象可以具有 自己的和方法 1396 18 Delphi應(yīng)用程序中項(xiàng)目文件的擴(kuò)展名是 19 在設(shè)計(jì)階段 利用Image對(duì)象的屬性 可以加載一幅圖片 20 Delphi有三種控制循環(huán)的語(yǔ)句 repeat語(yǔ)句 語(yǔ)句 for語(yǔ)句 21 下面的語(yǔ)句用來(lái)刪除Tmemo組件的第4行 請(qǐng)補(bǔ)充完整z memo1 lines deleteC 22 Delphi程序與數(shù)據(jù)庫(kù)之間進(jìn)行數(shù)據(jù)交換一般要由多個(gè)數(shù)據(jù)庫(kù)組件協(xié)作完成 如果用 戶(hù)要查詢(xún)數(shù)據(jù)庫(kù)中的一條信息 該指令通過(guò)用戶(hù)界面組件發(fā)出 經(jīng)數(shù)據(jù)源組件到達(dá)數(shù)據(jù)集組 件 數(shù)據(jù)集組件利用組件與數(shù)據(jù)庫(kù)建立連接 并讀取數(shù)據(jù)庫(kù) 中的數(shù)據(jù) 而后又經(jīng)過(guò)組件將數(shù)據(jù)送到用戶(hù)界面組件中顯示 S2Ca b 與數(shù)學(xué)表達(dá)式c v a對(duì)應(yīng)的ObjectPascal表達(dá)式是 a 飛Z 24 利用對(duì)象的LineTo等繪圖方法 可以繪制基本圖形 得分 評(píng)卷人 四 程序填空題 30分 每題10分 一 仁 13亨丁 1 下面是單擊 運(yùn)算 按鈕的事件處理程序 請(qǐng)根據(jù)功能要求完成程序填空 procedureTForm1 Button1ClickCSender TObject 運(yùn)算 var xl x2 y Integer begin xl StrToIntCEditl x2 StrToIntCEdit2 Case ItemIndexof 1397 0 Y xl十x2 I Y xl x2 2 Y xl鑄x2 3 y xlDivx2 End Edit3 IntToStr end 一一 一一一一一一一一一 一一 一一 一一 一一一一 一 一一一一一一 一一一一 一一一 26 10分 每空2分 本程序由主窗體form1和子窗體form2組成 設(shè)計(jì)界面如下圖所示 拉玩麗由罐罐蠢 t二二工工工工二二盤(pán)問(wèn)邱主i 是否退出 二 豆豆1 JS勘I 二 E如 J T 3 如iI l 毒 A 1 Form 甲需鐮露露 主窗體Form1上建立的對(duì)象有Panell MediaPlayerl OpenDialogl Button1 打開(kāi)文 件 Button2 播放 Button3 暫停 Button4 退出 子窗體Form2上建立的對(duì)象有Labell BitBtm1 Yes BitBtm2 No 單擊 打開(kāi)文件 按鈕 會(huì)彈出打開(kāi)文件對(duì)話(huà)框 用戶(hù)指定一個(gè)要播放的文件后 單擊 播 放 按鈕可播放多媒體文件 單擊 暫停 按鈕可暫停播放 單擊 退出 按鈕 會(huì)彈出確認(rèn)對(duì)話(huà)框 Form2 0如果用戶(hù)按 YES 鍵 程序結(jié)束 如果按 No 鍵 返回主窗體 下面是Unitl的代碼部分 請(qǐng)?jiān)谙聞澗€(xiàn)處完成程序填空 一一一一一一一 一一一一一一 一一 一一一一一一 一一一一一一 一一 一 一 一一甲 一一 一 一一 一 一 implementation R禱 dfm uses procedureTForml Button1Click Sender TObject 打開(kāi)文件 begin if 1398 then begin MediaPlayerl FileName MediaPlayerl Open MediaPlayer1 Display Panel1 將Panen做為播放屏幕 MediaPlayerl DisplayRect Rect O O Panell Width Panell Height end end procedureTForml Button2ClickCSender TObject 播放 begin MediaPlayerL z end procedureTForml Button3ClickCSender TObject 暫停 begin MediaPlayerl Pause end procedureTForml Button4C1ickCSender TObject 退出 begin if mrYesthen close end end 27 10分 每空2分 本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的選課界面 設(shè)計(jì)界面和運(yùn)行界面如下圖所示 u撞蘸黯弩且居單 F石司 一一寧市 R霜 翻翻 課程信息i i果號(hào)課各學(xué)分時(shí)間各額阜 cOl物理411i99 J 化學(xué) lc0221498 c03外語(yǔ)1 l課號(hào)課各學(xué)分時(shí)間各額二 IcOl物化理 411199 21499 號(hào)c 023外掌 語(yǔ) 49 123 4 j牛 主干部 1主J 噎jj恩 學(xué)號(hào) 廬衍了 i選i果 該程序涉及到數(shù)據(jù)庫(kù)中的兩張表 course表 課程信息 和sc表 選課記錄 表結(jié)構(gòu)如下t course cno課號(hào) cname課名 credit學(xué)分 ctirn巳時(shí)間 quota名額 scCsno學(xué)號(hào) cno課號(hào) grade成績(jī) 在用戶(hù)界面 操作員選中一門(mén)課 輸入學(xué)號(hào)后 按 選課 鍵完成選課功能 即在sc表中插 入一條選課記錄 并將cour se表中該課程名額減1 1399 該界面要實(shí)現(xiàn)以下合法性檢查z 當(dāng)該學(xué)生巳經(jīng)選過(guò)此課 不能再選 當(dāng)課程名額為0 不能再選 在Forml上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下z Database1 Table1 與course表相連 DataSouree1 DBGrid1 顯示課程信息 Database1 Query1 Query2 其中為T(mén)able1建立了永久 字段 Table1eno 課號(hào)人Table1ename 課程名人Table1quota 名額 等 Query1的SQL語(yǔ)句如下 selecteno fromse wheresno snoandeno eno Query2的SQL語(yǔ)句如下 InsertInto se values sno eno null 下面是Unit1的代碼實(shí)現(xiàn)部分 請(qǐng)完成程序填空 一一一一一一一一一一一一一一一一 一一一一一一一一一一一一一一一一一一 implementation R禱 dfm procedureTForml Button1Cliek Sender TObjeet 選課 begin queryl Close queryl ParamByName sno Value queryl ParamByName eno Value table1eno Value queryl Open if nullthen begin showmessage 已選過(guò)該課程 exit end if 0then begin showmessage 沒(méi)有名額 eXIt end query2 Close 1400 query2 ParamByNameC sno Value edit1 Text query2 ParamByNameC eno Value table1eno Value query2 table1 table1quota Value table1quota Value 1 課程名額減1 tablel Post end end 得分 評(píng)卷人 五 編程題 l0分 28 下圖是本程序的設(shè)計(jì)界面 左 和運(yùn)行界面 右 一一一一一一一一一一一 在form1上建立的對(duì)象有 Labell LabelS Edit1 Edit4 Button1C除鍵 和CheckBox1等 該程序?qū)崿F(xiàn)除法運(yùn)算 用戶(hù)輸入兩個(gè)操作數(shù) 按除鍵后 整除結(jié)果顯示在結(jié)果框中 輸入的操作數(shù)必須是l SO之間的整數(shù) 如果輸入有誤 程序要給出錯(cuò)誤提示信息 輸入 有錯(cuò) 請(qǐng)重新輸入 如果 顯示余數(shù) 復(fù)選框選中 則除法余數(shù)顯示在余數(shù)框中 否則不顯示余數(shù) 請(qǐng)編寫(xiě)單擊 除鍵 按鈕的事件處理程序 procedureTForm1 Button1ClickCSender TObject begin end 1401 試卷代號(hào) 2 23 5 中央廣播電視大學(xué)20 112012學(xué)年度第二學(xué)期 開(kāi)放專(zhuān)科 期末考試 Delphi程序設(shè)計(jì)試題答案及評(píng)分標(biāo)準(zhǔn) 供參考 2012年7月 一 單項(xiàng)選擇題 30分 每題3分 1 D 6 C 2 D 7 C 3 C 8 D 4 A 9 C 5 C 10 B 二 判斷題 請(qǐng)給正確的打上 1口1 J12 X13 J14 X1臼5 J 三 填空題 歸20分 每空2分 16 順序 分支和循環(huán) 17 屬性 18 dpr 或dpr 19 Picture 20 while 21 3 22 數(shù)據(jù)庫(kù)連接數(shù)據(jù)源 23 sqr cos a b sqr a 鈴x a或cos a b 鈴cos a b a禱a提到 a 24 Canvas 四 程序填空題 共30分 每題10分 25 10分 每空2分 text text RadioGroup1 text y 26 10分 每空2分 unit2 opendialogl Execute 1402 opendialogl FileName Play form2 ShowModal 27 10分 每空2分 editl Text query1 cno table1quota Value ExecSQL Edit 五 編程題 10分 28 procedureTForml Button1Click S