Delphi程序設(shè)計(jì)復(fù)習(xí)資料

1、Delphi程序設(shè)計(jì)復(fù)習(xí)題一、填空題1、結(jié)構(gòu)化程序設(shè)計(jì)的基本原則是取消goto語(yǔ)句，程序中僅采用順序、 和循環(huán)三種控制結(jié)構(gòu)。2、一個(gè)對(duì)象是由屬性、方法和事件所組成。屬性表示對(duì)象中的數(shù)據(jù)， 是對(duì)象能夠執(zhí)行的動(dòng)作， 是能夠引起對(duì)象反應(yīng)的條件。3、與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Object Pascal表達(dá)式是 。4、ListBox對(duì)象列表框中的內(nèi)容是通過(guò) 屬性來(lái)進(jìn)行設(shè)置的。5、結(jié)構(gòu)化程序設(shè)計(jì)要求程序中僅采用順序、分支和循環(huán)三種控制結(jié)構(gòu)，其中每種結(jié)構(gòu)只能有 個(gè)入口和一個(gè)出口。6、對(duì)象的三個(gè)要素是屬性、方法和 。7、Delphi應(yīng)用程序中項(xiàng)目文件的擴(kuò)展名是 。8、在設(shè)計(jì)階段，利用Image對(duì)象的 屬性，可以加載

2、一幅圖片。9、Delphi中與窗體文件對(duì)應(yīng)的文件是單元文件，其最常用的文件擴(kuò)展名是 *. 。10、與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Object Pascal表達(dá)式是 。11、調(diào)用主窗體的 方法，可以結(jié)束程序關(guān)閉窗體。12、如果讓界面上的一個(gè)按鈕變?yōu)椴豢捎茫枰獙⑺?屬性設(shè)為False。 13、如果要在窗體上設(shè)計(jì)一個(gè)主菜單，首先要建立 對(duì)象。14、與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Object Pascal表達(dá)式是 。15、利用 對(duì)象的LineTo等繪圖方法，可以繪制基本圖形。16、RadioGroup對(duì)象中的單選按鈕個(gè)數(shù)及名稱是通過(guò) 屬性來(lái)進(jìn)行設(shè)置的。17、時(shí)鐘組件(Timer)能有規(guī)律的以一定時(shí)間間隔觸發(fā) 事件，并

3、執(zhí)行該事件過(guò)程中的程序代碼。為了使計(jì)時(shí)器控件Timer1每隔0.5秒就觸發(fā)一次并執(zhí)行事件代碼，應(yīng)將Timer1控件的Interval屬性設(shè)置為 。18、Delphi 程序與數(shù)據(jù)庫(kù)之間進(jìn)行數(shù)據(jù)交換一般要由多個(gè)數(shù)據(jù)庫(kù)組件協(xié)作完成。如果用戶要查詢數(shù)據(jù)庫(kù)中的一條信息，該指令通過(guò)用戶界面組件發(fā)出，經(jīng)數(shù)據(jù)源組件到達(dá)數(shù)據(jù)集組件。數(shù)據(jù)集組件利用 組件與數(shù)據(jù)庫(kù)建立連接，并讀取數(shù)據(jù)庫(kù)中的數(shù)據(jù)，而后又經(jīng)過(guò) 組件將數(shù)據(jù)送到用戶界面組件中顯示。 19、與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Object Pascal表達(dá)式是 。20、能夠?qū)崿F(xiàn)格式化輸入的編輯框組件是 。21、調(diào)用主窗體的 方法，可以結(jié)束程序關(guān)閉窗體。22、如果讓界面上的一

4、個(gè)按鈕在運(yùn)行的時(shí)候變?yōu)椴豢梢?jiàn)，需要將它的 屬性設(shè)為False。23、利用DBGrid的 屬性，可以設(shè)置DBGrid每一列的標(biāo)題和對(duì)齊方式等。24、通過(guò)Animate對(duì)象的 屬性設(shè)置，可以指定系統(tǒng)標(biāo)準(zhǔn)的AVI動(dòng)畫(huà)演示。25、在Delphi集成開(kāi)發(fā)環(huán)境中，如果想要直接設(shè)置或者修改對(duì)象的屬性，可以通過(guò)對(duì)象查看器（Object Inspector）中的 窗口直接進(jìn)行設(shè)置。二、單項(xiàng)選擇題1、下面哪句話對(duì)Delphi的描述是正確的 （ ）。A只能用于數(shù)據(jù)庫(kù)客戶端開(kāi)發(fā)的工具 BDelphi的編程語(yǔ)言全部是面向過(guò)程的 CDelphi的編程語(yǔ)言是Java D面向?qū)ο蟮目梢暬拈_(kāi)發(fā)環(huán)境2、在Delphi中，建立一

5、個(gè)文本編輯區(qū)域，可采用下列（ ）。A、命令按鈕B、文本標(biāo)簽控件C、Edit控件D、Timer控件3、表達(dá)式 60 19 div 2 的值是（ ）A 67 B 79C 69D 804、一個(gè)Delphi應(yīng)用程序必有一個(gè)（ ）文件和至少一個(gè)單元文件。A) 執(zhí)行程序 B) 項(xiàng)目 C) 數(shù)據(jù) D)圖形5、最適合于在工具欄上放置的工具按鈕是（ ）AButton BRadioButtonCSpeedButton DBitBtm 6、Delphi應(yīng)用程序設(shè)計(jì)基于（ ）語(yǔ)言。 A) Basic B) C+ C) Pascal D) Object Pascal7、下列表達(dá)式中（ ）不是布爾表達(dá)式。A) A=3 B

6、) A div B C) A and B D) A>B8、“x 是小于100的非負(fù)數(shù)”的Object Pascal表達(dá)式是（ ）。A0 x < 100 B x >= 0, x<100 C(x >=0) AND (x < 100)D (x >= 0 ) OR (x<100)9、利用Image對(duì)象的哪個(gè)屬性設(shè)置，可以使加載的圖像自動(dòng)放大或縮小，以適應(yīng)Image的顯示區(qū)域（ ）AStretch BAutoSizeCAlign DCenter10、工具欄上的一個(gè)SpeedButton按鈕如果要設(shè)置為狀態(tài)按鈕，則正確設(shè)置的方法是（ ）A將SpeedButt

7、on按鈕的GroupIndex屬性設(shè)置為0，且AllowAllUp屬性設(shè)置為True。B將SpeedButton按鈕的GroupIndex屬性設(shè)置為0，且AllowAllUp屬性設(shè)置為False。C將SpeedButton按鈕的GroupIndex屬性設(shè)置為非0值，且AllowAllUp屬性設(shè)置為True。D將SpeedButton按鈕的GroupIndex屬性設(shè)置為非0值，且AllowAllUp屬性設(shè)置為False。11、要改變一個(gè)對(duì)象的高度，應(yīng)使用屬性（ ）。A、FontB、ForcColorC、NameD、Height12、表達(dá)式 30 19 div 2 的值是（ ）A 37 B 49C

8、 39D 4013、下列合法的變量名是（ ）。A、na + eB、e- 3rC、r_3D、5we14、利用對(duì)象監(jiān)視器可以設(shè)置窗體或組件的（ ）。A) 方法 B) 屬性 C) 外觀 D )執(zhí)行代碼15、Delphi程序設(shè)計(jì)的基本特點(diǎn)是（ ）。A 可視化程序設(shè)計(jì) B 代碼程序設(shè)計(jì) C 事件驅(qū)動(dòng)編程 D A和C16、修改窗體的標(biāo)題時(shí)，應(yīng)當(dāng)在屬性頁(yè)中設(shè)置的屬性是（ ）。ACaption B NameC TextD Label17、下列說(shuō)法錯(cuò)誤的是 ( )A) 窗體文件的擴(kuò)展名為.dfmB) 一個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件C) Delphi中的一個(gè)工程只包含一個(gè)窗體D) .dpr和.pas 是備份文件，便于用

9、戶恢復(fù)到較早的一個(gè)項(xiàng)目版本。18、要改變一個(gè)對(duì)象的高度，應(yīng)使用屬性（ ）。A、FontB、ForcColorC、NameD、Height19、工具欄上的一組按鈕如果要構(gòu)成互斥關(guān)系（如“左對(duì)齊”、“居中”、“右對(duì)齊”），它們的GroupIndex屬性正確的設(shè)置是（ ）AGroupIndex屬性值都為0 BGroupIndex屬性值非0，且互不相同CGroupIndex屬性值非0，且相同 DGroupIndex屬性值互不相同20、以下敘述中錯(cuò)誤的是（ ）A 一個(gè)項(xiàng)目包含不止一種類型的文件。B 窗體的Show方法的作用是顯示該窗體。C 窗體的Hide方法和Release方法的作用完全相同。D 若項(xiàng)目

10、文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為主窗體。21、編輯框（Edit）中的文本發(fā)生改變時(shí)引發(fā)的事件是（ ）AAutoSize BOnChange CSetFocus DSetText22、現(xiàn)建立一個(gè)簡(jiǎn)單報(bào)表，要求其中要包含報(bào)表的匯總欄，則在Bands屬性的子屬性中，需要選擇的是（ ）AColumnHeader BDetailCTitle DSummary 23、如果要檢查edit編輯框中輸入的字符，可以在哪個(gè)事件處理程序中編寫(xiě)代碼檢查（ ）AOnClick BOnEnterCOnMouseUp DOnKeyPress 24、數(shù)據(jù)庫(kù)組件中，提供了對(duì)數(shù)據(jù)庫(kù)讀寫(xiě)操作功能的核心組件是（ ） A數(shù)

11、據(jù)源組件 B用戶界面組件 C數(shù)據(jù)集組件 D數(shù)據(jù)感知控件25、下列常用的數(shù)據(jù)組件中，只需指定DataSource而不需指定DataField的控件是哪個(gè)？（ ）A、DBText B、DBEdit C、DBNavigator D、Query26、下列說(shuō)明錯(cuò)誤的是（ ）A、 OpenDialog是打開(kāi)文件對(duì)話框。B、 Edit組件的Clear方法是清除編輯框中的內(nèi)容C、 CheckBox控件是通過(guò)Checked屬性確定選擇狀態(tài)D、 按鈕組件的屬性Name設(shè)置為“確定”，則按鈕上文本顯示為“確定”27、下列說(shuō)法正確的是（ ）A組件必須是可視的，這樣用戶才能使用。 BDelphi中組件就是控件，二者是完

12、全相同的。 C控件都是可視的。 D按鈕（Button）是組件，而窗體(Form)則不是組件。28、以下能夠觸發(fā)編輯框（Edit）組件OnChange事件的操作是（ ）A 鼠標(biāo)單擊編輯框B 鼠標(biāo)雙擊編輯框C 在編輯框中選擇文本 D 在編輯框中輸入文本29、要改變控件的寬度，應(yīng)改變控件的（ ）屬性。A、widthB、heightC、topD、left30、只能輸出、而不能輸入的數(shù)據(jù)感知控件是（ ）ADBEdit BDBTextCDBRadioGroup DDBCheckBox31、任何控件都有的屬性是（ ）A) BackColorB) CaptionC) NameD) BorderStyle 三、

13、判斷題，請(qǐng)給下列論述中正確的打上“”，錯(cuò)誤的打上“´”1、() 函數(shù)int(2.718) = 2.0 計(jì)算是正確的。2、（ ）Delphi是面向?qū)ο蟮目梢暬拈_(kāi)發(fā)環(huán)境，編程語(yǔ)言采用Object C。3、() 要想在數(shù)據(jù)集中增加計(jì)算字段，必須先將數(shù)據(jù)集的字段全部置為動(dòng)態(tài)字段。4、() 結(jié)構(gòu)化程序設(shè)計(jì)要求采用自頂向下、逐步求精的設(shè)計(jì)方法和單入口、單出口的控制結(jié)構(gòu)。5、() 在Delphi環(huán)境中，組件頁(yè)上的組件是“對(duì)象”的概念，在窗體上建立的按鈕是“類”的概念。6、() 一個(gè)Table對(duì)象不能同時(shí)指定與之相連的兩個(gè)關(guān)系表。7、（ ）在Delphi環(huán)境中，組件板上的組件就是類的概念，例如按鈕

14、組件就是按鈕類。而用戶在窗體上創(chuàng)建的一個(gè)按鈕就是對(duì)象的概念（按鈕對(duì)象）。8、() 要想在數(shù)據(jù)集中增加計(jì)算字段，必須先將數(shù)據(jù)集的字段全部置為動(dòng)態(tài)字段。9、()時(shí)鐘Timer組件的時(shí)間間隔是由Interval屬性控制，例如其值為1000時(shí)表示時(shí)間間隔是1秒。10、( ) Delphi中的菜單項(xiàng)有3種類型：普通按鈕型、復(fù)選框型和單選按鈕型。11、() 4ABC 可作為Delphi的變量名。12、( )在一個(gè)項(xiàng)目中，第一個(gè)建立的窗體固定就是主窗體，并且再也不設(shè)置其他窗體為主窗體。13、() 在Data Controls組件頁(yè)上，只有DBNavigator組件可以不用指定DataField屬性值。14、

15、( ) 建立永久字段的好處是：可以在設(shè)計(jì)階段對(duì)字段對(duì)象進(jìn)行設(shè)置，并可以增加新的字段（計(jì)算字段和查找字段）。15、() ( (x>=5) OR (x<=-5) ) AND ( x in 1.9 ) 當(dāng)x=10時(shí)，表達(dá)式的值為假（或false）四、程序填空題1、應(yīng)用程序的用戶界面如下圖所示：功能說(shuō)明：該界面是一個(gè)教師信息錄入界面。用戶在編輯框（Edit1）中輸入姓名，利用單選按鈕（RadioGroup1）指定性別，利用組合框（ComboBox1）選擇或直接輸入所在系，利用列表框（ListBox1）指定職稱。當(dāng)輸入完上述信息后，單擊“確定”按鈕，教師信息將顯示在右邊的Memo1編輯窗口中

16、。下面是開(kāi)發(fā)過(guò)程，請(qǐng)完成填空部分：通過(guò)RadioGroup1的Items屬性設(shè)置兩個(gè)單選按鈕（“男”和“女”），并將屬性 設(shè)置為2（按鈕擺兩列）。通過(guò)ComboBox1的 屬性設(shè)置下拉選單中的系名。通過(guò)ListBox1的Items屬性設(shè)置列表框中的職稱列表?！按_定”按鈕的單擊事件處理程序如下：procedure TForm1.Button1Click(Sender: TObject);begin memo1.Lines.Add(edit1. ); /加入編輯框的內(nèi)容 if radiogroup1. = 0 then /判斷選擇了哪個(gè)按鈕 memo1.Lines.Add('男')

17、 else memo1.Lines.Add('女') ; memo1.Lines.Add(combobox1.Text); /加入系的文本 memo1.Lines.Add( listbox1. listbox1.itemindex ); /加入職稱end;2、數(shù)據(jù)庫(kù)mydb中有關(guān)系表student，其結(jié)構(gòu)如下：student（sno學(xué)號(hào)，sname姓名，sex性別，birthday生日）現(xiàn)編寫(xiě)一個(gè)學(xué)生信息瀏覽程序，設(shè)計(jì)界面和運(yùn)行界面如下圖所示： 在下劃線處填寫(xiě)相應(yīng)數(shù)據(jù)庫(kù)組件的屬性值：Database1. DatabaseName : mydb Table1. DatabaseN

18、ame : mydb Table1. TableName : studentTable1. Active : Datasource1.DataSet : DBNavigator1. DataSource : DBEdit2. DataSource : DBEdit2. DataField : 3、下圖是本程序的設(shè)計(jì)界面（左）和運(yùn)行界面（中、右）： 在form1上建立的對(duì)象有：Edit1Edit3、Button1（確定）和CheckBox1等。該程序?qū)崿F(xiàn)兩個(gè)整數(shù)的大小比較。用戶輸入兩個(gè)整數(shù)，按“確定”鍵后，比較結(jié)果顯示在Edit3中。如果“漢字”復(fù)選框選中，比較結(jié)果采用“大于”、“小于”、“等于

19、”；否則比較結(jié)果采用“>”、“<”、“=”（如圖所示）。下面是單擊“確定”按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject);var x,y : integer ; gt,eq,lt : string ;begin x := (edit1.Text); /取得輸入值 y := strtoint(edit2. ); if checkbox1. then begin gt := ' 大于 ' ; eq := ' 等于 ' ; lt := ' 小于 ' ; end begin g

20、t := ' > ' ; eq := ' = ' ; lt := ' < ' ; end ; if (x>y) then edit3.Text:= edit1.Text + gt + edit2.Text else if (x=y) then edit3.Text:= edit1.Text + eq + edit2.Text else edit3.Text:= edit1.Text + + edit2.Text;end;4、本程序根據(jù)用戶選擇的運(yùn)算符對(duì)輸入的二個(gè)操作數(shù)進(jìn)行運(yùn)算，并顯示運(yùn)算結(jié)果。設(shè)計(jì)界面和運(yùn)行界面如圖所示。其中，運(yùn)

21、算符是一個(gè)含有4個(gè)單選按紐的RadioGroup1對(duì)象。 下面是單擊“運(yùn)算”按鈕的事件處理程序，請(qǐng)根據(jù)功能要求完成程序填空。-procedure TForm1.Button1Click(Sender: TObject);/運(yùn)算var x1,x2,y :Integer;begin x1 := StrToInt( Edit1. ); x2 := StrToInt( Edit2. ); Case .ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. := Int

22、ToStr( );end;5、本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的借書(shū)界面。程序的設(shè)計(jì)界面和運(yùn)行界面如下圖所示： 該程序涉及到數(shù)據(jù)庫(kù)中的兩張表：books（圖書(shū)信息）和borrow（借書(shū)記錄）。表的結(jié)構(gòu)為：books（bno，書(shū)號(hào)，bname書(shū)名，num現(xiàn)有冊(cè)數(shù)）borrow（rno 讀者號(hào)，bno書(shū)號(hào)，rdate還書(shū)日期）其中，rno和bno都是字符型（3位）。在用戶界面，操作員選中一本書(shū)、輸入借書(shū)證號(hào)后，按“借書(shū)”鍵完成借書(shū)功能，即在borrow表中插入一條借書(shū)記錄，并將books表中該書(shū)現(xiàn)有冊(cè)數(shù)減1。該界面要實(shí)現(xiàn)以下合法性檢查：l 當(dāng)該讀者已經(jīng)借了此書(shū)，不能再借。l 當(dāng)所借的書(shū)現(xiàn)有冊(cè)數(shù)為0，不能再借。在

23、Form1上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下：Database1Table1（與books表相連）DataSource1DBGrid1（顯示圖書(shū)信息）Database1Table2（與borrow表相連，用于插入借書(shū)記錄）Database1Query1其中為Table1建立了3個(gè)永久字段：Table1bno（書(shū)號(hào)）、Table1bname（書(shū)名）、Table1num（現(xiàn)有冊(cè)數(shù)）。Query1的SQL語(yǔ)句如下：select bnofrom borrowwhere rno = :rno and bno = :bno下面是Unit1的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空：-implementation$R

24、 *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“借書(shū)”鍵begin query1.Close ; query1.ParamByName('rno').Value := ; query1.ParamByName('bno').Value := ; query1.Open ; if query1'bno' <> null then begin showmessage('該讀者正在借閱此書(shū)'); exit ; end ; if then begin showme

25、ssage('該書(shū)已全部借出'); exit ; end; table2. ( edit1.Text , table1bno.Value , date+15 ); /插入借書(shū)記錄 table1. ; table1num.Value := table1num.Value - 1 ; / 現(xiàn)有冊(cè)數(shù)減1 table1.Post ;end;end.-6、本程序的功能是實(shí)現(xiàn)對(duì)dep表（系）student表（學(xué)生）的主從查詢。用戶可以依次查詢系的記錄，也可以通過(guò)指定系號(hào)，查找并定位到指定的記錄。每當(dāng)顯示一個(gè)系的記錄后，系統(tǒng)自動(dòng)顯示該系的學(xué)生記錄。設(shè)計(jì)界面和運(yùn)行界面如下： 在Form1上建立

26、的主要對(duì)象及連接如下：Database1Table1（與dep表相連）DataSource1DBEdit1DBEdit3Database1Query1DataSource2DBGrid1（顯示學(xué)生信息）Edit1、Button1（查找）、Button2（下一記錄）、Button3（上一記錄）等。Query1的SQL語(yǔ)句是：select *from studentwhere dno = :dno下面是Unit1單元的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空。-implementation$R *.dfmprocedure TForm1.Button2Click(Sender: TObject); /下一記錄

27、begin table1. ;end;procedure TForm1.Button3Click(Sender: TObject); /上一記錄begin table1. ;end;procedure TForm1.Button1Click(Sender: TObject); /查找begin table1. ('dno',edit1.Text,) ;end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet);begin query1.Close ; query1.ParamByName('dno').Va

28、lue := ; query1. ;end;end.-7、本程序由主窗體form1和子窗體form2組成，設(shè)計(jì)界面如下圖所示： 主窗體Form1上建立的對(duì)象有Panel1、MediaPlayer1、OpenDialog1、Button1（打開(kāi)文件）、Button2（播放）、Button3（暫停）、Button4（退出）。子窗體Form2上建立的對(duì)象有Label1、BitBtm1（Yes）、BitBtm2（No）。單擊“打開(kāi)文件”按鈕，會(huì)彈出打開(kāi)文件對(duì)話框。用戶指定一個(gè)要播放的文件后，單擊“播放”按鈕可播放多媒體文件，單擊“暫?！卑粹o可暫停播放。單擊“退出”按鈕，會(huì)彈出確認(rèn)對(duì)話框（Form2）。

29、如果用戶按“Yes”鍵，程序結(jié)束；如果按“No”鍵，返回主窗體。下面是Unit1的代碼部分，請(qǐng)?jiān)谙聞澗€處完成程序填空。-implementation$R *.dfmuses ;procedure TForm1.Button1Click(Sender: TObject); /打開(kāi)文件begin if then begin MediaPlayer1.FileName := ; MediaPlayer1.Open ; MediaPlayer1.Display := Panel1; /將Panel1做為播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panel1.Wi

30、dth,Panel1.Height); end ;end;procedure TForm1.Button2Click(Sender: TObject); /播放begin MediaPlayer1. ; end;procedure TForm1.Button3Click(Sender: TObject); /暫停begin MediaPlayer1.Pause ;end;procedure TForm1.Button4Click(Sender: TObject); /退出begin if = mrYes then close ;end;end.-8、本程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的選課界面。設(shè)計(jì)界面和運(yùn)行

31、界面如下圖所示： 該程序涉及到數(shù)據(jù)庫(kù)中的兩張表：course（課程表）和sc（選課表），表結(jié)構(gòu)如下：sc（sno 學(xué)號(hào)，cno課程號(hào)，grade成績(jī)）course（cno課號(hào)，cname課名，quota名額）其中：sno和cno都是字符型。在用戶界面，操作員選中一門書(shū)、輸入學(xué)號(hào)后，按“選課”鍵，完成選課功能，即在sc表中插入一條選課記錄，并將course表中該課程的名額減1。該界面要實(shí)現(xiàn)以下合法性檢查：l 當(dāng)該學(xué)生已經(jīng)選過(guò)此課，不能再選。l 當(dāng)所選課程名額已為0，不能再選。在Form1上建立的數(shù)據(jù)庫(kù)組件對(duì)象及連接關(guān)系如下：Database1Table1（與course表相連）DataSourc

32、e1DBGrid1（顯示課程信息）Database1Table2（與sc表相連，用于插入選課記錄）Database1Query1其中為Table1建立了3個(gè)永久字段：Table1cno（課程號(hào)）、Table1cname（課程名）、Table1quota（名額）。Query1的SQL語(yǔ)句如下：select cnofrom scwhere sno = :sno and cno = :cno下面是Unit1的代碼實(shí)現(xiàn)部分，請(qǐng)完成程序填空：-implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“選課”鍵begin

33、 query1.Close ; query1.ParamByName('sno').Value := ; query1.ParamByName('cno').Value := ; query1.Open ; if query1'cno' <> null then begin showmessage('已選過(guò)此課'); exit ; end ; if then begin showmessage('沒(méi)有名額'); exit ; end; table2. ( edit1.Text , table1cno.V

34、alue , null ); table1.Edit ; table1quota.Value := table1quota.Value - 1 ; /名額減1 table1. ;end;end.-9、本程序由主窗體form1和子窗體form2組成，設(shè)計(jì)界面如下圖所示： 主窗體上建立的對(duì)象有Panel1、Animate1、Button1（加載AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。子窗體上建立的對(duì)象有Label1、BitBtm1（Yes）、BitBtm2（No）。單擊“加載AVI文件”按鈕，會(huì)彈出打開(kāi)文件對(duì)話框。用戶指定一個(gè).

35、avi的文件后，動(dòng)畫(huà)文件加載到Animate1顯示區(qū)中。單擊“播放”按鈕可播放動(dòng)畫(huà)，單擊“停止”按鈕可停止播放。單擊“退出”按鈕，會(huì)彈出確認(rèn)對(duì)話框（Form2）。如果用戶按“Yes”鍵，程序結(jié)束；如果按“No”鍵，返回主窗體。下面是Unit1的代碼部分，請(qǐng)?jiān)谙聞澗€處完成程序填空。-implementation$R *.dfmuses ;procedure TForm1.Button1Click(Sender: TObject); /加載AVI文件begin if then animate1.FileName := ; end;procedure TForm1.Button2Click(Send

36、er: TObject); /退出beginif = mrYes then close ;end;procedure TForm1.Button3Click(Sender: TObject); /播放begin animate1.Play(1,animate1.FrameCount,0) ;end;procedure TForm1.Button4Click(Sender: TObject); /停止begin animate1. ;end;end.五、編程題1某俱樂(lè)部實(shí)行會(huì)員注冊(cè)收費(fèi)，每位會(huì)員按整月每月收費(fèi)500元整。但是對(duì)注冊(cè)時(shí)期較長(zhǎng)的會(huì)員有價(jià)格優(yōu)惠。規(guī)則如下：注冊(cè)6個(gè)月以下（含6個(gè)月）每月

37、收費(fèi)金額不變，6至12個(gè)月實(shí)行9折收費(fèi)，12個(gè)月以上（不含12個(gè)月）8折收費(fèi)。編程在“注冊(cè)月數(shù)”框中輸入會(huì)員欲注冊(cè)的月數(shù)，單擊“計(jì)算”按鈕后在“應(yīng)收金額”框中顯示應(yīng)收會(huì)費(fèi)總錢數(shù)。單擊“結(jié)束”按鈕結(jié)束程序。本程序設(shè)計(jì)界面及運(yùn)行界面如下： 請(qǐng)編寫(xiě)單擊“計(jì)算”（Button1）按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject); begin end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end; 2某廠對(duì)使用的原材料鋼筋進(jìn)行用前檢測(cè)。要求輸入鋼筋的直徑進(jìn)行檢查

38、。標(biāo)準(zhǔn)品為10.0毫米直徑。實(shí)際產(chǎn)品的直徑與標(biāo)準(zhǔn)品之間的誤差為±0.5毫米以下（含0.5毫米）的都認(rèn)為是合格的，提示“檢測(cè)為合格品”。否則提示“檢測(cè)為廢品”。本程序設(shè)計(jì)界面及運(yùn)行界面如下： 請(qǐng)編寫(xiě)單擊“檢測(cè)”（Button1）按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject); begin end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;輸入一個(gè)數(shù)字，程序判斷如下情況：如果能被3整除但同時(shí)不能被5整除，顯示“該數(shù)只能被3整除”；如果只能被

39、5整除但是不能被3整除，顯示“該數(shù)只能被5整除”, 若被3整除同時(shí)被5整除，顯示“該數(shù)可以同時(shí)被3、5整除”。本程序設(shè)計(jì)界面及運(yùn)行界面如下： 請(qǐng)編寫(xiě)單擊“判斷”（Button1）按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject); begin end;4本程序設(shè)計(jì)界面及運(yùn)行界面如下圖所示。 該程序的功能是：用戶在界面上的兩個(gè)編輯框（Edit1、Edit2）內(nèi)分別輸入兩個(gè)正整數(shù)M和N （ M < N），單擊“計(jì)算”按鈕（Button1），程序求出M N 之間所有能被3整除的數(shù)，并在Memo 1對(duì)象中依次顯示。請(qǐng)編寫(xiě)單擊“計(jì)算”按

40、鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject);begin試題參考答案一、填空題1、分支 2、方法 事件 3、sqr(sin(x+y) / sin(sqr(x) + sqr(y) 5、 一 6、事件 7、.dpr (或dpr) 8、 Picture 9、PAS 10、sin(a+b) /(3+ sqr(y)-a*b 或 sin(a+b)/(3+y*y)-a*b 11、Close 12、Enabled 13、 MainMenu 14、sqr(cos(a+b) /(sqr(a)+x*y)+a 或 cos(a+b) * cos(a+b)

41、 /(a*a+x*y)+a 15、Canvas 16、Items 17、 OnTimer ，500 18、數(shù)據(jù)庫(kù)連接組件 數(shù)據(jù)源組件 19、sqr(sin(a+b*y) /(sqr(a)*x)+a 或 sin(a+b*y) * sin(a+b*y) /(a*a*x)+a 21、 Close 22、Visible 23、 Columns 24、 CommonAVI 25、屬性 或 Properties二、單項(xiàng)選擇題1、 D 2、C 3、C 4、B 5、 C 6、D 7、B 8、C 9、A 10、C 11、D 12、C 13、C 14、 B 15、D 16、A 17、C 18、D 19、A 20、C 21、 B 22、 D 23、D 24、C 25、 C 26、D 27、C 28、D 29、A 30、B 31、C 三、判斷題1、 2、´ 3、´ 4、 5、 6、 7、 8、´ 9、 10、 11、´ 12、 ´ 13、 14、 15、 四、程序填空題1、） Column Items Text It