國(guó)家開放大學(xué)2023-2024學(xué)年《程序設(shè)計(jì)》模擬試卷及答案解析（2024年）

國(guó)家開放大學(xué)2023-2024學(xué)年《程序設(shè)計(jì)》模擬試卷及答案解析單選題(共0題，共0分)1.“x是小于1000的非負(fù)數(shù)”的ObjectPascal表達(dá)式是()2.Delphi程序設(shè)計(jì)的基本特點(diǎn)是()3.(0分)表達(dá)式50+19div2的值是()4.結(jié)構(gòu)化程序設(shè)計(jì)的基本原則或特點(diǎn)不包括()。5.結(jié)構(gòu)化程序設(shè)計(jì)的基本原則是取消()語句，程序中僅采用順序、分支和循6.利用對(duì)象監(jiān)視器可以設(shè)置窗體或組件的()。B、屬性C、外觀7.通常控制組件在窗體中可見的屬性是()8.下列變量命名正確的是()9.下列表達(dá)式中()不是布爾表達(dá)式。10.下列說法錯(cuò)誤的是()A、窗體文件的擴(kuò)展名為.dfmB、一個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件11.下面哪個(gè)不是對(duì)象的三個(gè)要素之一()12.BitBtn組件的哪個(gè)屬性預(yù)定義了一些常用的位圖按鈕種類()。13.以下能夠觸發(fā)編輯框(Edit)組件OnChange事件的操作是()。14.編輯框(Edit)中的文本發(fā)生改變時(shí)引發(fā)的事件是()15.如果想設(shè)置Forml中字體顏色為clRed,17.在Delphi中，建立一個(gè)文本編輯區(qū)域，可采用下列哪個(gè)控件()。19.下面哪個(gè)組件不是容器組件()20.修改窗體的標(biāo)題時(shí)，應(yīng)當(dāng)設(shè)置form的屬性是()22.能夠刪除edit1中內(nèi)容的語句是()。23.在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，然后編寫如下事件過程：procedureTForml.Button1Click(Sender:TObject);vars,i,x:Inte24.進(jìn)度顯示組件ProgressBar的當(dāng)前進(jìn)度可以通過()屬性設(shè)置。25.下列說明錯(cuò)誤的是()A、OpenDialog是打開文件對(duì)話框。B、Edit組件的Clear方法是清除編輯框中的內(nèi)容C、CheckBox控件是通過Checked屬性確定選擇狀態(tài)D、按鈕組件的屬性Name設(shè)置為“確定”,則按鈕上文本顯示為“確定”26.用于建立菜單項(xiàng)的下劃線快捷方式的字符是()。27.工具欄上的一個(gè)SpeedButton按鈕如果要設(shè)置為狀態(tài)按鈕，則正確設(shè)置的方法是()A、將SpeedButton按鈕的GroupIndex屬性設(shè)置為0,且AllowA11Up屬性設(shè)置B、將SpeedButton按鈕的GroupIndex屬性設(shè)置為0,且AllowAl1Up屬性設(shè)置C、將SpeedButton按鈕的GroupIndex屬性設(shè)置為非0值，且AllowA11Up屬性設(shè)置為True.D、將SpeedButton按鈕的GroupIndex屬性設(shè)置為非0值，且AllowAl1Up屬性28.工具欄上的一組按鈕如果要構(gòu)成互斥關(guān)系(如“左對(duì)齊”、“居中”、“右對(duì)齊”),它們的GroupIndex屬性正確的設(shè)置是()B、GroupIndex屬性值非0,且互不相同C、GroupIndex屬性值非0,且相同29.最適合于在工具欄上放置的工具按鈕是()30.以下敘述中錯(cuò)誤的是()C、窗體的Hide方法和Release方法的作用完全相同。31.在窗體上建立多頁面的用戶界面，需要首先建立的對(duì)象是()32.窗體與數(shù)據(jù)模塊的擴(kuò)展名是()。應(yīng)Image的顯示區(qū)域()35.在設(shè)計(jì)階段，利用Image對(duì)象的哪個(gè)屬性，可以加載一幅圖片()。37.只能輸出、而不能輸入的數(shù)據(jù)感知控件是()第9頁共26頁38.數(shù)據(jù)庫組件中，提供了對(duì)數(shù)據(jù)庫讀寫操作功能的核心組件是()39.既可以通過選擇輸入、又可以直接輸入的數(shù)據(jù)感知控件是()40.下列常用的數(shù)據(jù)組件中，只需指定DataSo41.Delphi程序在對(duì)數(shù)據(jù)表中的數(shù)據(jù)修改后，用來提交數(shù)據(jù)的方法是()42.在Table組件中，用來設(shè)置打開或關(guān)閉與其相連的數(shù)據(jù)表的屬性是()第10頁共26頁44.下面哪個(gè)方法用于確定當(dāng)前指針位置是否在數(shù)據(jù)表的第一個(gè)記錄()。名>==<屬性值>;置對(duì)象的屬性。在面向?qū)ο蟮膁elphi程序設(shè)計(jì)中，設(shè)置對(duì)象的屬性和方法必須56.按鈕組件和編輯框組件都能夠響應(yīng)OnClick事件。按鈕組件和編輯框組件都58.label標(biāo)簽中文本顯示擴(kuò)展名為TXT的文件，則對(duì)通用對(duì)話框的Filter的屬性進(jìn)行設(shè)置，設(shè)置可62.OpenDialog組件的功能是指定一個(gè)文件名，并將中的菜單項(xiàng)有3種類型：普通按鈕型、復(fù)選框型和單選按鈕型。71在DataControls組件標(biāo)簽頁上，所有的數(shù)據(jù)控件都有d72.DBText除了指定DataSource屬性外(設(shè)定相連的數(shù)據(jù)源),還要指定DataSource屬性外(設(shè)定相連的數(shù)據(jù)源),還要指定DataField屬性(設(shè)為相連的字段),否則無法顯示數(shù)據(jù)內(nèi)容。73.DBEdit除了指定DataSource屬性外(設(shè)定相連的數(shù)據(jù)源),還要指定DataSource屬性外(設(shè)定相連的數(shù)據(jù)源),還要指定DataField屬性(設(shè)為相連的字段),否則無法顯示數(shù)據(jù)內(nèi)容。輸入數(shù)字9,edit2輸入數(shù)字3的時(shí)候，執(zhí)行下面的程序段，請(qǐng)選擇edit3應(yīng)ifs=3then第16頁共26頁退出窗體Forml上放置2個(gè)按鈕對(duì)象Button1(運(yùn)算鍵)、Button2(退出),3個(gè)編輯框?qū)ο骵dit1(操作數(shù))、edit2(被操作數(shù))、edit3(結(jié)果輸出框),一個(gè)procedureTForml.Button1Click(Seifcheckbox1.checkedand(radiogroupl.itemindex=3)thenprocedureTForml.Edit1Exit(Sender:TObject);x:integer;procedureTForml.Edit2Exit(Sender:TObject);78.一個(gè)應(yīng)用程序用于實(shí)現(xiàn)教師信息錄入，其用戶界面如下圖所示：姓名張曉林中文副教授確定窗體Form1上放置1個(gè)按鈕對(duì)象Button1(確定)。用戶在編輯框(Edit1)中輸入姓名，利用單選按鈕(RadioGroup1)指定性別，通過RadioGroupl的Items屬性設(shè)置兩個(gè)單選按鈕(“男”和“女”),并將屬性Column設(shè)置為2(按鈕擺兩列)。利用組合框(ComboBox1)選擇或直接輸入所在系，利用列表框(ListBox1)指定職稱。右邊放置一個(gè)Memo組件(Memol)用于結(jié)果顯示?！按_定”按鈕(Button1)的單擊事件處理程序如下：procedureTForml.Button1Click(Sender:TObject);memo1.Lines.Add(edit1.ifradiogroupl.ItemIndex=0thenmemol.Lines.Add('女’);memo1.Lines.Add(combobox1.memol.Lines.Add(listbox1.Items[listbox1.ite當(dāng)輸入完界面所示的上述信息后，單擊“確定”按鈕，請(qǐng)寫出右邊的Memol編輯窗口中教師信息顯示結(jié)果。A、顯示單行文本：“張曉林”B、顯示單行文本：“張曉林+女+中文+副教授”張曉林+副教授女中文副教授79.應(yīng)用程序用戶界面如下圖(左)所示，右圖是設(shè)計(jì)界面。開始停止在Forml上建立一個(gè)Panel1對(duì)象作為顯示時(shí)間的面板，建立Timer1對(duì)象，并將Interval屬性設(shè)置為500,將Enabled屬性的初始值設(shè)置為False。建立一個(gè)全局整型變量TimeCT。panel1.Caption:=Timetostr(timprocedureA、Panel1對(duì)象顯示內(nèi)容為：21:02:33,Edit1對(duì)象顯示內(nèi)容為5B、Panel1對(duì)象顯示內(nèi)容為：21:02:33,Edit1對(duì)象顯示內(nèi)容為10C、Panel1對(duì)象顯示內(nèi)容為：21:07:28,EdD、Panel1對(duì)象顯示內(nèi)容為：21:07:28,Edit1對(duì)象顯示內(nèi)容為10procedureTForml.Button1Click(Sender:TObject);edit2.text:=”通過”edit2.text:=”重考”當(dāng)n為5,該函數(shù)的返回值為。FomlX計(jì)算結(jié)果第22頁共26頁計(jì)算結(jié)果×ifiedit2.Text:=IntToStr(sum);/用戶在edit1中輸入一個(gè)正整數(shù)7,則在edit2中顯示計(jì)算結(jié)果為：請(qǐng)輸入鋼筋直徑(單位：毫米):檢測(cè)結(jié)果：“檢測(cè)”(Button1)按鈕的事件處理ifAbs(R-10.0)<=0.5thenEdit2.Text:=’檢測(cè)為合格品’確定j:=StrToInt(Edit1.Text