vfp期末考試試題

一、選擇題（每題1分）

1、在關(guān)系模型中，關(guān)系規(guī)范化的過程是通過關(guān)系屬性中的分解和關(guān)系模式中的分解來實(shí)現(xiàn)的。在實(shí)際應(yīng)用中，設(shè)計(jì)關(guān)系模式是一般規(guī)定滿足

。

A．1NF

B．3NF

C．2NF

D．4NF

2、下列有關(guān)關(guān)系的規(guī)范化的說法中，不對(duì)的的是

。

A、

屬性值是原子值，不可分解

B、

二維表中不容許出現(xiàn)完全相似的兩行

C、

二維表中行、列的次序均可任意互換

D、

二維表中容許出現(xiàn)相似的屬性

E、

3、聯(lián)接運(yùn)算是根據(jù)給定的聯(lián)接條件將兩個(gè)關(guān)系拼成一種新的

。

A、元組

B、關(guān)系

C、屬性

D、列

4、數(shù)據(jù)庫表的記錄有效性規(guī)則的設(shè)置可以實(shí)現(xiàn)

。

A．域完整性

B．參照完整性

C．實(shí)體完整性

D．顧客自定義完整性

5、函數(shù)SELECT（0）的返回值是

。

A．目前工作區(qū)號(hào)

B．目前未被使用的最小工作區(qū)號(hào)

C．目前工作區(qū)的下一種工作區(qū)

D．目前未被使用的最大工作區(qū)號(hào)

6、設(shè)變量x的值為“abcd

”（其長(zhǎng)度為5，末尾為一種空格字符），變量y的值為“

abcd”(其長(zhǎng)度為5，第一種字符為空格)，則體現(xiàn)式LEN(X+Y)和LEN（x-y）的返回值分別為

。

A．10，8

B．10，9

C．8，8

D．10，10

7、如下幾組體現(xiàn)式中，返回值均為.T.（真）的是

。

A．EMPTY({})、ISNULL（SPACE（0））、EMPTY（0）

B．EMPTY（0）、ISBLANK（SPACE（0））、ISNULL（.NULL.）

C．EMPTY（SPACE（0））、ISBLANK（0）、EMPTY（0）

D．EMPTY（{}）、EMPTY（.NULL.）、EMPTY（0）8、設(shè)某數(shù)據(jù)庫中的學(xué)生表（XS.DBF）已在2號(hào)工作區(qū)中打開，且目前工作區(qū)為1號(hào)工作區(qū)，則下列命令中不能將該XS表關(guān)閉的是

。

A．CLOSE

TABLES

ALL

B．CLOSE

DATEBASE

ALL

C．USE

IN

2

D．USE

9、JS（教師）表中有XG（性格，備注型）等字段，使用

命令可以直接瀏覽/輸出所有記錄的XG字段的詳細(xì)內(nèi)容（即備注中的信息）。

A．USE

JS

LIST

OFF

XG

B．SELECT

XG

FROM

JS

C．USE

JS

BROWSE

FIELD

XG

D．USE

JS

?XG

10、數(shù)據(jù)庫表的有效性規(guī)則保留在

。

A．項(xiàng)目文獻(xiàn)中

B．?dāng)?shù)據(jù)庫文獻(xiàn)中

C．?dāng)?shù)據(jù)庫表文獻(xiàn)中

D．?dāng)?shù)據(jù)庫表的備注文獻(xiàn)中

11、依次執(zhí)行下列命令后，瀏覽窗口中顯示的表的別名及目前工作區(qū)號(hào)分別是

。

CLOSE

TABLES

ALL

SELECT

0

USE

JS

SELECT

0

USE

JS

AGAIN

BROWSE

A．B、2

B．JS、2

C．B、5

D．E、2

12、在下列有關(guān)數(shù)據(jù)庫及表的論述中，錯(cuò)誤的是

A.

一種項(xiàng)目中可以包括多種數(shù)據(jù)庫文獻(xiàn)，且一種數(shù)據(jù)庫文獻(xiàn)也可以包括在多種項(xiàng)目中

B.

一種表不可以附屬于兩個(gè)或兩個(gè)以上的數(shù)據(jù)庫

C.

創(chuàng)立一種數(shù)據(jù)庫后，一般在外部存儲(chǔ)器中生成三個(gè)文獻(xiàn)

D.

表與表之間的永久性關(guān)系只能基于主索引來創(chuàng)立

13、打開一種非空記錄的表，若未作任何與記錄指針移動(dòng)有關(guān)的操作，則執(zhí)行命令“？RECNO（），BOF（），EOF（）”后屏幕上應(yīng)顯示

。

A．0、.T.和.T.

B．0、.T.和.F.

C．1、.T.和.T.

D．1、.F.和.F.

14、在下列有關(guān)數(shù)據(jù)庫及表的論述中，錯(cuò)誤的是

。

A．在打開數(shù)據(jù)庫表時(shí)，有關(guān)的數(shù)據(jù)庫不會(huì)自動(dòng)的被打開

B．使用CLOSE

DATABASE

ALL

命令關(guān)閉數(shù)據(jù)庫時(shí)，將關(guān)閉所有的已打開的表

C．一種表可以在多種工作區(qū)中被打開

D．運(yùn)用項(xiàng)目管理器中的“移去”操作刪除數(shù)據(jù)庫時(shí)，數(shù)據(jù)庫中的所有表均轉(zhuǎn)換成自由表15、設(shè)目前工作目錄（文獻(xiàn)夾）中有一種表文獻(xiàn)ABC.DBF，該表僅有兩個(gè)字段（字段名分別為xx和yy，字段類型均為字符型，寬度均為10），且具有多條記錄。下列SELECT-SQL命令中，語法錯(cuò)誤的是

。

A．SELECT

1，2，3

FROM

abc

ORDER

BY

3

B．SELECT

xx，COUNT（yy）FROM

abc

GROUP

BY

yy

C．SELECT

xx，SUM（yy）FROM

abc

GROUP

BY

xx

ORDER

BY

2

D．SELECT

xx+yy，xx-yy

FROM

abc

TO

PRINTER

16、設(shè)目前工作目錄（文獻(xiàn)夾）中有一種表文獻(xiàn)XX.DBF，該表具有多條記錄。下列SELECT-SQL命令中，語法錯(cuò)誤的是

A.

SELECT

*

FROM

xx

TO

ARRAY

temp

B.

SELECT

*

FROM

xx

INTO

CURSOR

temp

C.

SELECT

*

FROM

xx

INTO

TABLE

temp

D.

SELECT

*

FROM

xx

TO

FILE

temp

17、在Visual

FoxPro

系統(tǒng)中，邏輯運(yùn)算符執(zhí)行的優(yōu)先次序由大到小依次是

。

A、NOT、AND、OR

B、NOT、OR、AND

C、AND、NOT、OR

D、OR、NOT、AND

18、下列自定義函數(shù)NTOC（）的功能是：當(dāng)傳送一種1~7之間的數(shù)值型參數(shù)時(shí)，返回一種中文形式的“星期一~星期日”。例如，執(zhí)行命令？NTOC（3），顯示“星期三”。

FUNCTION

NTOC

PARAMETERS

N

LOCAL

CH

CH=”一二三四五六日”

MCH=”星期”+SUBSTR(CH,

,2)

RETURN

MCH

ENDFUNC

A.N

B.2*N

C.

2*N-1

D.2*N+1

19、對(duì)于VFP中的參照完整性規(guī)則，下列論述不對(duì)的的是

。

A．更新規(guī)則是當(dāng)父表中記錄的關(guān)鍵字值被更新時(shí)觸發(fā)

B．刪除規(guī)則是當(dāng)父表記錄被刪除時(shí)觸發(fā)

C．插入規(guī)則有兩個(gè)選項(xiàng)：限制、忽視

D．插入規(guī)則是當(dāng)父表中插入或更新記錄時(shí)觸發(fā)

20、表單的name屬性是用于

。

A.作為保留表單時(shí)的文獻(xiàn)名

B.引用表單對(duì)象

C.顯示在表單標(biāo)題欄中

D.作為運(yùn)行表單程序時(shí)的程序名

21、將表單中的所有文本框的enabled屬性設(shè)置為假，可在表單的init事件處理代碼中用setall措施進(jìn)行設(shè)置。下列表述中，命令對(duì)的的是

。

A．THISFORM.SETALL（“ENABLED”，“.F.”，“TEXTBOX”）

B．THISFORM.SETALL（ENABLED，“.F.”，TEXT）

C．THISFORM.SETALL（“ENABLED”，.F.，“TEXTBOX”）

D．THISFORM.SETALL（“ENABLED”，.F.）22、在下列有關(guān)控件的論述中，錯(cuò)誤的是

。

A．對(duì)于標(biāo)簽控件（LABEL）的CAPTION屬性來說，其長(zhǎng)度（即字符個(gè)數(shù)）沒有限制

B．復(fù)選框控件（CHECKBOX）的VALUE屬性值可以設(shè)為0，或1，或2

C．有些控件沒有CAPTION屬性，如文本框（TEXTBOX）

D．有些控件可以通過對(duì)應(yīng)的生成器設(shè)置其部分屬性，例如命令按鈕組（COMMANDGROUP）

23、設(shè)表單form1上有一種命令按鈕組commandgroup1，命令按鈕組中有兩個(gè)命令按鈕（分別為cmd1和cmd2）。若單擊命令按鈕cmd2，可以將命令按鈕cmd1設(shè)置為廢止?fàn)顟B(tài)，則在命令按鈕cmd2的click事件中，應(yīng)包括

命令（或功能與之等價(jià)的命令）。

A．this.parent.cmd2.enabled=.F.

B．thisform.cmd2.enabled=.F.

C．mandgroup1.cmd2.enabled=.F.

D．this.

parent.cmd1.enabled=.F.

24、在下列有關(guān)表單及某些控件的論述中，錯(cuò)誤的是

。

A．顧客可認(rèn)為表單創(chuàng)立新的措施和新的屬性，但不能創(chuàng)立新的事件

B．若將表單的ControlBox屬性設(shè)置為.F.，則表單無最大化、最小化按鈕，但有關(guān)閉按鈕

C．標(biāo)簽控件的Backstyle屬性的默認(rèn)值為1，即標(biāo)簽的背景為不透明

D．組合框控件可以設(shè)置為下拉組合框或下拉列表框，其區(qū)別在于：前者既可以輸入數(shù)據(jù)、也可以在下拉列表中選擇一種數(shù)據(jù)，而后者只能在下拉列表中選擇一種數(shù)據(jù)

25、在下列幾組控件中，均可直接添加到表單中的是

。

A．commandgroup、optionbutton、textbox

B．page、

pageframe

、grid

C．commandbutton、

pageframe、

editbox

D．textbox、

column

、header

26、若運(yùn)用菜單設(shè)計(jì)器創(chuàng)立一種菜單后運(yùn)行該菜單文獻(xiàn)，則生成下列4個(gè)擴(kuò)展名的有關(guān)文獻(xiàn)。在這4個(gè)文獻(xiàn)中，文獻(xiàn)類型是文本文獻(xiàn)且可以運(yùn)用DO命令執(zhí)行的是

。

A．MNX

B．MNT

C．MPR

D．MPX

27、在下列有關(guān)報(bào)表的論述中，錯(cuò)誤的是

。

A．定義報(bào)表的兩個(gè)要素是報(bào)表的數(shù)據(jù)源和報(bào)表的布局

B．報(bào)表的數(shù)據(jù)源只能是表

C．報(bào)表布局的常規(guī)類型有列報(bào)表、行報(bào)表、一對(duì)多報(bào)表等

D．標(biāo)簽實(shí)質(zhì)上是一種多列布局的特殊報(bào)表

28、在下列幾組文獻(xiàn)類型中，均可設(shè)置為項(xiàng)目主程序的是

。

A．表單、菜單和.PRG程序

B．查詢、菜單和表

C．項(xiàng)目、數(shù)據(jù)庫和.PRG程序

D．表單、查詢、報(bào)表

29、下列類的特性中，___

___體現(xiàn)并擴(kuò)充了面向?qū)ο蟪绦蛟O(shè)計(jì)措施的共享機(jī)制。

A．抽象性

B．多態(tài)性

C．封裝性

D．繼承性30、在Visual

FoxPro

系統(tǒng)中，顧客不能自定義___

___。

A．對(duì)象的屬性

B．對(duì)象的措施

C．對(duì)象的事件

D．對(duì)象所基于的類

31、在Visual

FoxPro

中，創(chuàng)立__

___將不以獨(dú)立的文獻(xiàn)存儲(chǔ)。

A．查詢

B．類庫

C．視圖

D．菜單

32、表格控件的數(shù)據(jù)源類型只能是___

__。

A．表

B．表或視圖

C．表或查詢

D．表、視圖或查詢

33、在基類的最小屬性集中，表達(dá)該類附屬于哪種類庫的關(guān)鍵字為

。

A、CLASS

B、CLASSLIBRARY

C、PARENTCLASS

D、BASECLASS

34、下列程序的功能是記錄字符串中包括多少個(gè)中文字符，多少個(gè)英文字符（設(shè)字符串中的所有字符均為GB2312字符集中的字符或ASC

II碼字符）。從語法和語義上看，下列程序中存在______行錯(cuò)誤語句。

cString=“在下列

Visual

FoxPro

的基類中，無

Caption屬性的基類是哪幾種？”

STORE

0

TO

nCh

,nEn

DO

WHILE

cString

#

0

c=LEFT(cString

,1)

IF

ASC(c)<127

nEn=nEn+1

cString=SUBSTR(cString

,2)

ELSE

nCh=nCh+1

cString=SUBSTR(cString

,3)

ENDIF

ENDDO

WAIT

WINDOWS“中西文字符個(gè)數(shù)分別為”+nCh+nEn

A

.

1

B

.

2

C

.

3

D.

4

35、MyLabel

是派生于標(biāo)簽基類的子類，該子類的BackColor屬性為紅色。在某表單上創(chuàng)立一種基于Mylabel

類的標(biāo)簽對(duì)象Lb1

，該對(duì)象的BackColor

屬性為黃色，則當(dāng)運(yùn)行該表單時(shí)，Lb1對(duì)象的背景顏色是__

__。

A

灰色

B

紅色

C

黃色

D

紅色與黃色的調(diào)配色

36、下列有關(guān)表單可用事件來說，

事件最終一種被觸發(fā)。

A．LOAD

B．ACTIVATE

C．INIT

D．TIMER

37、.

在下列有關(guān)VFP對(duì)象（控件）的論述中，錯(cuò)誤的是

。

A、復(fù)選框控件的VALUE值只能為1（.T.）或0（.F.），不能為空值（.NULL.）

B、一種標(biāo)簽控件可多行顯示文本

C、命令按鈕控件上可同步顯示文本和圖片

D、表格中的每一列都是容器對(duì)象，并且擁有自己的屬性、事件和措施

38、運(yùn)行下列程序后，VFP主窗口顯示的成果是

。

CLEARN=0

DO

WHILE

N<10

IF

INT（N/2）=N/2

？“W”

ENDIF

？？“FOX”

N=N+1

ENDDO

A、顯示5行，內(nèi)容均為WFOXFOX

B、顯示5行，內(nèi)容均為WFOXWFOX

C、顯示4行，內(nèi)容均為WFOXFOX

D、顯示4行，內(nèi)容均為FOXFOXW

39、下列有關(guān)表單數(shù)據(jù)環(huán)境的論述中，錯(cuò)誤的是

。

A、表單運(yùn)行時(shí)自動(dòng)打開其數(shù)據(jù)環(huán)境中的表

B、數(shù)據(jù)環(huán)境是表單的容器

C、可以在數(shù)據(jù)環(huán)境中建立表之間的關(guān)系

D、可以在數(shù)據(jù)環(huán)境中加入視圖

40、在下列機(jī)組VFP基類中，均具有CONTROLSOURCE屬性的是

。

A、LISTBOX、LABEL、OPTIONBUTTON

B、COMBOBOX、EDITBOX、GRID

C、COMBOBOX、GRID、TIMER

D、EDITBOX、CHECKBOX、OPTIONBUTTON

二、填空題（每空2分）

1、數(shù)據(jù)庫是一種容器，是許多有關(guān)的數(shù)據(jù)庫表及其關(guān)系的集合。數(shù)據(jù)庫一般包括兩部分，一是按一定的數(shù)據(jù)模型組織并實(shí)際存儲(chǔ)的所有應(yīng)用需要的數(shù)據(jù)，二是寄存在數(shù)據(jù)字典中的多種描述信息。這些描述信息是有關(guān)數(shù)據(jù)的“數(shù)據(jù)”，稱為“_

(1)

____”。

2、在VFP中，與表操作有關(guān)的系統(tǒng)函數(shù)有多種，例如EOF（）、BOF（）、USED（）等。用于返回目前工作區(qū)中已打開表的字段數(shù)目的函數(shù)是

(2)

。

3、在VFP中，表達(dá)范圍的短語REST的含義為

(3)

。

4、為了用顏色辨別表格的奇數(shù)列與偶數(shù)列，在Grid子類myGrid中定義了一種新措施SETBKCOLOR和兩個(gè)新屬

性：COLOR1和COLOR2。SETBKCOLOR措施把表格奇數(shù)列的背景色設(shè)置為COLOR1屬性所指定的顏色值,

偶數(shù)列的背景色設(shè)置為COLOR2屬性所指定的顏色值。新措施SETBKCOLOR的程序代碼如下述代碼所示，

請(qǐng)將它寫完整：

LOCAL

i

FOR

i=1

TO

ColumnCount

This.

Column(i)

.BackColor=IIF(i%2=1,This.color1,

(4)

)

ENDFOR

5、JS表中具有一種備注型字段，字段名為JL。完善下面程序，其功能是記錄"計(jì)算機(jī)"一詞在XS表的簡(jiǎn)歷字段中出現(xiàn)的次數(shù)。注：OCCURS（）函數(shù)的功能是返回前一種字符體現(xiàn)式在后一種字符體現(xiàn)式中出現(xiàn)的次數(shù)。USE

JS

mSUM=0

SCAN

X=JL

&&簡(jiǎn)歷字段的值賦予內(nèi)存變量X

mSUM=mSUM+OCCURS（“計(jì)算機(jī)”，X）

ENDSCAN

？“計(jì)算機(jī)”一詞在XS表的簡(jiǎn)歷字段中共出現(xiàn)：”+ALLTRIM（

(5)

）+“次”。

6、在表的使用中，我們常使用ALTER

TABLE命令修改表的構(gòu)造。對(duì)于命令A(yù)LTER

TABLE

tablename

ADD

|ALTER

[COLUMN

]…

中的ADD子句用于增長(zhǎng)字段，后一種ALTER用于

(6)

字段。

7、函數(shù)STRTRAN（STR（35.96，12），SPACE（2），“*”）的返回值為

(7)

。（提醒：系統(tǒng)函數(shù)STRTRAN（<字符串1>，<字符串2>，<字符串3>）的功能是用<字符串3>替代<字符串1>中所包括的<字符串2>）

8、在VFP中，

(8)

是保留在數(shù)據(jù)庫中的過程代碼，它由一系列顧客自定義函數(shù)（過程）或在創(chuàng)立表之間參照完整性規(guī)則時(shí)系統(tǒng)創(chuàng)立的函數(shù)（過程）構(gòu)成。

9、體現(xiàn)式SUBSTR（“計(jì)算機(jī)等級(jí)考試”，AT（“ABCD”，“ABCDEFDBMS”），LEN（“數(shù)據(jù)庫”））的返回值為

(9)

。

10、依次執(zhí)行下列兩條命令，則屏幕上顯示的成果是

(10)

。

[程序清單]

DIMENSION

y(2)

y=2

?y(2)

6、在Visual

FoxPro系統(tǒng)中，可以實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫的三種完整性：

（11）

、參照完整性和顧客自定義完整型。

7、創(chuàng)立一種教師表（JS.DBF），其中有字段gh（工號(hào)，字符型，長(zhǎng)度為6）、xm（姓名，字符型，長(zhǎng)度為10）、xb（性別，字符型，長(zhǎng)度為2）、csrq（出生日期，日期型，長(zhǎng)度為8）。

CREATE

TABLE

JS（gh

C(6),xm

C(10),xb

C(2),csrq

（12）

）

8、運(yùn)用DBGETPROP（）函數(shù)可以返回目前數(shù)據(jù)庫的屬性，或者返回目前數(shù)據(jù)庫中表、表的字段或視圖屬性。例如，函數(shù)DBGETPROP（“XS.XH”，“

（13）

”，“Defaultvalue”）可以返回XS表XH字段的默認(rèn)值屬性。

9、運(yùn)用COPY

TO命令可以將目前工作區(qū)中表的所有或部分?jǐn)?shù)據(jù)復(fù)制到其他表文獻(xiàn)或其他類型的文獻(xiàn)中。例如，使用COPY

TO

temp

FOR

RECNO()<11

（14）

命令，可以將目前工作區(qū)中表的前10條記錄復(fù)制到TEMP文獻(xiàn)中，且TEMP文獻(xiàn)為文本文獻(xiàn)。

10、運(yùn)用VALIDATE

DATABASE命令可以檢查數(shù)據(jù)庫的有效性和更新數(shù)據(jù)庫與表之間的鏈接。例如，打開數(shù)據(jù)庫后，可以使用命令VALIDATE

DATABASE

（15）

來檢查數(shù)據(jù)庫的有效性并更新鏈接（注：如沒有填寫的關(guān)鍵字，則僅檢查數(shù)據(jù)庫的有效性）。

12、假如因誤操作刪除了某個(gè)數(shù)據(jù)庫文獻(xiàn)，由于數(shù)據(jù)庫表仍然保留對(duì)該數(shù)據(jù)庫的引用的后鏈，因此這些數(shù)據(jù)庫表也不能被添加到其他的數(shù)據(jù)庫中。這時(shí)需要運(yùn)用

（16）

命令刪除存儲(chǔ)在數(shù)據(jù)庫表中的后鏈，使之成為自由表。13、數(shù)據(jù)庫JXSJ中有JS（教師）表、KCAP（課程安排）表和KC（課程）表。教師表中有GH（工號(hào)）、XM（姓名）等字段；課程安排表中有GH（工號(hào)）、KCDM（課程代碼）和BJBH（班級(jí)編號(hào)）等字段；課程表中有KCDM（課程代碼）、KCMC（課程名稱）和KSS（周課時(shí)數(shù)，數(shù)值型）等字段。若周課時(shí)總數(shù)<=9時(shí)，每課時(shí)津貼30元；周課時(shí)總數(shù)>9時(shí)，超過部分每課時(shí)津貼80元，則下列SELECT-SQL命令可以記錄每位教師周課時(shí)總數(shù)以及周課時(shí)津貼，且按周課時(shí)津貼降序排列，查詢?nèi)ハ驗(yàn)槲谋疚墨I(xiàn)rs.txt。

SELECT

js.gh

as

工號(hào),js.xm

as

姓名，sum(kc.kss)

as

周課時(shí)總數(shù)，；

(17)

as

周課時(shí)津貼；

From

jxsj!js

inner

join

jxsj!kcap；

Inner

join

jxsj!kc；

On

kcap.kcdm=kc.kcdm；

On

js.gh=kcap.gh；

Group

by

js.gh；

Order

by

(18)

desc；

To

file

Rs.txt

14、在某教學(xué)管理數(shù)據(jù)庫中有一種學(xué)生表（XS.DBF）和成績(jī)表（CJ.DBF），其表構(gòu)造及所含

記錄數(shù)據(jù)如表1所示。

表1

學(xué)生表的表構(gòu)造及記錄和成績(jī)表的構(gòu)造及記錄

學(xué)生（XS）表

成績(jī)（CJ）表

字段含義

姓名

學(xué)號(hào)

學(xué)號(hào)

課程代號(hào)

成績(jī)

數(shù)據(jù)類型

C

C

C

C

N

字段名

XM

XH

XH

KCDH

CJ

記

錄

張山

010201

010201

01

65

劉芳

010202

010201

02

76

李勇

010203

010202

02

70

010202

03

80

010202

04

81

(1)對(duì)于下面的SELECT－SQL語句，若將聯(lián)接設(shè)置為完全聯(lián)接，其查詢成果具有

(19)

條記錄。

SELECT

*

FROM

db1!xs

(20)

join

db1!cj

ON

Xs.xh

=

Cj.xh

(2)查詢每門課程選修的人數(shù)，并把查詢成果存到表文獻(xiàn)rs_cj.dbf中，可以用SQL語句如下：

SELECT

Cj.kcdh,

count(*)

as

人數(shù);

FROM

db1!cj;

GROUP

BY

（21

）

;

INTO

DBF

rs_cj.dbf

15、在VFP命令窗口中輸入并執(zhí)行命令

（22）

.fontsize=20，可以使VFP主窗口中輸出文本的字號(hào)設(shè)置為20。

16、某“抽獎(jiǎng)”表單上有2個(gè)標(biāo)簽、1個(gè)文本框、1個(gè)計(jì)時(shí)器、2個(gè)命令按鈕和1個(gè)列表控件，其數(shù)據(jù)環(huán)境中有一自由表gztable，該表有兩個(gè)字段：TEL（字符型，用于存儲(chǔ)參與者的手機(jī)號(hào)碼）和YN（邏輯型，其值為.T.時(shí)表達(dá)該參與者被抽中）。在表單設(shè)計(jì)器中設(shè)計(jì)表單時(shí)，表單如圖1所示；表單運(yùn)行后單擊“開始”命令按鈕，命令按鈕標(biāo)題改為“停止”，且啟用計(jì)時(shí)器控件使得文本框中循環(huán)顯示gztable表中的手機(jī)號(hào)碼，單擊“停止”命令按鈕時(shí)表單如圖2所示（計(jì)時(shí)器控件廢止）。

9

圖1表單設(shè)計(jì)時(shí)

圖2第一次抽獎(jiǎng)后

（1）根據(jù)圖1和圖2所示，“開始”命令按鈕的標(biāo)題為“華文行楷”字體，另一種命令按鈕（即“退出”命令按鈕）顯示的圖片由EXIT.ICO文獻(xiàn)提供，計(jì)時(shí)器的初始狀態(tài)為不啟用，其

（23）

屬性值應(yīng)設(shè)置為.F.；若計(jì)時(shí)器啟用時(shí)激發(fā)Timer事件的時(shí)間間隔為0.4秒，其Interval屬性值應(yīng)設(shè)置為

（24）

。

（2）根據(jù)圖1和圖2所示的表單，表單及各控件的事件代碼設(shè)置分別為：

表單的Init事件代碼為：

THISFORM.Text1.ControlSource=tel

REPLACE

ALL

yn

WITH

.F.

GOTO

TOP

“開始”命令按鈕Click事件代碼為：

IF

THIS.Caption=’開始’

LOCATE

FOR

!yn

THISFORM.Timer1.Enabled=.T.

THIS.Captioon=’停