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

國家開放大學

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

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

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

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è)計的基本特點是（）

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

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

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

D、A和C

正確答案：D

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

A、57

B、69

C、59

D、60

正確答案：C

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

A、多態(tài)性

B、自頂向下

C、模塊化

D、逐步求精

正確答案：A

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

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

A、For

B、While

第1頁共26頁

C、goto

D、Do

正確答案：c

6.利用對象監(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.下列表達式中（）不是布爾表達式。

A、A=3

B、AdivB

C、AandB

D、A>B

正確答案：B

10.下列說法錯誤的是（）

A、窗體文件的擴展名為.dfm

B、一個窗體對應(yīng)一個窗體文件

第2頁共26頁

C、Delphi中的一個工程只包含一個窗體

D、rdpr和.~pas是備份文件，便于用戶恢復到較早的一個項目版本。

正確答案：C

11.下面哪個不是對象的三個要素之一（）

A、事件

B、名稱

C、屬性

D、方法

正確答案：B

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

A、name

B、Caption

C、kind

D、type

正確答案：c

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

A、鼠標單擊編輯框

B、鼠標雙擊編輯框

C、在編輯框中選擇文本

D、在編輯框中輸入文本

正確答案：D

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

A、AutoSize

B、OnChange

C、SetFocus

D、SetText

正確答案：B

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

A、Color

B、Font

第3頁共26頁

C、back

D、red

正確答案：A

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

檢查（）

A、OnClick

B、OnEnter

C、OnMouseUp

D、OnKeyPress

正確答案：D

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

A、命令按鈕

B、文本標簽控件

C、Edit控件

D、Timer控件

正確答案：C

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

A、repeat語句

B、while語句

C、for語句

D、next語句

正確答案：D

19.下面哪個組件不是容器組件（）

A、Form

B、Panel

C、GroupBox

D、MaskEdit

正確答案：D

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

A、Caption

第4頁共26頁

B、Name

C、Text

D、Label

正確答案：A

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

A、ComboBox

B、ListBox

C、RadioGroup

D、Memo

正確答案：D

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

A、editl.Clear;

B、editl.Focused；

C、editl.Text=null;

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

正確答案：A

23.在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1的標簽,

然后編寫如下事件過程：

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;

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

A、5

B、15

C、20

第5頁共26頁

D、25

正確答案：A

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

A、Step

B、Scroll

C、Position

D、Max

正確答案：C

25.下列說明錯誤的是（）

A、OpenDialog是打開文件對話框。

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

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

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

正確答案：D

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

A、&

B、$

C、%

D、@

正確答案：A

27.工具欄上的一個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)系（如“左對齊”、“居中”、“右

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

第6頁共26頁

A、Grouplndex屬性值都為0

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

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

D、Grouplndex屬性值互不相同

正確答案：C

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

A、Button

B、RadioButton

C、SpeedButton

D、BitBtn

正確答案：c

30.以下敘述中錯誤的是（）

A、一個項目包含不止一種類型的文件。

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

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

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

正確答案：C

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

A、TabControl

B、PageScroller

C、HeaderControl

D、PageControl

正確答案：D

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

A、.dcu

B、.dfm

C、.pas

D、.dpr

正確答案：B

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

第7頁共26頁

A、Polyline

B、Ellipse

C、Rect

D、LineTo

正確答案：D

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

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

A、Stretch

B、AutoSize

C、Align

D、Center

正確答案：A

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

A、Image

B、Picture

C、Grid

D、Load

正確答案：B

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

A、Nol

B、First

C、Next

D、End

正確答案：B

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

A、DBEdit

B、DBText

C、DBRadioGroup

D、DBCheckBox

正確答案：B

第8頁共26頁

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

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的控件

是哪個？（）

A、DBText

B、DBEdit

C、DBNavigator

D、Query

正確答案：C

41.Delphi程序在對數(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頁共26頁

正確答案：D

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

A、databasename

B、active

C、Name

D、datasource

正確答案：A

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

A、EOF

B、BOF

C、GETLAST

D、GetFirstRecord

正確答案：B

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

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

象的主要特征。

T、V

F、X

正確答案：To

46.一個對象可以具有多個屬性，但只能有一個方法。一個對象可以具有多個屬

性，但只能有一個方法。

T、V

F、X

正確答案：Fo

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

屬性值〉；在Delphi程序運行時動態(tài)設(shè)置屬性的一般格式是：〈對象名〉.〈屬性

名>==〈屬性值〉；

T、V

F、X

正確答案：Fo

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

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

變量命名。

第10頁共26頁

T、V

F、X

正確答案：To

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

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

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

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

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

T、V

F、X

正確答案：Fo

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

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

來實現(xiàn)。

T、V

F、X

正確答案：To

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

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

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

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

T、V

F、X

正確答案：Fo

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

但是，一個父類只能擁有一個子類。

T、V

F、X

正確答案：Fo

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

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

T、V

F、X

正確答案：Fo

第n頁共26頁

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

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

T、V

F、X

正確答案：To

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

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

對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標簽中文本不可以換行。label標簽中文本不可以換行。

T、V

F、X

正確答案：To

59.在一個項目中，可以指定任意一個窗體為主窗體。在一個項目中，可以指定

任意一個窗體為主窗體。

T、V

F、X

正確答案：To

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

可以不同。

T、V

F、X

第12頁共26頁

正確答案：Fo

61.若已在窗體中加入了一個OpenDialog對象，要求在運行時，打開對話框時只

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

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

在運行時，打開對話框時只顯示擴展名為TXT的文件，則對通用對話框的Filter

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

T、V

F、X

正確答案：To

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

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

文件中。

T、V

F、X

正確答案：Fo

63.Delphi中的菜單項有3種類型：普通按鈕型、復選框型和單選按鈕型。Delphi

中的菜單項有3種類型：普通按鈕型、復選框型和單選按鈕型。

T、V

F、X

正確答案：To

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

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

T、V

F、X

正確答案：To

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

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

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

T、V

F、X

正確答案：To

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

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

T、V

F、X

第13頁共26頁

正確答案：To

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

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

點，并能接受用戶的輸入，然后顯示。

T、V

F、X

正確答案：Fo

68.一個Query對象同一時刻可以無限制地存儲多條SQL語句。一個Query對象

同一時刻可以無限制地存儲多條SQL語句。

T、V

F、X

正確答案：Fo

69.在程序運行期間，一個Query對象中的SQL語句可以修改。在程序運行期間，

一個Query對象中的SQL語句可以修改。

T、V

F、X

正確答案：To

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

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

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

T、V

F、X

正確答案：To

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

DataControls組件標簽頁上，所有的數(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頁共26頁

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兩個屬性值。單字段數(shù)據(jù)感知控件（例如DBText、DBEdit等）都必

須指定DataSource和DataField兩個屬性值。

T、V

F、X

正確答案：To

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

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

T、V

F、X

正確答案：Fo

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

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

輸入數(shù)字9,edit2輸入數(shù)字3的時候，執(zhí)行下面的程序段，請選擇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頁共26頁

A、3

B、2

C、1

D、0

正確答案：A

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

說明如下：

窗體Forml上放置2個按鈕對象Buttonl（運算鍵）、Button2（退出），3個編

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

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

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

界面上對象的代碼如下:

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頁共26頁

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;

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

5的時候，點擊“運算鍵”執(zhí)行后，請寫出edit3顯示的內(nèi)容。

A、操作數(shù)為空

第17頁共26頁

B、2余3

C、0

D、4余3

正確答案：D

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

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

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

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

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

指定職稱。右邊放置一個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;

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

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

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

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

第18頁共26頁

C、顯示多行文本：

張曉林+

女+

中文+

副教授

D、顯示多行文本：

張曉林

女

中文

副教授

正確答案：D

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

在Forml上建立一個Panell對象作為顯示時間的面板，建立Timerl對象，并將

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

建立一個全局整型變量TimeCTo

代碼如下：

procedureTForml.TimerlTimer(Sender:TObject);

begin

panell.Caption:=Timetostr(time);

TimeCT:=TimeCT+1;

第19頁共26頁

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;

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

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

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

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

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

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

正確答案：D

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

象。對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;

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

為o

第20頁共26頁

A、重考

B、優(yōu)秀

C、輸入有誤

D、不通過

正確答案：C

81.請閱讀下面程序，并填寫運行結(jié)果：

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

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

Vari,s:integer;

Begin

s:=0;

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

s:=s+i;〃累加

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

End;

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

A、10

B、5

C、20

D、15

正確答案：D

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

第21頁共26頁

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

var

i,n,sum:integer;

begin

sum:=0;

i:=1;

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

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

begin

ifimod3=0thensum:=sum+i;

i:=i+1;

end;

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

end;

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

A、7

B、8

C、9

D、0

正確答案：C

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

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

var

i,n,sum:integer;

begin

sum:=0;

i：=1；

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

第22頁共26頁

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

begin

ifodd(i)thensum:=sum+i;

i:=i+1;

end;

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

end;

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

A、7

B、14

C、16

D、21

正確答案：C

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

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

procedureTForml.ButtonlClick(Sender:TObject);

var

R: