Delphi程序設計復習資料

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

2、、在設計階段，利用 Image 對象的屬性，可以加載一幅圖片。9、Delphi 中與 窗 體文件 對應的文 件是單 元文 件， 其 最常 用 的文件 擴展名是10、與數(shù)學表達式 sin(a 2b) ab對應的 Object Pascal 表達式是3 y211、調(diào)用主窗體的方法，可以結(jié)束程序關(guān)閉窗體。12、如果讓界面上的一個按鈕變?yōu)椴豢捎?，需要將它的屬性設為 False。13、如果要在窗體上設計一個主菜單，首先要建立對象。14、與數(shù)學表達式2cos2 ( a b) a對應的 Object Pascal表達式是 a2 xy15、利用對象的 LineTo 等繪圖方法，可以繪制基本圖形。16、Radi

3、oGroup 對象中的單選按鈕個數(shù)及名稱是通過 屬性來進行設置的。17、時鐘組件 (Timer) 能有規(guī)律的以一定時間間隔觸發(fā)事件，并執(zhí)行該事件過程中的程序代碼。為了使計時器控件 Timer1 每隔 0.5 秒就觸發(fā)一次并執(zhí)行事件代碼，應將 Timer1 控件的 Interval 屬性設置為 。18、Delphi 程序與數(shù)據(jù)庫之間進行數(shù)據(jù)交換一般要由多個數(shù)據(jù)庫組件協(xié)作完成。如果 用戶要查詢數(shù)據(jù)庫中的一條信息， 該指令通過用戶界面組件發(fā)出， 經(jīng)數(shù)據(jù)源組件到達數(shù)據(jù)集 組件。數(shù)據(jù)集組件利用 組件與數(shù)據(jù)庫建立連接，并讀取數(shù)據(jù)庫中的數(shù)據(jù)，而 后又經(jīng)過 組件將數(shù)據(jù)送到用戶界面組件中顯示。19、與數(shù)學表達式

4、2sin2 (a by)2axa 對應的 Object Pascal 表達式是20 、能夠?qū)崿F(xiàn)格式化輸入的編輯框組件是 。21 、調(diào)用主窗體的 方法，可以結(jié)束程序關(guān)閉窗體。22 、如果讓界面上的一個按鈕在運行的時候變?yōu)椴豢梢姡?需要將它的 屬性設為 False。23 、利用 DBGrid 的 屬性，可以設置 DBGrid 每一列的標題和對齊方式等。24 、通過 Animate 對象的 屬性設置，可以指定系統(tǒng)標準的 AVI 動畫演示。25 、在 Delphi 集成開發(fā)環(huán)境中，如果想要直接設置或者修改對象的屬性，可以通過對象 查看器( Object Inspector )中的窗口直接進行設置。單項

5、選擇題1、下面哪句話對 Delphi 的描述是正確的 A只能用于數(shù)據(jù)庫客戶端開發(fā)的工具 C Delphi 的編程語言是 Java)。B Delphi 的編程語言全部是面向過程的 D面向?qū)ο蟮目梢暬拈_發(fā)環(huán)境A、命令按鈕B、文本標簽控件C、 Edit 控件3、表達式 60 19 div 2 的值是()A 67B79C 69D802、在 Delphi 中，建立一個文本編輯區(qū)域，可采用下列()。D、 Timer 控件4、一個 Delphi 應用程序必有一個()文件和至少一個單元文件。A) 執(zhí)行程序 B) 項目 C) 數(shù)據(jù)D)圖形5、最適合于在工具欄上放置的工具按鈕是()A ButtonB Radio

6、ButtonCSpeedButtonD BitBtm6、Delphi 應用程序設計基于()語言。A) Basic B) C+ C) Pascal D) Object Pascal7、下列表達式中()不是布爾表達式。A) A=3B) A div BC) A and BD) AB8、“ x 是小于 100 的非負數(shù)”的 Object Pascal 表達式是()。A0 x = 0, x=0) AND (x = 0 ) OR (x=5) OR (x”、“ ; eq := = ; lt := y) thenedit3.Text:= edit1.Text + gt + edit2.Textelse if

7、(x=y) then edit3.Text:= edit1.Text + eq + edit2.Textelse edit3.Text:= edit1.Text + + edit2.Text;end;4、 本程序根據(jù)用戶選擇的運算符對輸入的二個操作數(shù)進行運算， 并顯示運算結(jié)果。 設計界 面和運行界面如圖所示。其中，運算符是一個含有 4 個單選按紐的 RadioGroup1 對象。面是單擊“運算”按鈕的事件處理程序，請根據(jù)功能要求完成程序填空。procedure TForm1.Button1Click(Sender: TObject);/ 運算 varx1,x2,y :Integer;begin

8、x1 := StrToInt( Edit1.);x2 := StrToInt( Edit2.);Case .ItemIndex of0:y := x1+ x2 ;1:y := x1- x2;2:y := x1* x2;3:y := x1Div x2;End;Edit3. := IntToStr( ); end;5、本程序?qū)崿F(xiàn)一個簡單的借書界面。程序的設計界面和運行界面如下圖所示：該程序涉及到數(shù)據(jù)庫中的兩張表：books（圖書信息）和 borrow（借書記錄） 。表的結(jié)構(gòu)為：books（ bno ，書號， bname 書名， num 現(xiàn)有冊數(shù)）borrow （ rno 讀者號， bno 書號，

9、rdate 還書日期） 其中， rno 和 bno 都是字符型（ 3 位）。在用戶界面，操作員選中一本書、輸入借書證號后，按“借書”鍵完成借書功能，即在 borrow 表中插入一條借書記錄，并將 books 表中該書現(xiàn)有冊數(shù)減 1。該界面要實現(xiàn)以下合法性檢查：當該讀者已經(jīng)借了此書，不能再借。當所借的書現(xiàn)有冊數(shù)為 0，不能再借。在 Form1 上建立的數(shù)據(jù)庫組件對象及連接關(guān)系如下：Database1Table1（與 books 表相連） DataSource1 DBGrid1 （顯示圖書信息）Database1Table2 （與 borrow 表相連，用于插入借書記錄）Database1Quer

10、y1其中為 Table1 建立了 3 個永久字段： Table1bno（書號）、Table1bname（書名）、Table1num 現(xiàn)有冊數(shù)） 。Query1 的 SQL 語句如下：select bnofrom borrowwhere rno = :rno and bno = :bno面是 Unit1 的代碼實現(xiàn)部分，請完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“借書”鍵beginquery1.Close ; query1.ParamByName(rno).Value := ; q

11、uery1.ParamByName(bno).Value := ;query1.Open ;if query1bno null thenbegin showmessage(該讀者正在借閱此書 ); exit ;end ;if thenbegin showmessage(該書已全部借出 ); exit ;end;table2. ( edit1.Text , table1bno.Value , date+15 ); / 插入借書記錄table1. ;table1num.Value := table1num.Value - 1 ; / 現(xiàn)有冊數(shù)減 1 table1.Post ;end;end.6、本

12、程序的功能是實現(xiàn)對 dep 表（系） student 表（學生）的主從查詢。用戶可以依次查詢系的記錄， 也可以通過指定系號， 查找并定位到指定的記錄。 每當顯示一個系的記錄后，系統(tǒng)自動顯示該系的學生記錄。設計界面和運行界面如下：在 Form1 上建立的主要對象及連接如下：Database1Table1（與 dep表相連） DataSource1DBEdit1 DBEdit3 Database1Query1 DataSource2 DBGrid1 （顯示學生信息）Edit1 、 Button1 （查找）、 Button2 （下一記錄） 、 Button3 （上一記錄）等。 Query1 的 SQ

13、L 語句是：select *from studentwhere dno = :dno面是 Unit1 單元的代碼實現(xiàn)部分，請完成程序填空。implementation$R *.dfmprocedure TForm1.Button2Click(Sender: TObject); / 下一記錄 begintable1. ;end;procedure TForm1.Button3Click(Sender: TObject); / 上一記錄 begintable1. ;end;procedure TForm1.Button1Click(Sender: TObject); / 查找 begintable

14、1. (dno,edit1.Text,) ;end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet); beginquery1.Close ; query1.ParamByName(dno).Value := query1. ;end;end.7、本程序由主窗體 form1 和子窗體 form2 組成，設計界面如下圖所示：主窗體 Form1 上建立的對象有 Panel1、 MediaPlayer1 、OpenDialog1 、 Button1 （打開文 件）、 Button2 （播放）、 Button3 （暫停）、Button4 （退出

15、）。子窗體 Form2 上建立的對象有 Label1、 BitBtm1 （ Yes）、 BitBtm2 （ No）。 單擊“打開文件”按鈕，會彈出打開文件對話框。用戶指定一個要播放的文件后，單擊 “播放”按鈕可播放多媒體文件，單擊“暫?！卑粹o可暫停播放。單擊“退出”按鈕，會彈出確認對話框（Form2 ）。如果用戶按“ Yes”鍵，程序結(jié)束；如果按“ No”鍵，返回主窗體。下面是 Unit1 的代碼部分，請在下劃線處完成程序填空。implementation$R *.dfmuses;procedure TForm1.Button1Click(Sender: TObject); /打開文件 beg

16、inif thenbeginMediaPlayer1.FileName := ; MediaPlayer1.Open ;MediaPlayer1.Display := Panel1; / 將 Panel1 做為播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panel1.Width,Panel1.Height); end ;end;procedure TForm1.Button2Click(Sender: TObject); / 播放 beginMediaPlayer1. ;end;procedure TForm1.Button3Click(Sender: T

17、Object); / 暫停 beginMediaPlayer1.Pause ;end;procedure TForm1.Button4Click(Sender: TObject); /退出 beginif = mrYes thenclose ;end;end.本程序?qū)崿F(xiàn)一個簡單的選課界面。設計界面和運行界面如下圖所示：該程序涉及到數(shù)據(jù)庫中的兩張表：course（課程表）和 sc（選課表），表結(jié)構(gòu)如下：sc（ sno 學號， cno 課程號， grade 成績） course（ cno 課號， cname課名， quota 名額） 其中： sno 和 cno 都是字符型。在用戶界面，操作員選中一

18、門書、輸入學號后，按“選課”鍵，完成選課功能，即在 sc 表中插入一條選課記錄，并將 course 表中該課程的名額減 1。該界面要實現(xiàn)以下合法性檢查：當該學生已經(jīng)選過此課，不能再選。當所選課程名額已為 0，不能再選。在 Form1 上建立的數(shù)據(jù)庫組件對象及連接關(guān)系如下：Database1Table1 （與 course 表相連） DataSource1 DBGrid1 （顯示課程信息）Database1Table2（與 sc 表相連，用于插入選課記錄） Database1Query1 其中為 Table1 建立了 3 個永久字段： Table1cno（課程號）、Table1cname（課程名

19、） 、Table1quota(名額)。Query1 的 SQL 語句如下： select cnofrom scwhere sno = :sno and cno = :cno面是 Unit1 的代碼實現(xiàn)部分，請完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“選課”鍵 beginquery1.Close ; query1.ParamByName(sno).Value := query1.ParamByName(cno).Value := query1.Open ;if query1cno

20、null then beginshowmessage(已選過此課 );exit ;end ;if then beginshowmessage(沒有名額 );exit ;end;table2. ( edit1.Text , table1cno.Value , null ); table1.Edit ;table1quota.Value := table1quota.Value - 1 ; / 名額減 1table1. ;end;end.9、本程序由主窗體 form1 和子窗體 form2 組成，設計界面如下圖所示：主窗體上建立的對象有 Panel1、 Animate1 、Button1（加載 A

21、VI 文件）、Button2 （退出）、 Button3 （播放）、Button4 （停止）和 OpenDialog1 。子窗體上建立的對象有 Label1 、 BitBtm1 （ Yes）、 BitBtm2 （ No）。單擊“加載 AVI 文件”按鈕，會彈出打開文件對話框。用戶指定一個 .avi 的文件后，動 畫文件加載到 Animate1 顯示區(qū)中。單擊“播放”按鈕可播放動畫，單擊“停止”按鈕可停 止播放。單擊“退出”按鈕，會彈出確認對話框（Form2 ）。如果用戶按“ Yes”鍵，程序結(jié)束；如果按“ No”鍵，返回主窗體。下面是 Unit1 的代碼部分，請在下劃線處完成程序填空。impl

22、ementation$R *.dfmuses;procedure TForm1.Button1Click(Sender: TObject); / 加載 AVI 文件 beginif thenanimate1.FileName := ; end;procedure TForm1.Button2Click(Sender: TObject); / 退出 beginif = mrYes thenclose ;end;procedure TForm1.Button3Click(Sender: TObject); / 播放 beginanimate1.Play(1,animate1.FrameCount,

23、0) ;end;procedure TForm1.Button4Click(Sender: TObject);/停止beginanimate1. ;end;end.五、編程題1某俱樂部實行會員注冊收費， 每位會員按整月每月收費 500 元整。但是對注冊時期較長 的會員有價格優(yōu)惠。規(guī)則如下：注冊 6 個月以下（含 6 個月）每月收費金額不變， 6 至 12 個月實行 9折收費， 12個月以上（不含 12 個月） 8折收費。編程在“注冊月數(shù)”框中輸入 會員欲注冊的月數(shù)， 單擊“計算” 按鈕后在 “應收金額” 框中顯示應收會費總錢數(shù)。 單擊“結(jié) 束”按鈕結(jié)束程序。本程序設計界面及運行界面如下：請編寫

24、單擊“計算” (Button1 )按鈕的事件處理程序。 procedure TForm1.Button1Click(Sender: TObject);begin end;procedure TForm1.Button2Click(Sender: TObject); beginClose;end;2某廠對使用的原材料鋼筋進行用前檢測。要求輸入鋼筋的直徑進行檢查。標準品為 10.0 毫米直徑。實際產(chǎn)品的直徑與標準品之間的誤差為 0.5 毫米以下（含 0.5 毫米）的都認為 是合格的，提示“檢測為合格品” 。否則提示“檢測為廢品” 。本程序設計界面及運行界面如下：請編寫單擊“檢測” （Button1

25、 ）按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject);end;procedure TForm1.Button2Click(Sender: TObject); beginClose;end;輸入一個數(shù)字，程序判斷如下情況：如果能被 3 整除但同時不能被 5 整除，顯示“該數(shù) 只能被 3整除”；如果只能被 5整除但是不能被 3整除，顯示“該數(shù)只能被 5整除”, 若被 3 整除同時被 5 整除，顯示“該數(shù)可以同時被 3、5 整除”。 本程序設計界面及運行界面如下：請編寫單擊“判斷” (Button1 )按鈕的事件處理程序。 proced

26、ure TForm1.Button1Click(Sender: TObject);end;4本程序設計界面及運行界面如下圖所示。該程序的功能是：用戶在界面上的兩個編輯框（Edit1、Edit2 ）內(nèi)分別輸入兩個正整數(shù)M 和N （ M N ），單擊“計算”按鈕（ Button1 ），程序求出 M N 之間所有能被 3整除 的數(shù)，并在 Memo 1 對象中依次顯示。請編寫單擊“計算”按鈕的事件處理程序。procedure TForm1.Button1Click(Sender: TObject);begin試題參考答案一、填空題1、分支2、方法 事件3、 sqr(sin(x+y) / sin(sqr

27、(x) + sqr(y)5、 一6、事件7、.dpr ( 或 dpr)8、 Picture9、PAS10、 sin(a+b) /(3+ sqr(y)-a*b或 sin(a+b)/(3+y*y)-a*b11、Close 12、Enabled13、 MainMenu 14、sqr(cos(a+b) /(sqr(a)+x*y)+a或cos(a+b) * cos(a+b) /(a*a+x*y)+a15、Canvas 16、Items 17 、 OnTimer ，500 18、數(shù)據(jù)庫 連 接組 件 數(shù)據(jù)源 組 件 19、 sqr(sin(a+b*y) /(sqr(a)*x)+a 或 sin(a+b*y)

28、 *sin(a+b*y) /(a*a*x)+a21、 Close22、Visible23、 Columns24、CommonA VI25、屬性 或 Properties、單項選擇題1、D2、C3、C4、B5、C6、D7、B8、C9、A10、C11、D12、C13、C14、 B15、D16、A17、C18、D19、A20、C21、B22、 D23、D24、C25、C26、D27、C28、D29、A30、B31、C三、判斷題1、 6、11、2、3、4、5、7、8、9、10、12、13、14、15、四、程序填空題1、) Column Items Text ItemIndex Items2、 True

29、 DataSource1 Table1 DataSource1 sname3、 strtoint Checked lt Text else RadioGroup1y text5、 edit1.Text table1bno.Value table1num.Value = 0 InsertRecord Edit6、 Next Prior Locate table1dno Open7、 unit2 opendialog1.Execute opendialog1.FileName Play form2.ShowModal8、 True True Table1 DataSource1 DataSource19、