Delphi程序設計復習資料

1、Delphi程序設計復習題一、填空題1、結構化程序設計的基本原那么是取消got。語句，程序中僅采用順序、 和循環(huán)三種控制結構。2、一個對象是由屬性、方法和事件所組成。屬性表示對象中的數(shù)據(jù), 是對象能夠執(zhí)行的動作，是能夠引起對象反響的條件。3、與數(shù)學表達式 對應的Object Pascal表達式是O4、ListBox對象列表框中的內容是通過屬性來進行設置的。5、結構化程序設計要求程序中僅采用順序、分支和循環(huán)三種控制結構，其中每種結構只能有個入口和一個出口。 TOC o 1-5 h z 6、對象的三個要素是屬性、方法和。7、Delphi應用程序中工程文件的擴展名是。8、在設計階段，利用Image對

2、象的屬性，可以加載一幅圖片。9、Delphi中與窗體文件對應的文件是單元文件，其最常用的文件擴 展名是*.o10、與數(shù)學表達式 對應的Object Pascal表達式是11、調用主窗體的方法，可以結束程序關閉窗體。達式的值為假(或fals以四、程序填空題1、應用程序的用戶界面如以下圖所示：功能說明：該界面是一個教師信息錄入界面。用戶在編輯框(Editl)中輸入姓名，利用單項選擇按鈕(RadioGroupl) 指定性別，利用組合框(ComboBoxl )選擇或直接輸入所在系，利用 列表框(ListBoxl)指定職稱。當輸入完上述信息后，單擊“確定” 按鈕，教師信息將顯示在右邊的Memol編輯窗口

3、中。下面是開發(fā)過程，請完成填空局部：通過RadioGroupl的Items屬性設置兩個單項選擇按鈕(“男”和“女”)，并將屬性 設置為2(按鈕擺兩列)。通過ComboBoxl的 屬性設置下拉選單中的系名。通過ListBoxl的Items屬性設置列表框中的職稱列表?！按_定”按鈕的單擊事件處理程序如下：procedure TForml. ButtonlClick(Sender: TObject);begin)；/加入編輯框的內容memol. Lines. Add (editl. (3)ioif radiogroup = 0 then /判斷選擇了哪個按鈕memol. Lines. Add 男 )

4、elsemeniol. Lines. Add (女);memol. Lines. Add (combobox 1. Text) ; /加入系 的文本memol. Lines. Add( listboxl listboxl. itemindextJ|A； 耿稱 end;2、數(shù)據(jù)庫mydb中有關系表studerU其結構如下:student（sno 學號，sname 姓名，sex性別，birthda蛀日） 現(xiàn)編寫一個學生信息瀏覽程序，設計界面和運行界面如以下圖所示:在下劃線處填寫相應數(shù)據(jù)庫組件的屬性值:Databasel. DatabaseName : mydb Tablet.DatabaseNam

5、e:mydb Tablel.studentTabieNameTablel. ActiveDatasourcel. DataSetDBNavigatorl. DataSource:DBEdit2. DataSource : DBEdit2. DataField3、以下圖是本程序的設計界面（左）和運行界面（中、右）：在 forml 上建立的對象有：EditlEdit3Buttonl（確定）和 CheckBoxl 等。該程序實現(xiàn)兩個整數(shù)的大小比擬。用戶輸入兩個整數(shù)，按“確定”鍵 后，比擬結果顯示在Edit3中。如果“漢字”復選框選中，比擬結果采用“大于、“小干、等尸；否那么比擬結果采用“”、“”、“

6、二”（如下圖）。下面是單擊“確定”按鈕的事件處理程序。procedure TForml. ButtonlClick（Sender: TObject）;varx,y : integer ;gt, eq, It : string ;beginX :二 （editl. Text） ; /取得輸入值y := strtoint （e（:2.）;if checkboxl then12begingt :二大于；eq :二等于；It :=小于;endbegingt :=；， ，eq :=；It :二;end ;if (xy) thenedit3. Text:= editl. Text + gt + edit2

7、. Text else if (x=y) thenedit3.Text:= editl.Text + eq + edit2.Text elseedit3. Text := editl. Tex+ + edit2. Text;end;4、13本程序根據(jù)用戶選擇的運算符對輸入的二個操作數(shù)進行運算，并顯示 運算結果。設計界面和運行界面如下圖。其中，運算符是一個含有4 個單項選擇按紐的RadioGroupl對象。下面是單擊“運算”按鈕的事件處理程序，請根據(jù)功能要求完成程序 填空。procedure TForml. ButtonlClick(Sender: TObje運算; varxl,x2,y :In

8、teger;beginxl := StrToInt( Ed 1.);x2 :二 StrToInt ( Ed2.);Case Itemindex of0: y := xl + x2 ;y := xl - x2;y := xl * x2; 3:y := xl Div x2;End;Edit3.End;Edit3.:=IntToStr(14end;5、本程序實現(xiàn)一個簡單的借書界面。程序的設計界面和運行界面如以下圖所示：該程序涉及到數(shù)據(jù)庫中的兩張表：books （圖書信息）和borrow （借書記錄）。表的結構為：books （bno,書號，bname書名，num現(xiàn)有冊數(shù)）borrow （rno讀者號

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

10、115其中為Tablel建立了 3個永久字段：Tablelbno（書號）、Tablelbname（書名）、Tablelnum （現(xiàn)有冊數(shù)）。Queryl的SQL語句如下:select bnofrom borrowwhere rno = :rno and bno = :bno下面是Unitl的代碼實現(xiàn)局部，請完成程序填空：implementation$R *. dfmprocedure TForml. ButtonlClick(Sender: TObjedf)；借書”鍵beginqueryl. Close ;queryl. ParamByName ( rno). Value :=queryl.

11、ParamByName ( bno). Value :=queryl. Open ;if queryl bno null thenbeginshowmessage (該讀者正在借閱此書);exit16end ;if thenbeginshowmessage(該書已全部借出,);exit;end;table2. (editl.Text , tableIbno.Value ,date+15);/插入借書記錄table 1 .；table 1 num.Value := table 1 num.Value - 1 ; / 現(xiàn)有冊數(shù)減 1table 1.Post;end;end.本程序的功能是實現(xiàn)對de

12、p表（系）一student表（學生）的主從查詢。用戶可以依次查詢系的記錄，也可以通過指定系號，查找并定位到指定 的記錄。每當顯示一個系的記錄后，系統(tǒng)自動顯示該系的學生記錄。設 計界面和運行界面如下：17 在Forml上建立的主要對象及連接如下：Databasel Tablel （與 dep 表相連） DataSourcel DBEditlDBEdit3Databasel Queryl Dat aSour c e2DBGr i d 1 （顯示學生信息）Editl Buttonl （查找）、Button2 （下一記錄）、Button3 （上一記錄） 等。Queryl的SQL語句是：select *

13、from studentwhere dno = :dno下面是Unitl單元的代碼實現(xiàn)局部，請完成程序填空。implementation$R *. dfm)procedure TForml. Button2Click (Sender: TObje次T記錄begintablel.；end;procedure TForml. Button3Click (Sender: TObjext沱錄 begin18tablel. end;procedure TForml. ButtonlClick(Sender: TObje查找 /begintablel.(dno, editl. Text,;)end;pro

14、cedure TForml. TablelAfterScroll(DataSet: TDataSet);beginqueryl. Close ;queryl. ParamByName ( dno). Value queryl.;end;end.本程序由主窗體forml和子窗體form2組成，設計界面如以下圖所示:主窗體Forml 上建立的對象有Panel 1、MediaPlayerl OpenDialogkButtonl （翻開文件）、Button2 （播放）、Button3 （暫停）、Button4 （退 出）。1912、如果讓界面上的一個按鈕變?yōu)椴豢捎茫枰獙⑺男栽O為Faiseo13、如

15、果要在窗體上設計一個主菜單,首先要建立對象。14、與數(shù)學表達式對應的Object Pasca表達式是O15、利用對象的LineTo等繪圖方法，可以繪制基本圖形。16、RadioGroup對象中的單項選擇按鈕個數(shù)及名稱是通過屬性來進行設置的。17、時鐘組件（Timer能有規(guī)律的以一定時間間隔觸發(fā)事件，并執(zhí)行該事件過程中的程序代碼。為了使計時器控件Timerl每隔0. 5 秒就觸發(fā)一次并執(zhí)行事件代碼，應將Timerl控件的Interva屬性設置 為 。18、Delphi程序與數(shù)據(jù)庫之間進行數(shù)據(jù)交換一般要由多個數(shù)據(jù)庫組 件協(xié)作完成。如果用戶要查詢數(shù)據(jù)庫中的一條信息，該指令通過用戶 界面組件發(fā)出，經數(shù)

16、據(jù)源組件到達數(shù)據(jù)集組件。數(shù)據(jù)集組件利用 組件與數(shù)據(jù)庫建立連接，并讀取數(shù)據(jù)庫中的數(shù)據(jù)，而后又經過 組件將數(shù)據(jù)送到用戶界面組件中顯示。19、與數(shù)學表達式對應的Object Pasca表達式是O20、能夠實現(xiàn)格式化輸入的編輯框組件是。21、調用主窗體的方法，可以結束程序關閉窗體。22、如果讓界面上的一個按鈕在運行的時候變?yōu)椴豢梢?，需要將它的子窗體Form2 上建立的對象有 Label 1BitBtml(Yes)BitBtm2(No )。單擊“翻開文件”按鈕，會彈出翻開文件對話框。用戶指定一個要播 放的文件后，單擊“播放”按鈕可播放多媒體文件，單擊“暫停”按 鈕可暫停播放。單擊“退出”按鈕，會彈出確認

17、對話框(Form2 )。如果用戶按“Yes” 鍵，程序結束；如果按“No ”鍵，返回主窗體。下面是Unitl的代碼局部，請在下劃線處完成程序填空。implementation$R *. dfm)uses ；procedure TForml. Button 1C1 ick (Sender: TObbeginif thenbeginMediaPlayerl. FileName :=；MediaPlayerl. Open ;MediaPlayerl. Display := Panel等?城企11做為播放屏幕MediaPlayerl. DisplayRect :=Rect (0, 0, Panel1.

18、 Width, Panel1. Height);end20end;procedure TForml. Button2Click(Sender: TObje搔放 /beginMediaPlayerl.;end;procedure TForml. Button3Click(Sender: TObje暫停 /beginMediaPlayerl. Pause ;end;procedure TForml. Button4Click(Sender: TObjed退;出 beginif = mrYes thenclose ;end;end.本程序實現(xiàn)一個簡單的選課界面。設計界面和運行界面如以下圖所示:該程序

19、涉及到數(shù)據(jù)庫中的兩張表：course（課程表）和sc （選課表）,21表結構如下：sc （sno學號，eno課程號，grade成績）course （eno 課號，cname 課名，quota名額）其中：sno和eno都是字符型。在用戶界面，操作員選中一門書、輸入學號后，按“選課”鍵，完成選課功能，即在sc表中插入一條選課記錄，并將course表中該課程 的名額減lo該界面要實現(xiàn)以下合法性檢查：當該學生已經選過此課，不能再選。當所選課程名額已為0,不能再選。在Form 1上建立的數(shù)據(jù)庫組件對象及連接關系如下：Databasel Tablet （與 course表相連）一DataSourcelDB

20、Gridl （顯示課程信息）Databasel Table2 （與sc表相連，用于插入選課記錄）Database1一Query1其中為Tablel建立了 3個永久字段：TablelcnG課程號）、Tablelcname （課程名）、Tablelquota（名額）。Query 1的SQL語句如下:select enofrom scwhere sno = :sno and eno = :eno22下面是Unitl的代碼實現(xiàn)局部，請完成程序填空:implementation$R *. dfmprocedure TForml. ButtonlClick(Sender: TObjedN);選課鍵begi

21、nquery1.Close ;queryl. ParamByName C sno). Value ;queryl. ParamByName ( eno). Value ;queryl. Open ;if queryleno null thenbeginshowmessage (巳選過止匕課);exit ;end ;if thenbeginshowmessage (沒有名額);exit ;end;table2. (editl. Text , tablelcno. Value , null);23tablel. Edit ;tablelquota. Value := tablelquota.減 1

22、tablel.;end;end.本程序由主窗體forml和子窗體form2組成，設計界面如以下圖所示：主窗體上建立的對象有Panell、Animated Buttonl（加載AVI文件）、 Button2 （退出）、Button3 （播放）、Button4 （停止）和 OpenDialoglo 子窗體上建立的對象有Labell、BitBtml （Yes）、BitBtm2 （No ）。單擊“加載AVI文件”按鈕，會彈出翻開文件對話框。用戶指定一個.avi 的文件后，動畫文件加載到Animatel顯示區(qū)中。單擊“播放”按鈕 可播放動畫，單擊“停止”按鈕可停止播放。單擊“退出”按鈕，會彈出確認對話框

23、（Form2）。如果用戶按“Yes” 鍵，程序結束；如果按“No ”鍵，返回主窗體。下面是Unitl的代碼局部，請在下劃線處完成程序填空。24implementation$R *. dfmuses ；procedure TForml. ButtonlClick(Sender: TObjed加載AVI 文件 beginif thenanimatel. FileName :=;end;procedure TForml. Button2Click (Sender: TObjed退;出beginif = mrYes thenclose ;end;procedure TForml. Button3Cli

24、ck (Sender: TObjed播;放beginanimatel. Play (1, animatel. FrameCount, 0);end;procedure TForml. Button4Click(Sender: TObjecg)停;止beginanimatel.;end;25end.五、編程題某俱樂部實行會員注冊收費，每位會員按整月每月收費500元整。但 是對注冊時期較長的會員有價格優(yōu)惠。規(guī)那么如下：注冊6個月以下（含 6個月）每月收費金額不變，6至12個月實行9折收費，12個月以 上（不含12個月）8折收費。編程在“注冊月數(shù)”框中輸入會員欲 注冊的月數(shù)，單擊“計算”按鈕后在“應

25、收金額”框中顯示應收會費 總錢數(shù)。單擊“結束”按鈕結束程序。本程序設計界面及運行界面如下：請編寫單擊“計算”(ButtonD按鈕的事件處理程序。procedure TForml. ButtonlClick(Sender: TObject);begin26end;procedure TForml. Button2Click(Sender: TObject);beginClose;end;某廠對使用的原材料鋼筋進行用前檢測。要求輸入鋼筋的直徑進行檢 查。標準品為10.0毫米直徑。實際產品的直徑與標準品之間的誤差 為0.5毫米以下(含0.5毫米)的都認為是合格的，提示“檢測為 合格品”。否那么提示“

26、檢測為廢品”。本程序設計界面及運行界面如下：請編寫單擊“檢測”(ButtonD按鈕的事件處理程序。procedure TForml. ButtonlClick(Sender: TObject);begin27end;procedure TForml. Button2Click(Sender: TObject);beginClose;end;輸入一個數(shù)字，程序判斷如下情況：如果能被3整除但同時不能被5 整除，顯示“該數(shù)只能被3整除”；如果只能被5整除但是不能被3 整除，顯示“該數(shù)只能被5整除”，假設被3整除同時被5整除，顯示 “該數(shù)可以同時被3、5整除”。本程序設計界面及運行界面如下：28請編寫

27、單擊“判斷” (ButtonD按鈕的事件處理程序。procedure TForml. ButtonlClick(Sender: TObject);begin end;4.本程序設計界面及運行界面如以下圖所示。該程序的功能是：用戶在界面上的兩個編輯框(Edith Edit2)內分 別輸入兩個正整數(shù)M和N ( M MainMenu 14、sqr(cos(a+b)/ (sqr (a)+x*y)+a 或 cos (a+b)/ (sqr (a)+x*y)+a 或 cos (a+b)* cos (a+b) /(a*a+x*y)+la5、Canvas16、 Items 17、 OnTimer16、 Item

28、s 17、 OnTimer，50018、數(shù)據(jù)庫連接組件數(shù)據(jù)源組件 19sqr (sin(a+b*y) /(sqr (a)*x)豳 sin(a+b*y) * sin(a+b*y)/(a*a*x)+a21、 Close 22 Visible23 Columns 24、 CommonA VI 25、屬性 或 Properties二、單項選擇題1、 D 2、C 3、C 4、B 5、 C306、D7、B8、C9、A10、C11、D12、C13、C14、B15、D16、A17、C18、D19、A20、C21、 B22、 D23、D24、C25、 C26、D 27、C 28、D 29、A 30、B 31、c

29、三、判斷題J 2、&4 V 5、X6、 J 7、 J 8、6、 J 7、 J 8、10、 VIK12、13、X 14、V15、 V四、程序填空題1、） Items Column Text Text Itemindex Items True DataSourcel sname Tablel DataSourcel3、31 strtoint CheckedIt text RadioGrouplyeditl. Texttablelnum. Value = 0EditNextLocateOpen unit2(3) opendialogl. FileName Text else text text ta

30、blelbno. Value InsertRecord Prior tablel dno opendialogl. Execute Play32 form2.ShowModal True DataSource 1 opendialog 1 .Execute form2.ShowModalTrueTable 1DataSource 1 unit2 opendialog 1 .FileName stop五、編程題procedure TForml.ButtonlClick(Sender: TObject);Var mon: Integer;Money:Real;beginmon :二 StrToIn

31、t(editl .Text);IF mon = 6 ThenMoney := 500 * monElseIF mon =12 Then33Money := 500 * mon *0.9ElseMoney := 500 * mon * 0.8;edit2. text := FloatToStr(Money);end;procedure TForml. ButtonlClick(Sender: TObject);Var R: Real;beginR := StrToFloat (editl. Text);IF abs(R - 10. 0)(二 OEfenEdit2. Text :糕測為合格品Els

32、eEdit2. Text :檢測為廢品;end;procedure TForml. ButtonlClick(Sender: TObject);var Num : Integer;beginNum := StrToInt (editl. Text);IF (Num mod 3=0) and (Num mod 5 =0) Then34showmessage (該數(shù)可以同時被3、5整除)ElseIF Num mod 3=0 Thenshowmessage (該數(shù)只能被3整除)Elseshowmessage (該數(shù)只能被5整除)end;procedure TForml. ButtonlClick(S

33、ender: TObject); varm, n , i : integer;beginm := StrToInt (editl. Text);n := StrToInt(edit2. Text);Memol. Clear;for i := m to n doif i MOD 3 = 0 thenmemol. Lines. Add ( IntToStr (i);end;35Delphi程序設計試題及解答一、填空題（20分，每空2分）1、結構化程序設計要求程序中僅采用順序、分支和循環(huán)三種控制結 TOC o 1-5 h z 構，其中每種結構只能有一個入口和。2、現(xiàn)實世界中對象具有自己的狀態(tài)和行為。

34、與此相對應，面向對象技術中的對象可以具有自己的和方法。3、Delphi的一個工程由假設干文件組成，其中與窗體文件對應的文件 是。4、在設計階段，ListBox對象列表框中的內容是通過屬性來進行設置的。5、調用主窗體的方法，可以結束程序。6、如果要在窗體上設計一個主菜單，首先要建立對象。7、當Query對象中存儲一條Delete語句時，執(zhí)行該語句需要調用Query的方法。8、與數(shù)學表達式對應的Object Pasca表達式是9、通過Animate對象的屬性設置，可以指定系統(tǒng)標準 的AVI動畫演示。3610、利用10、利用對象的LineTo等方法，可以繪制基本圖形。二、單項選擇題（20分，每題2分

35、）1、下面哪句話比擬準確地定義了 Delphi （ ）oA.面向對象的可視化的開發(fā)環(huán)境B.多媒體制作工具C.數(shù)據(jù)庫的客戶端開發(fā)工具D.高級編程語言2、下面哪個功能鍵可以調出Delphi的聯(lián)機幫助信息（）A . F1 鍵B . F2 鍵C . F3 鍵D . F4 鍵3、“x是小于10的非負數(shù)”的Object Pasca表達式是（）A . 0 x =0） AND （x =0, x= 0 ） OR （xB8、“x是小于100的非負數(shù)”的Object Pasca表達式是()。A . 0 x = 0, x=0) AND (x= 0 ) OR (x Tablel Query1 DataSource1 D

36、BEditlDBEdit3EditlEdit2 ButtonlButton3等其中Database1與mydb數(shù)據(jù)庫相連，Ta中el對象與books表相連, DBEditK DBEdit2 DBEdit3 分別和 bno （書號）、bname （書名）、 author（作者）各列相連。Queryl的SQL語句是：select count（*n）umfrom borrowwhere bno = :bno下面是Unitl單元的代碼實現(xiàn)局部，請完成程序填空。implementation$R *. dfmprocedure TForml. ButtonlClick(Sender: TObjed;找be

37、gintablel.begintablel.(bno , edit2. Text )42end;procedure TForml. Button2Click (Sender: TObjedfF);TBbegintablet.；end;procedure TForml. Button3Click(Sender: TObje&DTB：begintablel.；end;procedure TForml. TabielAfterScroll(DataSet: TDataSet);beginqueryl. Close ;queryl.:=tablel bno5 queryl. Open ;editl.T

38、ext := inttost日);end;end.4、（10分，每空2分）本程序實現(xiàn)一個簡單的選課界面。設計界面和運行界面如以下圖所示:43該程序涉及到數(shù)據(jù)庫中的兩張表：course（課程表）和sc （選課表）， 表結構如下：sc （sno學號，eno課程號，grade成績）course （eno 課號，cname 課名，quota名額）其中：sno和eno都是字符型。在用戶界面，操作員選中一門書、輸入學號后，按“選課”鍵，完成 選課功能，即在sc表中插入一條選課記錄，并將course表中該課程 的名額減lo該界面要實現(xiàn)以下合法性檢查：當該學生已經選過此課，不能再選。當所選課程名額已為0,不能

39、再選。在Form 1上建立的數(shù)據(jù)庫組件對象及連接關系如下：Database1 Tablet （與 course表相連）一DataSourcelDBGridl （顯示課程信息） Databasel Table2 （與sc表相連，用于插入選課記錄）Database1一 Query1其中為Tablel建立了 3個永久字段：TablelcnG課程號）、Tablelcname （課程名）、Tablelquota（名額）。Query 1的SQL語句如下： select eno from sc44where sno = :sno and eno = :eno下面是Unitl的代碼實現(xiàn)局部，請完成程序填空:i

40、mplementation$R *. dfm)procedure TForml. ButtonlClick(Sender: TObjed/)；選課鍵beginqueryl. Close ;queryl. ParamByName ( sno). Value queryl. ParamByName ( eno). Value queryl.Open ;if queryleno null thenbeginshowmessage (巳選過止匕課);exit ;end ;if thenbeginshowmessage (沒有名額);exit ;45end;table2. (editl. Text ,

41、tablelcno. Value , null);tablel. Edit ;tablelquota. Value := tablelquota. Valu/8 1tablel.;end;end.五、編程題（10分）以下圖是本程序的設計界面（左）和運行界面（右）：在 forml 上建立的對象有：EditlEdit4Buttonl（輸出）、RadioGroupl。 該程序的功能是：用戶在EditEdit3中分別輸入3個整數(shù)，并指定 輸出最大或最小數(shù)，然后按“輸出”鍵，輸入數(shù)據(jù)中的最大或最小數(shù) 將顯示在Edit4中。請編寫單擊“輸出”按鈕的事件處理程序。試題參考答案 一、填空題（10分，每空2分）

42、3、單元文件3、單元文件1、一個出口2、屬性464、 Items5、 Close6、 MainMenu7、ExecSQL8、sqr(cos(a+b)/(3*x) +5 或 cos (a+b)*cos (a+b) / (3*x)+59、 CommonA VI10、 Canvas1、6、1、6、四、1、2、3、單項選擇題（20分，每題2分）判斷題2、7、(102、7、程序填空題分,3、B8、C每題1分）(40 分,（10分，每空2分）unit23、8、4、9、9、每題10分）opendialogl. FileNameclose（10分,每空2分）TrueDataSourcelsname（10分,每

43、空2分）LocatePrior5、10、5、10、 Vopendialogl. Executeform2. ShowModalTablelDataSource1 Next47ParamByName ( bno). Value queryl num _4、(10分，每空2分) editl.Text(Dtablelcno. Value tablelquota. Value = 0 InsertRecord Post五、編程題(10分)procedure TForml. ButtonlClick(Sender: TObject);varx, y, z : integer ;beginx := str

44、toint(editl. Text);y := strtoint (edit2. Text);z := strtoint(edit3. Text);if radiogroupl. ItemIndex=0 thenbeginif(xy) and (xz) thenedit4.Text := inttostr(x)else if(yx) and (yz) thenedit4. Text := inttostr(y)elseedit4.Text := inttostr (z)48endelsebeginif(xy) and (xz) thenedit4.Text := inttostr(x)else

45、 if (yx) and (y ForcColor C、Name D、Height TOC o 1-5 h z 12、表達式30 + 19 div 2的值是（）A .37B.49C.39D .4013、以下合法的變量名是（ ）oA na + e B e- 3r C r 3 D、5we14、利用對象監(jiān)視器可以設置窗體或組件的（ ）oA）方法B）屬性C）外觀D ）執(zhí)行代碼15、Delphi程序設計的基本特點是（）o可視化程序設計B.代碼程序設計C .事件驅動編程D. A和C16、修改窗體的標題時，應當在屬性頁中設置的屬性是（ ）oA . Caption B. Name C. Text D . La

46、bel17、以下說法錯誤的選項是（：A）窗體文件的擴展名為.dfm一個窗體對應一個窗體文件Delphi中的一個工程只包含一個窗體.dpr和.pas是備份文件，便于用戶恢復到較早的一個工程版本。 18、要改變一個對象的高度，應使用屬性（）oA、FontB、ForcColor C、Name D、Height19、工具欄上的一組按鈕如果要構成互斥關系（如“左對齊”、“居中”、 “右對齊”），它們的Grouplndex屬性正確的設置是（）A . Grouplndex屬性值都為0B . Grouplndex屬性值非0,且互不相同C . Grouplndex屬性值非0,且相同 D. Grouplndex屬性值互不相 同20、以下表達中錯誤的選項是（）A. 一個工程包含不止一種類型的文件。B .窗體的Show方法的作用是顯示該窗體。C .窗體的Hide方法和Release方法的作用完全相同。D .假設工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為主窗 體。21、編輯框（Edit）中的文本發(fā)生改變時引發(fā)的事件是