2026年計(jì)算機(jī)二級(jí)（Delphi程序設(shè)計(jì)）自測(cè)試題及答案

（考試時(shí)間：90分鐘滿分100分）班級(jí)______姓名______一、選擇題（總共10題，每題4分，每題只有一個(gè)正確答案，將正確答案填入括號(hào)內(nèi)）1.在Delphi中，用于聲明一個(gè)整型變量的關(guān)鍵字是（）A.IntegerB.StringC.BooleanD.Char2.以下哪個(gè)函數(shù)可以用于將字符串轉(zhuǎn)換為整數(shù)（）A.StrToIntB.IntToStrC.FloatToStrD.StrToFloat3.當(dāng)點(diǎn)擊一個(gè)按鈕時(shí)，觸發(fā)的事件是（）A.OnClickB.OnMouseEnterC.OnKeyPressD.OnChange4.要在Delphi中創(chuàng)建一個(gè)新的窗體，應(yīng)使用以下哪個(gè)菜單選項(xiàng)（）A.File-New-FormB.Edit-New-FormC.Project-New-FormD.Tools-New-Form5.在Delphi中，用于顯示消息框的函數(shù)是（）A.ShowMessageB.MessageBoxC.MsgBoxD.DisplayMessage6.以下哪種數(shù)據(jù)類型不能用于存儲(chǔ)小數(shù)（）A.DoubleB.IntegerC.SingleD.Currency7.要在一個(gè)窗體中添加一個(gè)標(biāo)簽控件，應(yīng)使用（）A.TEditB.TLabelC.TButtonD.TCheckBox8.當(dāng)一個(gè)程序運(yùn)行時(shí)，首先執(zhí)行的部分是（）A.事件處理程序B.主程序C.單元初始化代碼D.庫文件代碼9.在Delphi中，用于打開文件對(duì)話框的組件是（）A.TOpenDialogB.TSaveDialogC.TColorDialogD.TFontDialog10.以下哪個(gè)語句可以用于跳出循環(huán)（）A.ExitB.BreakC.ContinueD.Stop二、多項(xiàng)選擇題（總共5題，每題6分，每題有多個(gè)正確答案，全部選對(duì)得6分，少選得3分，選錯(cuò)不得分，將正確答案填入括號(hào)內(nèi)）1.以下哪些是Delphi中的數(shù)據(jù)類型（）A.IntegerB.StringC.ArrayD.RecordE.Object2.以下哪些組件可以用于輸入文本（）A.TEditB.TMemoC.TLabelD.TComboBoxE.TListBox3.要實(shí)現(xiàn)一個(gè)事件處理程序，需要以下哪些步驟（）A.在窗體設(shè)計(jì)器中選擇相應(yīng)的組件B.在代碼編輯器中為組件的事件創(chuàng)建方法C.編寫事件處理代碼D.編譯程序E.運(yùn)行程序4.以下哪些函數(shù)可以用于文件操作（）A.FileOpenB.FileCloseC.FileReadD.FileWriteE.FileDelete5.在Delphi中，可以使用以下哪些方式創(chuàng)建一個(gè)對(duì)象（）A.聲明一個(gè)類類型的變量并使用New函數(shù)B.使用類名直接創(chuàng)建對(duì)象C.使用構(gòu)造函數(shù)創(chuàng)建對(duì)象D.從現(xiàn)有對(duì)象繼承創(chuàng)建對(duì)象E.使用模板創(chuàng)建對(duì)象三、填空題（總共10題，每題3分，將答案填寫在橫線上）1.Delphi程序的入口點(diǎn)是______。2.要在Delphi中定義一個(gè)類，應(yīng)使用關(guān)鍵字______。3.在一個(gè)事件處理程序中，通過______參數(shù)可以獲取觸發(fā)事件的對(duì)象。4.用于連接數(shù)據(jù)庫的組件是______。5.要在Delphi中創(chuàng)建一個(gè)菜單，應(yīng)使用______組件。6.當(dāng)一個(gè)窗體被創(chuàng)建時(shí)，會(huì)觸發(fā)______事件。7.在Delphi中，用于將一個(gè)對(duì)象的屬性值賦給另一個(gè)對(duì)象的語句是______。8.要在一個(gè)窗體中添加一個(gè)定時(shí)器組件，應(yīng)使用______。9.用于在Delphi中繪制圖形的畫布對(duì)象是______。10.當(dāng)一個(gè)應(yīng)用程序關(guān)閉時(shí)，會(huì)觸發(fā)______事件。四、程序分析題（共2題，每題15分，閱讀以下程序，回答問題）程序一：```delphiprogramProject1;usesForms,Dialogs;typeTForm1=class(TForm)procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R.dfm}procedureTForm1.Button1Click(Sender:TObject);varnum1,num2,sum:Integer;beginnum1:=10;num2:=20;sum:=num1+num2;ShowMessage(IntToStr(sum));end;beginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end.```1.該程序的功能是什么？2.程序中定義了哪些變量和組件？3.當(dāng)按鈕被點(diǎn)擊時(shí)，會(huì)執(zhí)行什么操作？程序二：```delphiprogramProject2;usesForms,Dialogs,SysUtils;typeTForm1=class(TForm)procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R.dfm}procedureTForm1.Button1Click(Sender:TObject);varfileStream:TFileStream;buffer:string;beginfileStream:=TFileStream.Create('test.txt',fmOpenReadorfmShareDenyWrite);SetLength(buffer,fileStream.Size);fileStream.Read(buffer[1],fileStream.Size);fileStream.Free;ShowMessage(buffer);end;beginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end.```1.該程序的功能是什么？2.程序中使用了哪些組件和函數(shù)？3.如果文件“test.txt”不存在，程序會(huì)出現(xiàn)什么情況？五、程序設(shè)計(jì)題（共1題，20分，根據(jù)要求編寫程序）編寫一個(gè)Delphi程序，實(shí)現(xiàn)以下功能：1.創(chuàng)建一個(gè)包含一個(gè)按鈕和一個(gè)標(biāo)簽的窗體。2.當(dāng)按鈕被點(diǎn)擊時(shí)，標(biāo)簽顯示“按鈕被點(diǎn)擊了！”。答案：一、選擇題1.A2.A3.A4.C5.A6.B7.B8.C9.A10.B二、多項(xiàng)選擇題1.ABCDE2.AB3.ABC4.ABCDE5.AC三、填空題1.Application.Run2.class3.Sender4.TDatabase5.TMainMenu6.OnCreate7.:=8.TTimer9.Canvas10.OnClose四、程序分析題程序一：1.程序的功能是當(dāng)點(diǎn)擊按鈕時(shí)，計(jì)算并顯示兩個(gè)整數(shù)的和。2.程序中定義的變量有num1、num2、sum；組件有TForm1、TButton。3.當(dāng)按鈕被點(diǎn)擊時(shí)，會(huì)將num1賦值為10，num2賦值為20，計(jì)算它們的和并顯示在消息框中。程序二：1.程序的功能是打開一個(gè)名為“test.txt”的文件并讀取其內(nèi)容顯示在消息框中。2.程序中使用的組件有TForm1、TButton；函數(shù)有TFileStream.Create、Read、Free。3.如果文件“test.txt”不存在，程序會(huì)拋出異常。五、程序設(shè)計(jì)題```delphiprogramProject3;usesForms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Label1:TLabel;procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;im