2023-2024學(xué)年《程序設(shè)計(jì)》模擬試卷及答案解析

國(guó)家開放大學(xué)

2023-2024學(xué)年《程序設(shè)計(jì)》模擬試卷及答案解析

單選題（共。題，共。分）

1.“x是小于1000的非負(fù)數(shù)"的ObjectPascal表達(dá)式是（）

A、0<x<1000

B、（x>=0）0R（x<1000）

C、x>=0,x<1000

D、（x>=0）AND（x<1000）

正確答案：D

2.Delphi程序設(shè)計(jì)的基本特點(diǎn)是（）

A、可視化程序設(shè)計(jì)

B、代碼程序設(shè)計(jì)

C、事件驅(qū)動(dòng)編程

D、A和C

正確答案：D

3.（0分）表達(dá)式50+19div2的值是（）

A、57

B、69

C、59

D、60

正確答案：C

4.結(jié)構(gòu)化程序設(shè)計(jì)的基本原則或特點(diǎn)不包括（）。

A、多態(tài)性

B、自頂向下

C、模塊化

D、逐步求精

正確答案：A

5.結(jié)構(gòu)化程序設(shè)計(jì)的基本原則是取消（）語(yǔ)句，程序中僅采用順序、分支和循

環(huán)三種控制結(jié)構(gòu)。

A、For

B、While

第1頁(yè)共26頁(yè)

C、goto

D、Do

正確答案：c

6.利用對(duì)象監(jiān)視器可以設(shè)置窗體或組件的（）。

A、方法

B、屬性

C、外觀

D、執(zhí)行代碼

正確答案：B

7.通?？刂平M件在窗體中可見的屬性是（）

A、Visible

B、Name

C、Showing

D、Hint

正確答案：A

8,下列變量命名正確的是（）

A、7ABC

B、My7

C、page@2

D、cmd..1

正確答案：B

9.下列表達(dá)式中（）不是布爾表達(dá)式。

A、A=3

B、AdivB

C、AandB

D、A>B

正確答案：B

10.下列說法錯(cuò)誤的是（）

A、窗體文件的擴(kuò)展名為.dfm

B、一個(gè)窗體對(duì)應(yīng)一個(gè)窗體文件

第2頁(yè)共26頁(yè)

C、Delphi中的一個(gè)工程只包含一個(gè)窗體

D、rdpr和.~pas是備份文件，便于用戶恢復(fù)到較早的一個(gè)項(xiàng)目版本。

正確答案：C

11.下面哪個(gè)不是對(duì)象的三個(gè)要素之一（）

A、事件

B、名稱

C、屬性

D、方法

正確答案：B

組件的哪個(gè)屬性預(yù)定義了一些常用的位圖按鈕種類（）。

A、name

B、Caption

C、kind

D、type

正確答案：c

13.以下能夠觸發(fā)編輯框（Edit）組件OnChange事件的操作是（）。

A、鼠標(biāo)單擊編輯框

B、鼠標(biāo)雙擊編輯框

C、在編輯框中選擇文本

D、在編輯框中輸入文本

正確答案：D

14.編輯框（Edit）中的文本發(fā)生改變時(shí)引發(fā)的事件是（）

A、AutoSize

B、OnChange

C、SetFocus

D、SetText

正確答案：B

15.如果想設(shè)置Forml中字體顏色為clRed,應(yīng)當(dāng)設(shè)置Font的（）屬性。

A、Color

B、Font

第3頁(yè)共26頁(yè)

C、back

D、red

正確答案：A

16.如果要檢查edit編輯框中輸入的字符，可以在哪個(gè)事件處理程序中編寫代碼

檢查（）

A、OnClick

B、OnEnter

C、OnMouseUp

D、OnKeyPress

正確答案：D

17.在Delphi中，建立一個(gè)文本編輯區(qū)域，可采用下列哪個(gè)控件（）。

A、命令按鈕

B、文本標(biāo)簽控件

C、Edit控件

D、Timer控件

正確答案：C

18.Delphi有三種控制循環(huán)的語(yǔ)句，下列哪個(gè)不是其中之一（）o

A、repeat語(yǔ)句

B、while語(yǔ)句

C、for語(yǔ)句

D、next語(yǔ)句

正確答案：D

19.下面哪個(gè)組件不是容器組件（）

A、Form

B、Panel

C、GroupBox

D、MaskEdit

正確答案：D

20.修改窗體的標(biāo)題時(shí)，應(yīng)當(dāng)設(shè)置form的屬性是（）

A、Caption

第4頁(yè)共26頁(yè)

B、Name

C、Text

D、Label

正確答案：A

21.以下控件中沒有Items屬性的是（）

A、ComboBox

B、ListBox

C、RadioGroup

D、Memo

正確答案：D

22.能夠刪除editl中內(nèi)容的語(yǔ)句是（）。

A、editl.Clear;

B、editl.Focused；

C、editl.Text=null;

D、editl.text:='\0';

正確答案：A

23.在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽,

然后編寫如下事件過程：

procedureTForml.ButtonlClick（Sender:TObject）;

vars,i,x:Integer;

begin

s:=0;

Fori:=1To15Do

Begin

x:=2*i-l;

IFxMod3=0Then

s:=s+1

end;

Label1.Caption:=IntToStr（s）;

End;

問點(diǎn)擊Commandl的命令按鈕后，Labell標(biāo)簽顯示數(shù)值為：（）

A、5

B、15

C、20

第5頁(yè)共26頁(yè)

D、25

正確答案：A

24.進(jìn)度顯示組件ProgressBar的當(dāng)前進(jìn)度可以通過（）屬性設(shè)置。

A、Step

B、Scroll

C、Position

D、Max

正確答案：C

25.下列說明錯(cuò)誤的是（）

A、OpenDialog是打開文件對(duì)話框。

B、Edit組件的Clear方法是清除編輯框中的內(nèi)容

C、CheckBox控件是通過Checked屬性確定選擇狀態(tài)

D、按鈕組件的屬性Name設(shè)置為“確定”，則按鈕上文本顯示為“確定”

正確答案：D

26.用于建立菜單項(xiàng)的下劃線快捷方式的字符是（）。

A、&

B、$

C、%

D、@

正確答案：A

27.工具欄上的一個(gè)SpeedButton按鈕如果要設(shè)置為狀態(tài)按鈕，則正確設(shè)置的方

法是（）

A、將SpeedButton按鈕的Grouplndex屬性設(shè)置為0,且AllowAllUp屬性設(shè)置

為True。

B、將SpeedButton按鈕的Grouplndex屬性設(shè)置為0,且AllowAllUp屬性設(shè)置

為False。

C、將SpeedButton按鈕的Grouplndex屬性設(shè)置為非0值，且AllowAllUp屬性

設(shè)置為Trueo

D、將SpeedButton按鈕的Grouplndex屬性設(shè)置為非0值，且AllowAllUp屬性

設(shè)置為False。

正確答案：C

28.工具欄上的一組按鈕如果要構(gòu)成互斥關(guān)系（如“左對(duì)齊”、“居中”、“右

對(duì)齊”），它們的Grouplndex屬性正確的設(shè)置是（）

第6頁(yè)共26頁(yè)

A、Grouplndex屬性值都為0

B、Grouplndex屬性值非0,且互不相同

C、Grouplndex屬性值非0,且相同

D、Grouplndex屬性值互不相同

正確答案：C

29.最適合于在工具欄上放置的工具按鈕是（）

A、Button

B、RadioButton

C、SpeedButton

D、BitBtn

正確答案：c

30.以下敘述中錯(cuò)誤的是（）

A、一個(gè)項(xiàng)目包含不止一種類型的文件。

B、窗體的Show方法的作用是顯示該窗體。

C、窗體的Hide方法和Release方法的作用完全相同。

D、若項(xiàng)目文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為主窗體。

正確答案：C

31.在窗體上建立多頁(yè)面的用戶界面，需要首先建立的對(duì)象是（）

A、TabControl

B、PageScroller

C、HeaderControl

D、PageControl

正確答案：D

32.窗體與數(shù)據(jù)模塊的擴(kuò)展名是（）。

A、.dcu

B、.dfm

C、.pas

D、.dpr

正確答案：B

33.Delphi中可以實(shí)現(xiàn)繪制直線的方法是（）

第7頁(yè)共26頁(yè)

A、Polyline

B、Ellipse

C、Rect

D、LineTo

正確答案：D

34.利用Image/寸象的哪個(gè)屬性設(shè)置，可以使加載的圖像自動(dòng)放大或縮小，以適

應(yīng)Image的顯示區(qū)域（）

A、Stretch

B、AutoSize

C、Align

D、Center

正確答案：A

35.在設(shè)計(jì)階段，利用Image對(duì)象的哪個(gè)屬性，可以加載一幅圖片（）。

A、Image

B、Picture

C、Grid

D、Load

正確答案：B

36.以使記錄指針指向table第一個(gè)記錄（）。

A、Nol

B、First

C、Next

D、End

正確答案：B

37.只能輸出、而不能輸入的數(shù)據(jù)感知控件是（）

A、DBEdit

B、DBText

C、DBRadioGroup

D、DBCheckBox

正確答案：B

第8頁(yè)共26頁(yè)

38.數(shù)據(jù)庫(kù)組件中，提供了對(duì)數(shù)據(jù)庫(kù)讀寫操作功能的核心組件是（）

A、數(shù)據(jù)源組件

B、用戶界面組件

C、數(shù)據(jù)集組件

D、數(shù)據(jù)感知控件

正確答案：C

39.既可以通過選擇輸入、又可以直接輸入的數(shù)據(jù)感知控件是（）

A、DBRadioGroup

B、DBListBox

C、DBComboBox

D、DBCheckBox

正確答案：C

40.下列常用的數(shù)據(jù)組件中，只需指定DataSource而不需指定DataField的控件

是哪個(gè)？（）

A、DBText

B、DBEdit

C、DBNavigator

D、Query

正確答案：C

41.Delphi程序在對(duì)數(shù)據(jù)表中的數(shù)據(jù)修改后，用來提交數(shù)據(jù)的方法是（）

A、Edit

B、Post

C、Upload

D、DownLoad

正確答案：B

42.在Table組件中，用來設(shè)置打開或關(guān)閉與其相連的數(shù)據(jù)表的屬性是（）

A、ReadOnly

B、B0F和EOF

C、Keep

D、Active

第9頁(yè)共26頁(yè)

正確答案：D

43.Table組件中，指定要訪問的數(shù)據(jù)庫(kù)名稱，通常設(shè)置數(shù)據(jù)庫(kù)的屬性是（）

A、databasename

B、active

C、Name

D、datasource

正確答案：A

44.下面哪個(gè)方法用于確定當(dāng)前指針位置是否在數(shù)據(jù)表的第一個(gè)記錄（）。

A、EOF

B、BOF

C、GETLAST

D、GetFirstRecord

正確答案：B

判斷題（共。題，共0分）

45.對(duì)象具有屬性和方法，這是對(duì)象的主要特征。對(duì)象具有屬性和方法，這是對(duì)

象的主要特征。

T、V

F、X

正確答案：To

46.一個(gè)對(duì)象可以具有多個(gè)屬性，但只能有一個(gè)方法。一個(gè)對(duì)象可以具有多個(gè)屬

性，但只能有一個(gè)方法。

T、V

F、X

正確答案：Fo

47.在Delphi程序運(yùn)行時(shí)動(dòng)態(tài)設(shè)置屬性的一般格式是：〈對(duì)象名〉.〈屬性名〉==<

屬性值〉；在Delphi程序運(yùn)行時(shí)動(dòng)態(tài)設(shè)置屬性的一般格式是：〈對(duì)象名〉.〈屬性

名>==〈屬性值〉；

T、V

F、X

正確答案：Fo

48.在Delphi中，根據(jù)變量標(biāo)識(shí)符命名規(guī)則，“st80”可以作為一個(gè)合法的變量

命名。在Delphi中，根據(jù)變量標(biāo)識(shí)符命名規(guī)則，“st80”可以作為一個(gè)合法的

變量命名。

第10頁(yè)共26頁(yè)

T、V

F、X

正確答案：To

49.在面向?qū)ο蟮膁elphi程序設(shè)計(jì)中，設(shè)置對(duì)象的屬性和方法必須在程序中通過

編寫代碼來實(shí)現(xiàn)，絕對(duì)不允其他方式。因此，在Delphi的屬性窗口無法直接設(shè)

置對(duì)象的屬性。在面向?qū)ο蟮膁elphi程序設(shè)計(jì)中，設(shè)置對(duì)象的屬性和方法必須

在程序中通過編寫代碼來實(shí)現(xiàn)，絕對(duì)不允其他方式。因此，在Delphi的屬性窗

口無法直接設(shè)置對(duì)象的屬性。

T、V

F、X

正確答案：Fo

50.在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象的屬性用變量來表示，對(duì)象的方法用代碼來

實(shí)現(xiàn)。在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象的屬性用變量來表示，對(duì)象的方法用代碼

來實(shí)現(xiàn)。

T、V

F、X

正確答案：To

51.在事件處理程序中定義的變量，其一旦建立，即使事件處理程序完畢后仍將

一直存在，生命周期延續(xù)至整個(gè)用戶程序全部結(jié)束。在事件處理程序中定義的變

量，其一旦建立，即使事件處理程序完畢后仍將一直存在，生命周期延續(xù)至整個(gè)

用戶程序全部結(jié)束。

T、V

F、X

正確答案：Fo

52.子類可以繼承父類，但是，一個(gè)父類只能擁有一個(gè)子類。子類可以繼承父類，

但是，一個(gè)父類只能擁有一個(gè)子類。

T、V

F、X

正確答案：Fo

53.label和Edit組件都可以用于用戶輸入數(shù)據(jù)。label和Edit組件都可以

用于用戶輸入數(shù)據(jù)。

T、V

F、X

正確答案：Fo

第n頁(yè)共26頁(yè)

54.RadioGroup對(duì)象中的單選按鈕個(gè)數(shù)及名稱是通過Items屬性來進(jìn)行設(shè)置的。

RadioGroup對(duì)象中的單選按鈕個(gè)數(shù)及名稱是通過Items屬性來進(jìn)行設(shè)置的。

T、V

F、X

正確答案：To

55.編輯框edit的Readonly屬性如果設(shè)置為true,在代碼中還是可以對(duì)text

屬性賦值。編輯框edit的Readonly屬性如果設(shè)置為true,在代碼中還是可以

對(duì)text屬性賦值。

T、V

F、X

正確答案：To

56.按鈕組件和編輯框組件都能夠響應(yīng)OnClick事件。按鈕組件和編輯框組件都

能夠響應(yīng)OnClick事件。

T、V

F、X

正確答案：To

57.按鈕組件和編輯框組件能夠響應(yīng)的事件有些是相同的。按鈕組件和編輯框組

件能夠響應(yīng)的事件有些是相同的。

T、V

F、X

正確答案：To

58.label標(biāo)簽中文本不可以換行。label標(biāo)簽中文本不可以換行。

T、V

F、X

正確答案：To

59.在一個(gè)項(xiàng)目中，可以指定任意一個(gè)窗體為主窗體。在一個(gè)項(xiàng)目中，可以指定

任意一個(gè)窗體為主窗體。

T、V

F、X

正確答案：To

60.一個(gè)數(shù)組中的各元素的數(shù)據(jù)類型可以不同。一個(gè)數(shù)組中的各元素的數(shù)據(jù)類型

可以不同。

T、V

F、X

第12頁(yè)共26頁(yè)

正確答案：Fo

61.若已在窗體中加入了一個(gè)OpenDialog對(duì)象，要求在運(yùn)行時(shí)，打開對(duì)話框時(shí)只

顯示擴(kuò)展名為TXT的文件，則對(duì)通用對(duì)話框的Filter的屬性進(jìn)行設(shè)置，設(shè)置可

以是：'TXTFilesI*.TXT'。若已在窗體中加入了一個(gè)OpenDialog對(duì)象，要求

在運(yùn)行時(shí)，打開對(duì)話框時(shí)只顯示擴(kuò)展名為TXT的文件，則對(duì)通用對(duì)話框的Filter

的屬性進(jìn)行設(shè)置，設(shè)置可以是：’TXTFiles|*.TXT'。

T、V

F、X

正確答案：To

62.OpenDialog組件的功能是指定一個(gè)文件名，并將編輯區(qū)中的內(nèi)容保存到文

件中。OpenDialog組件的功能是指定一個(gè)文件名，并將編輯區(qū)中的內(nèi)容保存到

文件中。

T、V

F、X

正確答案：Fo

63.Delphi中的菜單項(xiàng)有3種類型：普通按鈕型、復(fù)選框型和單選按鈕型。Delphi

中的菜單項(xiàng)有3種類型：普通按鈕型、復(fù)選框型和單選按鈕型。

T、V

F、X

正確答案：To

64.如果要在窗體上設(shè)計(jì)一個(gè)主菜單，首先要建立MainMenu對(duì)象。如果要在窗體

上設(shè)14^一'個(gè)主菜單，首先要建立MainMenu對(duì)象。

T、V

F、X

正確答案：To

65.在一個(gè)項(xiàng)目中，第一個(gè)建立的窗體并不一定就是主窗體，可以在后續(xù)開發(fā)過

程中指定。在一個(gè)項(xiàng)目中，第一個(gè)建立的窗體并不一定就是主窗體，可以在后續(xù)

開發(fā)過程中指定。

T、V

F、X

正確答案：To

66.MediaPlayer組件可以播放Avi、midi等多種媒體格式。MediaPlayer組件

可以播放Avi、midi等多種媒體格式。

T、V

F、X

第13頁(yè)共26頁(yè)

正確答案：To

67.（0分）［SN：1254411【難度：0.5］【狀態(tài)：已發(fā)布】

圖形組件可以輸入焦點(diǎn)，并能接受用戶的輸入，然后顯示。圖形組件可以輸入焦

點(diǎn)，并能接受用戶的輸入，然后顯示。

T、V

F、X

正確答案：Fo

68.一個(gè)Query對(duì)象同一時(shí)刻可以無限制地存儲(chǔ)多條SQL語(yǔ)句。一個(gè)Query對(duì)象

同一時(shí)刻可以無限制地存儲(chǔ)多條SQL語(yǔ)句。

T、V

F、X

正確答案：Fo

69.在程序運(yùn)行期間，一個(gè)Query對(duì)象中的SQL語(yǔ)句可以修改。在程序運(yùn)行期間，

一個(gè)Query對(duì)象中的SQL語(yǔ)句可以修改。

T、V

F、X

正確答案：To

70.在設(shè)計(jì)階段，如果在Query對(duì)象的SQL語(yǔ)句中設(shè)置了參數(shù)，則必須在Query

的Params屬性中為參數(shù)設(shè)置數(shù)據(jù)類型。在設(shè)計(jì)階段，如果在Query對(duì)象的SQL

語(yǔ)句中設(shè)置了參數(shù)，則必須在Query的Params屬性中為參數(shù)設(shè)置數(shù)據(jù)類型。

T、V

F、X

正確答案：To

71在DataControls組件標(biāo)簽頁(yè)上，所有的數(shù)據(jù)控件都有datafield屬性。在

DataControls組件標(biāo)簽頁(yè)上，所有的數(shù)據(jù)控件都有datafield屬性。

T、V

F、X

正確答案：Fo

72.DBText除了指定DataSource屬性外（設(shè)定相連的數(shù)據(jù)源），還要指定

DataField屬性（設(shè)為相連的字段），否則無法顯示數(shù)據(jù)內(nèi)容。DBText除了指定

DataSource屬性外（設(shè)定相連的數(shù)據(jù)源），還要指定DataField屬性（設(shè)為相

連的字段），否則無法顯示數(shù)據(jù)內(nèi)容。

T、V

F、X

正確答案：To

第14頁(yè)共26頁(yè)

73.DBEdit除了指定DataSource屬性外（設(shè)定相連的數(shù)據(jù)源），還要指定

DataField屬性（設(shè)為相連的字段），否則無法顯示數(shù)據(jù)內(nèi)容。DBEdit除了指定

DataSource屬性外（設(shè)定相連的數(shù)據(jù)源），還要指定DataField屬性（設(shè)為相

連的字段），否則無法顯示數(shù)據(jù)內(nèi)容。

T、V

F、X

正確答案：To

74.單字段數(shù)據(jù)感知控件（例如DBText、DBEdit等）都必須指定DataSource和

DataField兩個(gè)屬性值。單字段數(shù)據(jù)感知控件（例如DBText、DBEdit等）都必

須指定DataSource和DataField兩個(gè)屬性值。

T、V

F、X

正確答案：To

75.在程序運(yùn)行期間，一個(gè)Table對(duì)象只能固定和一個(gè)關(guān)系表相連。在程序運(yùn)行

期間，一個(gè)Table對(duì)象只能固定和一個(gè)關(guān)系表相連。

T、V

F、X

正確答案：Fo

閱讀程序題（共0題，共0分）

76.閱讀下面的程序段，其中editl~edit3均為編輯框組件，當(dāng)s為3,editl

輸入數(shù)字9,edit2輸入數(shù)字3的時(shí)候，執(zhí)行下面的程序段，請(qǐng)選擇edit3應(yīng)

顯示的內(nèi)容為。

var

x,y,z,s:integer;

begin

x:=strtoint（editl.Text）;

y:=strtoint（edit2.Text）;

casesof

0:z:=x+y;

1:z:=x-y;

2:z:=x*y;

3:z:=xdivy;

end;

edit3.text:=inttostr（z）;

ifs=3then

if（xmody<>0）then

edit3.text:=Edit3.text+?--'+inttostr（xmody）;

end;

執(zhí)行后，edit3顯示的內(nèi)容為:

第15頁(yè)共26頁(yè)

A、3

B、2

C、1

D、0

正確答案：A

77.用戶界面如下圖所示的應(yīng)用程序:

說明如下：

窗體Forml上放置2個(gè)按鈕對(duì)象Buttonl（運(yùn)算鍵）、Button2（退出），3個(gè)編

輯框?qū)ο骵ditl（操作數(shù)）、edit2（被操作數(shù)）、edit3（結(jié)果輸出框），一個(gè)

GroupBox對(duì)象GroupBoxl（內(nèi)含4個(gè)單選按鈕，用于選擇4個(gè)運(yùn)算類型），一個(gè)

復(fù)選框checkbox］（“顯示除法余數(shù)”）。

界面上對(duì)象的代碼如下:

procedureTForml.ButtonlClick(Sender:TObject);

var

x,y,z:integer;

begin

x:=strtoint(editl.Text);

y:=strtoint(edit2.Text);

caseradiogroupl.itemindexof

0:z:=x+y;

1:z:=x-y;

2:z:=x*y;

3:z:=xdivy;

end;

edit3.text:=inttostr(z);

ifcheckboxl.checkedand(radiogroupl.itemindex=3)then

if(xmody<>0)then

edit3.text:=Edit3.text+,余'+inttostr(xmody)

end;

procedureTForml.EditlExit(Sender:TObject);

var

第16頁(yè)共26頁(yè)

x:integer;

begin

if(editl.Text='‘)then

begin

showmessage('操作數(shù)為空');

editl.SetFocus;

exit;

end;

x:=strtoint(editl.Text);

if(x<l)or(x>100)then

begin

showmessage(J操作數(shù)越界')；

editl.SetFocus;

end;

end;

procedureTForml.Edit2Exit(Sender:TObject);

var

x:integer;

begin

if(edit2.Text='')then

begin

showmessage('被操作數(shù)為空’);

edit2.SetFocus;

exit;

end;

x:=strtoint(edit2.Text);

if(x<l)or(x>100)then

begin

showmessageC被操作數(shù)越限’);

edit2.SetFocus;

end;

end;

procedureTForml.Button2Click(Sender:TObject);〃退出按鈕

begin

forml.close;

end;

閱讀上面的代碼，請(qǐng)寫出如上圖所示輸入editl輸入數(shù)字23,edit2輸入數(shù)字

5的時(shí)候，點(diǎn)擊“運(yùn)算鍵”執(zhí)行后，請(qǐng)寫出edit3顯示的內(nèi)容。

A、操作數(shù)為空

第17頁(yè)共26頁(yè)

B、2余3

C、0

D、4余3

正確答案：D

78.一個(gè)應(yīng)用程序用于實(shí)現(xiàn)教師信息錄入，其用戶界面如下圖所示:

窗體Forml上放置1個(gè)按鈕對(duì)象Buttonl(確定)。用戶在編輯框(Editl)中

輸入姓名，利用單選按鈕(RadioGroupl)指定性別，通過RadioGroupl的Items

屬性設(shè)置兩個(gè)單選按鈕(“男”和“女”)，并將屬性Column設(shè)置為2(按鈕

擺兩列)。利用組合框(ComboBoxl)選擇或直接輸入所在系，利用列表框(ListBoxl)

指定職稱。右邊放置一個(gè)Memo組件(Memol)用于結(jié)果顯示。

“確定”按鈕(Buttonl)的單擊事件處理程序如下：

procedureTForml.ButtonlClick(Sender:TObject);

begin

memol.Lines.Add(editl.Text);

ifradiogroupl.Itemindex=0then

memol.Lines.Add(J男')

else

memol.Lines.Add(J女');

memol.Lines.Add(comboboxl.Text);

memol.Lines.Add(listboxl.Items[listboxl.itemindex]);

end;

當(dāng)輸入完界面所示的上述信息后，單擊“確定”按鈕，請(qǐng)寫出右邊的Memol編輯

窗口中教師信息顯示結(jié)果。

A、顯示單行文本：“張曉林”

B、顯示單行文本：“張曉林+女+中文+副教授”

第18頁(yè)共26頁(yè)

C、顯示多行文本：

張曉林+

女+

中文+

副教授

D、顯示多行文本：

張曉林

女

中文

副教授

正確答案：D

79.應(yīng)用程序用戶界面如下圖(左)所小，右圖是設(shè)計(jì)界面。

在Forml上建立一個(gè)Panell對(duì)象作為顯示時(shí)間的面板，建立Timerl對(duì)象，并將

Interval屬性設(shè)置為500,將Enabled屬性的初始值設(shè)置為False。

建立一個(gè)全局整型變量TimeCTo

代碼如下：

procedureTForml.TimerlTimer(Sender:TObject);

begin

panell.Caption:=Timetostr(time);

TimeCT:=TimeCT+1;

第19頁(yè)共26頁(yè)

editl.text:=inttostr(TimeCT);

end;

procedureTForml.ButtonlClick(Sender:TObject);〃開始按鈕

begin

timerl.Enabled:=true;

TimeCT:=0;

end;

procedureTForml.Button2Click(Sender:TObject);〃停止按鈕

begin

timerl.Enabled:=false;

end;

當(dāng)用戶單擊開始按鈕后，開始時(shí)間如上圖左所示，過5秒后，就立即按下停止按

鈕，請(qǐng)寫出Pane11對(duì)象和Editl的顯示結(jié)果。

A、Panell對(duì)象顯示內(nèi)容為：21:02:33,Editl對(duì)象顯示內(nèi)容為5

B、Panell對(duì)象顯示內(nèi)容為：21:02:33,Editl對(duì)象顯示內(nèi)容為10

C、Panell對(duì)象顯示內(nèi)容為：21:07:28,Editl對(duì)象顯示內(nèi)容為5

D、Panell對(duì)象顯示內(nèi)容為：21:07:28,Editl對(duì)象顯示內(nèi)容為10

正確答案：D

80.在程序中，在表單forml上建立2個(gè)編輯框?qū)ο骵ditl、edit2和一個(gè)按鈕對(duì)

象。對(duì)forml的buttonl編寫的代碼如下：

procedureTForml.ButtonlClick(Sender:TObject);

var

g:integer;

begin

g:=strtoint(editl.text);

if(g>=85)and(g<=100)then

edit2.text:=“優(yōu)秀”

else

if(g>=55)and(g<85)then

edit2.text:=“通過"

else

if(g>0)and(g<55)then

edit2.text:=”重考”

else

edit2.text:=”輸入有誤”；

end;

閱讀上面代碼，當(dāng)在editl中輸入0時(shí)，edit2的顯示結(jié)果

為o

第20頁(yè)共26頁(yè)

A、重考

B、優(yōu)秀

C、輸入有誤

D、不通過

正確答案：C

81.請(qǐng)閱讀下面程序，并填寫運(yùn)行結(jié)果：

下面是一個(gè)函數(shù)F的程序代碼。

FunctionF(n:integer);〃函數(shù)聲明

Vari,s:integer;

Begin

s:=0;

Fori:=1ton〃循環(huán)

s:=s+i;〃累加

result:=s;〃返回計(jì)算結(jié)果

End;

當(dāng)n為5,該函數(shù)的返回值為0

A、10

B、5

C、20

D、15

正確答案：D

82.本程序設(shè)計(jì)界面如下圖所示:

第21頁(yè)共26頁(yè)

procedureTForml.ButtonlClick(Sender:TObject);//“計(jì)算”按鈕

var

i,n,sum:integer;

begin

sum:=0;

i:=1;

n:=StrToInt(editl.text);〃讀入

whilei<=ndo〃循環(huán)語(yǔ)句

begin

ifimod3=0thensum:=sum+i;

i:=i+1;

end;

edit2.Text:=IntToStr(sum);〃將結(jié)果在編輯框中顯示

end;

用戶在editl中輸入一個(gè)正整數(shù)7,則在edit2中顯示計(jì)算結(jié)果為:

A、7

B、8

C、9

D、0

正確答案：C

83.本程序設(shè)計(jì)界面如下圖所示：

procedureTForml.ButtonlClick(Sender:TObject);//“計(jì)算”按鈕

var

i,n,sum:integer;

begin

sum:=0;

i：=1；

n:=StrToInt(editl.Text);〃讀入正整數(shù)n

第22頁(yè)共26頁(yè)

whilei<=ndo〃循環(huán)語(yǔ)句

begin

ifodd(i)thensum:=sum+i;

i:=i+1;

end;

edit2.Text:=IntToStr(sum);〃將結(jié)果在編輯框中顯示

end;

用戶在editl中輸入一個(gè)正整數(shù)7,則在edit2中顯示計(jì)算結(jié)果為:

A、7

B、14

C、16

D、21

正確答案：C

84.本程序設(shè)計(jì)界面如下，請(qǐng)閱讀程序?qū)懗鼋Y(jié)果：

“檢測(cè)”(Buttonl)按鈕的事件處理程序。

procedureTForml.ButtonlClick(Sender:TObject);

var

R: