2023年vfp表單所有習(xí)題參考答案

VFP表單實(shí)驗(yàn)參考講義

一、標(biāo)簽和文本框

（一）

題目規(guī)定：

（1）該表單的名稱為“Forml”，標(biāo)題為“密碼輸入窗口”，高度為190,寬度為300；（2）定義一個(gè)名稱為“Labell”、

標(biāo)題為“請(qǐng)輸入密碼”、字號(hào)為10磅的標(biāo)簽；（3）定義一個(gè)名稱為“"fextl”的文本框，用于輸入密碼，當(dāng)輸入密碼時(shí)，

屏幕顯示“松；（4）定義一個(gè)名稱為“Label”的標(biāo)簽，標(biāo)題為空，自動(dòng)調(diào)整控件大小；（5）定義一個(gè)名稱為“Commandl”,

標(biāo)題為“顯示密碼”的按鈕，當(dāng)單擊該按鈕時(shí)，標(biāo)簽“Label2”顯示輸入的密碼，編寫(xiě)Click事件代碼（6）定義?個(gè)名稱

為“Command，，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單。（不得退出VFP系統(tǒng)）

操作要點(diǎn)：

1）注意將textl的屬性passwordchar設(shè)立為：*

2）label!的屬性autosize設(shè)立為：.T?

3）“顯示密碼”按鈕Command］的Click事件代碼：

寫(xiě)法一：

Thisform.Label2.Caption=Thisform.Textl.Value

寫(xiě)法二：

X=Thisform.Textl.Value

Thisform.Label2.Caption=X

3）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release

（二）

1./定碼愛(ài)證窗口目叵I區(qū)I

清輸入密碼F*

F迎使用

:“驗(yàn)證關(guān)閉

1）該表單的名稱為“Fonnl",標(biāo)題為“密碼坂證窗口”，高度為26。，寬度為400；

2）定義一個(gè)名稱為“Labell”，標(biāo)題為“請(qǐng)輸入密碼”，字號(hào)為1。磅字的標(biāo)簽；

3）定義一個(gè)名稱為“Textl”的文本框，用于輸入密碼，當(dāng)輸入密碼時(shí)，文本框中顯示“*”；

4）定義一個(gè)名稱為“LabW”的標(biāo)簽，標(biāo)題為空，能根據(jù)內(nèi)容自動(dòng)調(diào)整大??；

5）定義一個(gè)名稱為“Commandl",標(biāo)題為“嗡證”的按鈕，當(dāng)單擊該按鈕時(shí)，珀證密碼是否正

確：密碼正確，標(biāo)簽“Label2”顯示“歡迎使用”，密碼不正確，標(biāo)簽“Label2''顯示"密碼錯(cuò)

誤”，編寫(xiě)其Click事件代碼（密碼設(shè)為“abc”）；

6）定義一個(gè)名稱為“Command?”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退

出VFP系統(tǒng)）.

Command1的CLICK事件代碼:

ifthisform.textl.vahie="abc''

thisform.label2.caption="歡迎使用“

else

thisform.label2,caption="密碼錯(cuò)誤”

Endif

Command!的CLICK事件代碼:

thisform.release

（三）

1）該表單的名稱為“Forml”，標(biāo)題為“密碼驗(yàn)證窗口”，高度為260,寬度為400；

2）定義一個(gè)名稱為“Labell”標(biāo)題為“請(qǐng)輸入密碼”的標(biāo)簽；

3）定義一個(gè)名稱為“Textl”的文本框，字號(hào)為10磅，密碼輸入時(shí)顯示；

4）定義一個(gè)名稱為“Commandl”,標(biāo)題為“確定”的按鈕，當(dāng)單擊該按鈕時(shí)，若密碼正確，利

用MessageBo電數(shù)產(chǎn)生消息窗口，消息窗標(biāo)題為“密碼正確”，提示信息為“歡迎光臨”；若密碼

諳誤，消息窗口標(biāo)題為“密碼錯(cuò)誤”，提示信息為“禁止進(jìn)入"，消息窗口類型為65,編寫(xiě)Click事

件代碼（密碼設(shè)為“ABCD"）；

5）定義一個(gè)名稱為“Command?”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得

退出VFP系統(tǒng)）。

代碼編寫(xiě)：

1）“擬定”按鈕Command1的Click事件代碼:

IfThisform.textLvalue="ABCD”

Messagebox（“歡迎光顧”，65,“密碼對(duì)的”）

Else

Messagebox（"嚴(yán)禁進(jìn)入“，65,”密碼錯(cuò)誤“）

Endif

2)“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release

（四）

歲因的面積0回區(qū)］

1）該表單的名稱為“Foonl",標(biāo)題為“圓的面積”，高度為260,寬度為400；

2）定義一個(gè)名稱為“Labell”，標(biāo)題為“請(qǐng)輸入圓的半徑"，字號(hào)為12磅粗體的標(biāo)簽；

3）定義一個(gè)名稱為“Textl”的文本框，字號(hào)為10磅，用于輸入圓的半徑；

4）定義一個(gè)名稱為"Command1“，標(biāo)題為“計(jì)售”的按鈕，當(dāng)單擊該按鈕時(shí)，計(jì)算圓的面積并利

由MessageBox函數(shù):顯示（窗口類型為65）.編寫(xiě)其Click事件代碼；

5）定義一個(gè)名稱為"Command?”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退

出VFP系統(tǒng)）.

代碼編寫(xiě):

1)“擬定”按鈕Command1的Click事件代碼：

r=val(thisform.textl.value)

s=3.1415926*r*r

messagebox(str(s,5,2),65,“面積”)

2)“關(guān)閉"的按鈕CommandZ的Click事件代碼:Thisform.Release

（五）

題目規(guī)定：

⑴該表單的名稱為“Forml”，標(biāo)題為“溫度轉(zhuǎn)換”，高度為260,寬度為400；2）定義一個(gè)名稱為“Labell”標(biāo)題為“攝氏

溫度”的標(biāo)簽；再定義一個(gè)名稱為“Label》標(biāo)題為“華氏溫度”的標(biāo)簽,兩個(gè)標(biāo)簽的字號(hào)均為11磅；3）定義一個(gè)名稱為

“佗xtl”的文本框，用于輸入攝氏溫度，再定義一個(gè)名稱為“Text，的文本框，具有只讀屬性，用于顯示華氏溫度；4）定

義一個(gè)名稱為“Command/,標(biāo)題為“轉(zhuǎn)換”的按鈕，當(dāng)單擊該按鈕時(shí)，將輸入的攝氏溫度轉(zhuǎn)換成華氏溫度并顯示在Text2

文本框中，編寫(xiě)其Click事件代碼；其中：華氏溫度=9/5*攝氏溫度+325)定義?個(gè)名稱為“Command”，標(biāo)題為“關(guān)

閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))。

操作要點(diǎn)：

1)文本框text2的readonly屬性設(shè)立為?T.

2)“轉(zhuǎn)換”按鈕Commandl的Click事件代碼：

X=Val(Thisform.Textl.Value)

Thisform.Text2.Value=9/5*X+32

2)“關(guān)閉”的按鈕Command2的Oick事件代碼:Thisform.Release

(六)

題目規(guī)定:

(1)該表單的名稱為“Forml”，標(biāo)題為“計(jì)算”，高度為260,寬度為400；(2)定義三個(gè)文本框，從左到右名稱分別

為“瓦xtl”、“Text》和“Text3”，其中“涇xtl”、“T^xt2”用于輸入兩個(gè)數(shù)，“論xt3”用于顯示“Textl”和“論xt2”中兩數(shù)之和;

(3)定義一個(gè)名稱為“Label「的標(biāo)簽，標(biāo)題為“+N(4)定義一個(gè)名稱為“Label》的標(biāo)簽，標(biāo)題為“等于"；(5)定義

一個(gè)名稱為“CommandF,標(biāo)題為“擬定”的按鈕，當(dāng)單擊該按鈕時(shí)，文本框“正xt3”中顯示“Textl”和“Text》中兩數(shù)之和;

(6)定義一個(gè)名稱為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))

操作要點(diǎn):

1)“擬定”按鈕Commandl的Click事件代碼:

X=Val(Thisform.Textl.Value)

Y=Val(Thisform.Text2.Value)

Thisform.Text3.Value=X+Y

2)“關(guān)閉”的按鈕Command2的Click事件代碼:

Thisform.Release

（七）

題目規(guī)定:

⑴該表單的名稱為“Forml”，標(biāo)題為“奇偶判斷”，高度為260,寬度為400；⑵定義一個(gè)名稱為“Ldbell”標(biāo)題為“請(qǐng)輸

入一個(gè)數(shù)”的標(biāo)簽：（3）定義一個(gè)名稱為“Label》標(biāo)題為“結(jié)果”的標(biāo)簽：（4）定義一個(gè)名稱為“Textl”的文本框；（5）定義一

個(gè)名稱為“詁42”的文本框，具有只讀屬性⑹定義一個(gè)名稱為“Commandl”，標(biāo)題為“判斷”的按鈕，當(dāng)單擊該按鈕時(shí)，

若Textl文本框輸入的為偶數(shù)，則在論xt2文本框中顯示“這是一個(gè)偶數(shù)”，否則顯示“這是一個(gè)奇數(shù)”，編寫(xiě)其Click事

件代碼；⑺定義一個(gè)名稱為“Command》，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP系統(tǒng)）

操作要點(diǎn)：

1）“鑒定”按鈕Command1的Oick事件代碼：

X=Val（Thisform.Textl.Value）

IFMOD（XZ2）=0

Thisform.Text2.Value=“這是一個(gè)偶數(shù)!”

ELSE

Thisform.Text2.Value="這是一個(gè)奇數(shù)!”

ENDIF

2）“關(guān)閉”的按鈕Command2的Click事件代碼：Thisform.Release

（八）

V求平方00?

輸入數(shù)值|F

計(jì)算結(jié)果|M

關(guān)閉I

1）該表單的名稱為“Fonnl'',標(biāo)題為“求平方”，高度為260,寬度為40。；

2）定義一個(gè)名稱為“Labdl”標(biāo)題為“輸入數(shù)值”的標(biāo)簽，字號(hào)為11磅；

3）定義一個(gè)名稱為“Label2''標(biāo)題為"計(jì)算結(jié)果”的標(biāo)簽，字號(hào)為11磅；

4）定義一個(gè)名稱分別為“Textl''和"Text2”的兩個(gè)文本框，它們的初值都為。，“Text2”具有

只鏈屬性;

5：定義,個(gè)名稱為“Commandl"，標(biāo)題為"計(jì)算"的按鈕，當(dāng)單擊該按鈕時(shí)，計(jì)算“Textl”數(shù)

值的平方并顯示在“Text2”文本框中，編寫(xiě)其Click事件代碼；

6）定義一個(gè)名稱為“Command?”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得

退出VFP系統(tǒng)）.

代碼編寫(xiě)：

1）“計(jì)算”按鈕Commandl的Click事件代碼:

x=thisform.textl.value

thisform.text2.value=xA2

2)“關(guān)閉"的按鈕Commandl的Click事件代碼：Thisform.Release

（九）

1）該表單的名稱為“Forml”，標(biāo)題為“隨機(jī)函數(shù)的使用”，高度為260,寬度為400；

2）定義一個(gè)名稱為“Labell”標(biāo)題為“產(chǎn)生一個(gè)三位十進(jìn)制整數(shù)”的標(biāo)簽；

3）定義一個(gè)名稱為“Label2”標(biāo)題為空的標(biāo)簽，自動(dòng)適應(yīng)大?。?/p>

4）定義一個(gè)名稱為“Textl”的文本框；

5）定義一個(gè)名稱為“Commandl”，標(biāo)題為“產(chǎn)生隨機(jī)數(shù)”的按鈕，單擊該按鈕，在文本框中

遁機(jī)產(chǎn)生一個(gè)三位十進(jìn)制整數(shù)，編寫(xiě)其Click事件代碼；

6）定義一個(gè)名稱為“Command?”，標(biāo)題為“判別”的按鈕，單擊該按鈕，若隨機(jī)數(shù)為偶數(shù)，

則Label2的標(biāo)題為"偶數(shù)”,否則為“奇數(shù)”，編耳其Click事件代碼；

7）定義一個(gè)名稱為“Command3”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不

想很中VFP系統(tǒng)、，__________

次在％寫(xiě):

1）“產(chǎn)生隨機(jī)數(shù)”按鈕Commandl的aide事件代碼:

法一：

x=int(lOOO*rand())

ifx>=100

thisform.textl.value=x

Endif

法二：

x=int(900*rand())+100

thisform.textl.value=x

2)“判別”按鈕Command2的Click事件代碼：

X=thisform.textl.value

Ifmod(x,2)=0

Thisform.label2.caption="偶數(shù)"

Else

Thisform.label2.caption="奇數(shù)"

endif

3)“關(guān)閉”的按鈕Command3的Click事件代碼：Thisform.Release

（十）

親ss色設(shè)置13回區(qū)）

題目規(guī)定:

(1)該表單的名稱為“Forml”，標(biāo)題為“顏色設(shè)立”，高度為260,寬度為400；(2)定義?個(gè)名稱為“Labell”標(biāo)題為“紅”

的標(biāo)簽；(3)定義一個(gè)名稱為“Label》標(biāo)題為“綠”的標(biāo)簽；(4)定義一個(gè)名稱為“Label3”標(biāo)題為“藍(lán)”的標(biāo)簽；(5)定義三個(gè)

名稱分另|J為“論xtl”、“Text2"、“論xt3”的文本框；(6)定義?個(gè)名稱為“Commands,標(biāo)題為“設(shè)立為表單背景色”的按

鈕，當(dāng)單擊該按鈕時(shí)，表單背景色設(shè)立為用3個(gè)文本框中數(shù)字組成的「gb顏色，編寫(xiě)Click事件代碼；(7)定義一個(gè)名

稱為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))°

操作要點(diǎn)：

1)Commandl的Click事件代碼：

X=Val(Thisform.Textl.Value)

Y=Val(Thisform.Text2.Value)

Z=Val(Thisform.Text3.Value)

Thisform.Backcolor=RGB(XzY,Z)

2)“關(guān)閉”的按鈕Command2的Click事件代碼：Thisform.Release

二、列表框

(十一)

題目規(guī)定：

(1)該表單的名稱為“Forml”，標(biāo)題為“列表框應(yīng)用“，高度為260,寬度為400；

(2)定義一個(gè)名稱為“LABEL1”，標(biāo)題為“你的選擇是”的標(biāo)簽；

(2)定義?個(gè)名稱為叮EXT1”的文本框，具有只讀屬性；

(3)定義一個(gè)名稱為“Listl”的列表框，數(shù)據(jù)來(lái)源類型為值，列表項(xiàng)的來(lái)源設(shè)立為“神州5號(hào)，神州6號(hào)，嫦娥1號(hào)”，當(dāng)

選中列表項(xiàng)后，選中的項(xiàng)顯示在文本框中，編寫(xiě)其CLICK事件代碼。

(4)定義一個(gè)名稱為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))。

操作要點(diǎn)：

1)TEXT1的只讀設(shè)立：READONLY屬性設(shè)為.T.

2)LIST1的ROWSOURCETYPE屬性選擇"1-值”,ROWSOURCE屬性里寫(xiě)上“神州5號(hào)，神州6號(hào)，嫦娥1號(hào)”

注意:分隔的逗號(hào)所有是英文逗號(hào)!!!

3)列表框LIST1的CLICK事件代碼：

thisform.textLvalue=this.value

或:thisform.text1.value=thisform.IistLvalue

4)“關(guān)閉"按鈕Commandl的Click事件代碼：

Thisform.Release

(十二)

題目規(guī)定：

（1）該表單的名稱為“Forml”,標(biāo)題為“風(fēng)景區(qū)添加”,高度為260,寬度為400；（2）定義?個(gè)名稱為“論xtl”的文本框,

字體為10磅字；⑶定義一個(gè)名稱為“Listl”的列表框，數(shù)據(jù)來(lái)源類型為L(zhǎng)列表項(xiàng)的來(lái)源設(shè)立為“泰山，黃山”（4）定義一

個(gè)名稱為“Commandl”，標(biāo)題為“添加”的按鈕，當(dāng)單擊該按鈕時(shí)，文本框中輸入的內(nèi)容添加到列表框最后,編寫(xiě)其Click

事件代碼：（5）定義一個(gè)名稱為“Command》，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP系

統(tǒng)）°

代碼編寫(xiě)：

工）“添加”按鈕Command：!的Click事件代碼：

X=Thisform.Textl.Value

Thisform.Listl.Addltem（X）

2）“關(guān)閉”的按鈕Command2的Click事件代碼：Thisform.Release

（十三）

題口規(guī)定:

（1）該表單的名稱為“Forml”，標(biāo)題為“我的表單”，高度為260,寬度為400；（2）定義一個(gè)名稱為“Listl”列表框，字

號(hào)為11磅，用于顯示偶數(shù)；（3）定義一個(gè)名稱為“Commandl”，標(biāo)題為“開(kāi)始”的按鈕，當(dāng)單擊該按鈕時(shí)，將1到100

之間的偶數(shù)顯示在列表框“Listl”中，編寫(xiě)其Click事件代碼；（4）定義一個(gè)名稱為“Command2”，標(biāo)題為“關(guān)閉”的按鈕,

當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP系統(tǒng)）。

代碼編寫(xiě):

工）“開(kāi)始”按鈕Command工的Click事件代碼：

FORN=2TO100STEP2

Thisform.Listl.AddItem（STR（Nz3））

ENDFOR

注意：由于列表框的默認(rèn)類型為字符型，所以加數(shù)字進(jìn)去時(shí)要使用函數(shù)轉(zhuǎn)換。

2）“關(guān)閉”的按鈕Command2的Click事件代碼：Thisform.Release

（十四）

題目規(guī)定：

1）表單的名稱為“Forml”，標(biāo)題為“列表框應(yīng)用“，高度為260,寬度為400；2）定義一個(gè)名稱為“Labell”標(biāo)題為“你選

中的項(xiàng)是''的標(biāo)簽；3）定義一個(gè)名稱為“詁xtl”的文本框，具有只讀屬性；4）定義一個(gè)名稱為“Listl”的列表框，數(shù)據(jù)

來(lái)源類型為“值”，項(xiàng)的來(lái)源為“A,B,C,D,F,當(dāng)選中列表項(xiàng)后，選中的項(xiàng)顯示在文本框中，編寫(xiě)其Click事件代碼：6）定

義一個(gè)名稱為“Commandl”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP系統(tǒng)）。

代碼編寫(xiě)：1）列表框Listl的Oide事件代碼：

X=Thisform.Listl.Value

Thisform.Textl.Value=X

2）“關(guān)閉”的按鈕Commandl的Click事件代碼:Thisform.Release

（十五）

列表框使用□0?

1）該表單的名稱為"Forml",標(biāo)題為“列表框使用“，高度為260,寬度為4。0；

2）將考生文件夾下的表bcj.db舔加到表單的數(shù)據(jù)環(huán)境中；

3）定義一個(gè)名稱為"Listl”列表框，數(shù)據(jù)來(lái)源類型為“字段”，數(shù)據(jù)項(xiàng)的來(lái)源為bcj表中“姓名”

字段；

4）定義一個(gè)名稱為"Commandl”，標(biāo)題為“添加到右邊”的按鈕，單擊該按鈕時(shí)，選中的姓名添

加到右邊的列表框List2中，編寫(xiě)其Click事件代碼；

5）定義一個(gè)名稱為“Command?",標(biāo)題為“關(guān)閉”的按鈕，單擊該按鈕時(shí)，釋放該表單（不得退

WVFP系統(tǒng)）-

操作要點(diǎn)：

1）“添加到右邊”按鈕Commandl的Click事件代碼:

thisform.list2.additem(thisform.listl.value)

2)“關(guān)閉"按鈕Command2的Click事件代碼:Thisform.Release

三、組合框

（十六）

題目規(guī)定：

I）該表單的名稱為“Forml”，標(biāo)題為“課程選擇”，高度為260,寬度為400；2）定義一個(gè)名稱為“Combol”的下拉組

合框，數(shù)據(jù)來(lái)源類型為1,列表項(xiàng)的來(lái)源設(shè)立為“計(jì)算機(jī)基礎(chǔ)，高等數(shù)學(xué),大學(xué)英語(yǔ)”，編寫(xiě)其Click事件代碼，使得選中

的列表項(xiàng)顯示在文本框中；3）定義一個(gè)名稱為“Textl”的文本框，字體為12磅字，用于顯示列表框選中的列表項(xiàng)；4）

定義一個(gè)名稱為“Commands,標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP系統(tǒng)）。

操作要點(diǎn):

1）下拉組合框Combol的Click事件代碼:

X=Thisform.Combol.Value

Thisform.Textl.Value=X

2)“關(guān)閉”的按鈕Commandl的Click事件代碼:

Thisform.Release

（十七）

題目規(guī)定：

1）該表單的名稱為“Forml”，標(biāo)題為“成績(jī)表單”，高度為260,寬度為400；2）將考生文獻(xiàn)夾下的自由表cj.dbf添加

到表單的數(shù)據(jù)環(huán)境中；3）定義一個(gè)名稱為“Combo「下拉列表框，數(shù)據(jù)來(lái)源類型為“字段”，數(shù)據(jù)項(xiàng)的來(lái)源為cj表中“姓

名''字段：4）定義一個(gè)名稱為“Textl”的文本框；5）編寫(xiě)下拉列表框的“Click”事件代碼，將選中學(xué)生所相應(yīng)的成績(jī)顯示

在文本框中；6）定義一個(gè)名稱為“Commandl”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP

系統(tǒng)）。

操作要點(diǎn)：

1）下拉列表框Combol的Oick事件代碼：

Thisform.TextLValue=成績(jī)

2）“關(guān)閉”的按鈕Commandl的Click事件代碼：

Thisform.Release

四、復(fù)選框

（十八）

（法l）Checkl的Value屬性值初始為數(shù)值型.

復(fù)選框Checkl的Click事件代碼：

IFThisForm.Checkl.Value=l

ThisForm.Labell.Fontunderline=.T.

ELSE

ThisForm.Labell.Fontunderline=.F.

ENDIF

（法2）Checkl的Value屬性值初始為邏輯型.

復(fù)選框Checkl的Click事件代碼：

IFThisForm.Checkl.Value=.T.

ThisForm.Labell.Fontunderline=.T.

ELSE

ThisForm.Labell.Fontunderline=.F.

ENDIF

（十九）

題目規(guī)定:

(1)表單的名稱為“Forml”，標(biāo)題為“設(shè)立窗口”.

（2）定義一個(gè)名稱為“Labell”、標(biāo)題為“請(qǐng)輸入內(nèi)容”的標(biāo)簽，字體為加粗、楷體14磅字。（3）定義一個(gè)名稱為“正xtl”高

度適中的文本框，Value值為“請(qǐng)觀測(cè)效果”；（4）定義一個(gè)名稱為“Checkl”,標(biāo)題為“文本框背景為紅色”、Value值為.F.

的復(fù)選框，當(dāng)選中該復(fù)選框時(shí)，“佗xt「背景為紅色（RGB值為255,0,0）,當(dāng)未選中該復(fù)選框時(shí)，“佗xtF背景為白色（RGB

值為255,255,255）：⑸定義一名稱為“Check"標(biāo)題”文本框前景為藍(lán)色”、Value值為E的復(fù)選框，當(dāng)選中該復(fù)選框

時(shí)，“血xtl”前景為藍(lán)色（RGB值為0,0,255）,未選中該復(fù)選框時(shí)，飛xtl”前景為黑色（RGB值為0,0,0）⑹定義一個(gè)名稱

為“Commandl”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不退出VFP系統(tǒng)）。

操作要點(diǎn)：

1）復(fù)選框Checkl的Oick事件代碼：

IFThisForm.Checkl.Value=.T.

ThisForm.Textl.BackColor=RGB（255,0z0）

ELSE

ThisForm.Textl.BackColor=RGB（255z255z255）

ENDIF

2）復(fù)選框Check2的Oick事件代碼：

IFThisForm.Check2.Value=.T.

ThisForm.Textl.ForeColor=RGB（0,0,255）

ELSE

ThisForm.Textl.ForeColor=RGB（0z0,0）

ENDIF

說(shuō)明：由于題目規(guī)定將CHECK1和CHECK2的初值設(shè)為.F?,所以代碼里要把復(fù)選框?qū)懗上鄳?yīng)的邏輯型。

五、選項(xiàng)按鈕組

(二十)

我的表單13回區(qū)］

請(qǐng)榆入文本內(nèi)容

請(qǐng)觀察效果

宋

請(qǐng)選擇字體r體

逮s

黑

r體

幼

r同

(1)該表單的名稱為旺01101”，標(biāo)題為“我的表單”，高度為260,寬度為400：

(2)定義一個(gè)名稱為“LABEL1”，標(biāo)題為“請(qǐng)輸入文本內(nèi)容”的標(biāo)簽，字號(hào)為楷體，加粗,14磅字。

(3)定義一個(gè)名稱為“TEXT1”的文本框，字號(hào)為16磅字，用于輸入文本；

(4)定義一一個(gè)名稱為“LABEL2”，標(biāo)題為“請(qǐng)選擇字體”的標(biāo)簽，字體為黑體，加粗，12磅字。

(5)定義一個(gè)名稱為“OPTIONGROUP1”的選項(xiàng)按鈕組，標(biāo)題依次為“宋體”、“隸書(shū)”、“黑體”、“幼圓”，當(dāng)選中某個(gè)按鈕

時(shí)，文本框中的字體發(fā)生相應(yīng)的變化，用DOCASE結(jié)構(gòu)編寫(xiě)CLICK事件代碼。

(6)定義一個(gè)名稱為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)釋放該表單(不得退出VFP系統(tǒng))。

操作要點(diǎn)：

1)選項(xiàng)按鈕組OPTIONGROUP1的CLICK事件代碼：

docase

casethis.value=l

thisform.textLfontnamc="宋體”

casethis.value=2

thisform.textLfontname="隸書(shū)"

casethis.value=3

thisform.textl.fontnanie="黑體"

casethis.value=4

thisform.textl.fontname=''幼圓"

Endcase

注意：this.value等價(jià)于thisform.optiongroupl.value

2）關(guān)閉按鈕COMMAND!的CLCK事件代碼：

THISFORM.RELEASE

（二H—）

題目規(guī)定：

(1)該表單的名稱為“Forml”，標(biāo)題為“字符轉(zhuǎn)換”，高度為260,寬度為400；

(2)定義一個(gè)名稱為“Label1"、標(biāo)題為“請(qǐng)輸入字符串”的標(biāo)簽，字體為加粗12磅字：

(3)定義一個(gè)名稱為“Textl”的文本框，字體為10磅字，用于輸入字符串；

(4)定義一個(gè)名稱為“OptionGroupl”的選項(xiàng)按鈕組，2個(gè)按鈕的標(biāo)題順序?yàn)椤稗D(zhuǎn)成大寫(xiě)”、“轉(zhuǎn)成小寫(xiě)”，當(dāng)選中某個(gè)按鈕時(shí),

文本框輸入的字符串發(fā)生相應(yīng)的變化，編寫(xiě)“OptionGroupl”的Click事件代碼；

(5)定義一個(gè)名稱為“Command1"，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))

操作要點(diǎn)：

1)選項(xiàng)按鈕組OPTIONGROUP1的CLICK事件代碼：

x=thisform.textLvalue

docase

casethis.value=l

thisform.textl.value=upper(x)

casethis.value=2

thisform.textl.value=lower(x)

Endcase

2)關(guān)閉按鈕COMMAND1的CLICK事件代碼:

Thisform.release

六、命令按鈕組

(二十二)

題目規(guī)定：

(1)該表單的名稱為“Forml”，標(biāo)題為“學(xué)生成績(jī)查詢”，高度為260,寬度為400；

(2)將xdcj.dbf添加到表單的數(shù)據(jù)環(huán)境中

(3)將xscj表各字段拖至表單上；

(4)定義一個(gè)名稱為“CommandGroupl”的命令按鈕組，4個(gè)按鈕的標(biāo)題順序?yàn)椤暗谝粭l”、“上一條”、“下一條”、“最后一

條”當(dāng)選中某個(gè)按鈕時(shí)，文本框中字符串發(fā)生相應(yīng)的變化，編寫(xiě)“CommandGroupl”的Click事件代碼.

操作要點(diǎn)：

右擊命令按鈕組，在彈出的快捷菜單上選生成器，彈出“命令組生成器”對(duì)話框

選“布局”選項(xiàng)卡，按鈕布局：水平

按鈕組各命令按鈕的CLICK事件代碼如下：

1)COMMAND1的CLICK事件代碼：

go1

thisform.refresh

2)COMMAND!的CLICK事件代碼：

skip-1

thisform.refresh

3）COMMAND3的CLICK事件代碼:

Skipl

thisfbrm.refresh

4）COMMAND4的CLICK事件代碼:

gobottom

thisform.refresh

七、微調(diào)控件

（二十三）

1）該表單的名稱為“Fonnl”，標(biāo)題為“字體演示”，高度為26。，寬度為400；

2）定義一個(gè)名稱為“Textl”的文本框，用于輸入文字，初始字號(hào)為12磅；

3）定義一個(gè)名稱為“Spinnerl”的微調(diào)控件，初始值為12,單擊微調(diào)按鈕時(shí)數(shù)值的噌減量為I,單擊

散調(diào)按鈕時(shí)允許的最大值為40,最小值為6,用微調(diào)控件的數(shù)值作為文本框的字號(hào)，媼寫(xiě)其

InteractiveChangeS件代碼；

4）定義一個(gè)名稱為“Commandl”,標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退

liVFP系統(tǒng)）.

操作要點(diǎn)：

1）把spinnerl的increment屬性設(shè)立為L(zhǎng)OO,spinnerhighvalue設(shè)為40,spinnnerlowvalue設(shè)為6

1）Spinnerl的interactivechange事件代碼：thisform.textl.fontsize=thisform.spinnerl.value

2）關(guān)閉按鈕COMMANDl的CLICK事件代碼：thisform.release

（二十四）

1）該表單的名稱為“Forml”，標(biāo)題為“顏色設(shè)置”，高度為26。，寬度為400；

2）定義一個(gè)名稱為“Labell”標(biāo)題為“紅”背景透明的標(biāo)簽；

3）定義一個(gè)名稱為“Label2”標(biāo)題為“綠”背景透明的標(biāo)簽；

4）定義一個(gè)名稱為“Label3”標(biāo)題為“藍(lán)”背景透明的標(biāo)簽；

5）定義三個(gè)名稱分別為_(kāi)“Spinnerl''、"Spinner2"、“Spinner3"的微調(diào)控件，單擊時(shí)它們的

變化范圍為0~255,變化幅度為1；

6）定義一個(gè)名稱為“Commandl",標(biāo)題為"設(shè)置為表單背景色”的按鈕，當(dāng)單擊該按鈕時(shí)，

表單背景色設(shè)置為用3個(gè)微調(diào)控件中數(shù)字組成的RGB顏色，編寫(xiě)Click事件代碼；

7）定義一個(gè)名稱為“Command?”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不

得退出VFP系統(tǒng)）.

代碼編寫(xiě)：

1）“設(shè)立為表單背景色”按鈕COMMAND1事件代碼為：

x=thisform.spinnerl.value

y=thisform.spinner2.value

z=thisform.spinner3.value

thisform.backcolor=rgb（x,y,z）

2）關(guān)閉按鈕COMMAND1的CLICK事件代碼：thisform.release

七、計(jì)時(shí)器

（二十五）

題目規(guī)定:

⑴該表單的名稱為“Forml”，標(biāo)題為“歡迎光顧”，高度為260,寬度為400；

(2)定義一個(gè)名稱為“LABEL。標(biāo)題為“2023北京奧運(yùn)”的標(biāo)簽，字號(hào)為12的加粗藍(lán)色字體(RGB值為0,0,255);

(3)定義一個(gè)名稱為“TIMER1”的計(jì)時(shí)器,Enabled為.F..Interval的值為500,編寫(xiě)Timer事件代碼，使得每執(zhí)行一次代碼標(biāo)簽

上移10;

(4)定義一個(gè)名稱為“Commandl”，標(biāo)題為“開(kāi)始”的按鈕，當(dāng)單擊該按鈕時(shí)，標(biāo)簽LABEL1中的內(nèi)容逐漸向表單上方移

動(dòng)；

(5)定義一個(gè)名稱為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))。

操作要點(diǎn)：

1)TIMER1按鈕的TIMER事件代碼為：

thisform.label1.top=thisform.label1.top-10

Command1按鈕的CLICK事件代碼為：

thisform.timer1.enabled=.t.

2)“關(guān)閉"的按鈕Command2的Click事件代碼：

Thisform.Release

注意：1)不要忘掉設(shè)立TIMER1的INTERVAL

2)執(zhí)行過(guò)程：開(kāi)始按鈕的CLICK事件代碼為激活時(shí)鐘TIMERL由TIMER1的CLICK事件代碼控制標(biāo)簽

的移動(dòng)。

(二十六)

1）該表單的名稱為“forml”，標(biāo)題為“歡迎”，高度為260,寬度

為400；

2）定義一個(gè)名稱為“Labell”、標(biāo)題為“歡迎參加2006年計(jì)算機(jī)水

平考試”的標(biāo)簽，字號(hào)為12磅的加粗藍(lán)色字體（RGB值為0,0,255）,開(kāi)

治時(shí)標(biāo)簽不移動(dòng)；

3）定義一個(gè)名稱為"Timerl”的計(jì)時(shí)器，Enabled為F,Interval的值

為1000,編寫(xiě)Tuner事件代碼，使得每執(zhí)行一次該代碼標(biāo)簽右移動(dòng)5；

4）定義一個(gè)名稱為“commandl”，標(biāo)題為“開(kāi)始”的按鈕，單擊

亥按鈕時(shí)，標(biāo)簽“LabeH”中的內(nèi)容逐漸向表單右邊移動(dòng)；

5）定義一個(gè)名稱為“command2'',標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單

壬該按鈕時(shí)，關(guān)閉該表單（不得退出VisualFoxPro系統(tǒng)）.

代碼編寫(xiě)：

1）時(shí)鐘TIMER1按鈕的TIMER事件代碼為:

thisform.label1.left=thisforni.label1.left+5

2)”開(kāi)始"按鈕Cominandl的CLICK事件代碼為:

thisform.timerl.enabled=.t.

3)“關(guān)閉”按鈕Command2的Click事件代碼:

Thisform.Release

（二十七）

“電子鐘

8?*k一

系統(tǒng)時(shí)間15:25:32

1）該表單的名稱為“Forml”，標(biāo)題為“電子鐘”，高度為19。，寬度為3。0；

2）定義一個(gè)名稱為“Labell'',標(biāo)題為“系統(tǒng)時(shí)間”，字體為楷體加粗，字號(hào)為16磅的標(biāo)簽；

3）定義一個(gè)名稱為“Label2"的標(biāo)簽，自動(dòng)調(diào)整大小，字體為“TimesNewRoman”,力口粗，20磅

宇，要求自動(dòng)居中，用于顯示系統(tǒng)當(dāng)前時(shí)間；

4）定義一個(gè)名稱為“Timerl”的時(shí)鐘控件，要求表單運(yùn)行后每秒鐘取一次系統(tǒng)時(shí)間，顯示在標(biāo)簽

“Label2”上；

5）定義一個(gè)名稱為“Command/',標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退

H^VFP系統(tǒng)、.

操作要點(diǎn)：

1)自動(dòng)居中，把label!的aligenment屬性設(shè)為2.中央

2)把Iabel2的caption屬性設(shè)為空

3)把timerl的interval屬性設(shè)為1000,并在timerl的timer事件代碼里寫(xiě)：thisform.label2,caption=time()

4)“關(guān)閉”按鈕Command2的Click事件代碼：Thisform.Release

八、頁(yè)框

（二十八）

題目規(guī)定：

（1）該表單的名稱為“Forml”，標(biāo)題為“頁(yè)框演示”，高度為260,寬度為400；

（2）定義一個(gè)名稱為“Pagefh?me「的頁(yè)框，具有兩個(gè)頁(yè)面,分別為“系統(tǒng)編輯”和“退出系統(tǒng)”。

⑶在第一個(gè)頁(yè)面中定義-一個(gè)名稱為“Commands,標(biāo)題為“開(kāi)始”的按鈕；

（4）在第二個(gè)頁(yè)面中定義一個(gè)名稱為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單（不得退出VFP

系統(tǒng)）。

（二十九）

操作要點(diǎn)：

1)“放大”按鈕CLICK事件代碼：

thisform.textl.fontsize=thisform.textl.fontsize+3

2)“縮小”按鈕CLICK事件代碼：

thisform.textl.fontsize=thisform.textl.fontsize-3

ifthisform.textl.fontsize<8

thisform.text1.fbntsize=8

endif

3)“還原”按鈕CLICK事件代碼：

thisform.textl.fontsize=9

九、數(shù)據(jù)環(huán)境

（三十）

1）該表單的名稱為“Forml"標(biāo)題為"表查詢"高度為260,寬度為400；

2）將考生文件夾下的表姐.曲舔加到表單的數(shù)據(jù)環(huán)境中；

3）將表的各字段拖至表單中；

4）定義一個(gè)名稱為“Textl”文本框，Valu遍性值為1,用于輸入記錄號(hào)；

5）定義一個(gè)名稱為“Command/按鈕，標(biāo)題為“查詢"單擊該按鈕，根據(jù)輸入的記錄號(hào)，查找

并顯示相應(yīng)的記錄，編寫(xiě)其Click事件代碼；

6）定義一個(gè)名稱為“Command2"標(biāo)題為“關(guān)閉”的按鈕，單擊該按鈕時(shí)，釋放該表單（不得退

出VFP系統(tǒng)）.

代碼編寫(xiě):

1)“查詢”按鈕Command1的Click事件代碼：

Gothisform.textl.value

Thisform.refresh

3)“關(guān)閉”按鈕CommandZ的Click事件代碼:Thisform.Release

（三十一）

〃'新書(shū)瀏覽圖間因

摩嬴7秘履I嬴F

?蟀而一

關(guān)閉

出瞅情華大學(xué)出版社

1）該表單的名稱為卻。皿1”，標(biāo)題為“新書(shū)瀏覽”，高度為26。，寬度為4股

2）犍生文件奸的自由表呵曲舔加到表靴轆環(huán)境中；

3）將表bq的各字段蟀表單；

4）定義一個(gè)名稱為竺。毗。1”組合框，數(shù)據(jù)來(lái)源翅為號(hào)段"犍項(xiàng)的來(lái)源為礴中緯

名”字段，當(dāng)選中某槌時(shí)，表單顯示相應(yīng)書(shū)的信息，編寫(xiě)耿lick事件代碼

5）定義一個(gè)名稱為"Commandl",標(biāo)題為“關(guān)閉”的按鈕單擊該按鈕時(shí)，蟀就該表單（不得退

出師系統(tǒng)），編寫(xiě)欺lie闔牛代就

代碼編寫(xiě):

1)組合框combol的click事件代碼：thisform.refresh

2)“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release

（三十二）

1）該表釉鍬為"Fonnl",懶為福眥，施為海艘為4弧

2）將考生文帙用瓢1曲闌咽表靴雕礴中；

3）將軟擲碳中表BQ沖各字段浴俵單中；

4）定義一個(gè)名痂為^Commandgroupl"的按鉞§,按鉗的標(biāo)聶分別為“上記錄和嚇2矛,

當(dāng)單擊酎啜鋤1，能朗解上下記錄,編寫(xiě)“Commandgroupl"制He爆件代用；

5）定義一個(gè)名積為/血血3”,械物“關(guān)閉”嫻,當(dāng)單擊謝帽時(shí),瑜詼表單（不

置艮出VFP系第.

1）“commandgroupl”的click事件代碼：

n=this.value

docase

casen=l

if.not.bof()

skip-1

endif

casen=2

if.not.eof()

skip

endif

ifeof()

skip-1

endif

endcase

thisform.refresh

2)“關(guān)閉”按鈕Command!的Click事件代碼:Thisform.Release

VFP程序設(shè)計(jì)題

第2題：編制一個(gè)表單完畢計(jì)數(shù)器計(jì)數(shù)顯示功能（界面如圖例所示，圖例文獻(xiàn)為*.JPG）。

具體規(guī)定如下:

1.表單的邊框?yàn)楣潭▽?duì)話框，運(yùn)營(yíng)時(shí)自動(dòng)居中，不可移動(dòng);

2.表單初始顯示狀態(tài)為全零“00:00:00”；

3.按“計(jì)數(shù)”按鈕后，自動(dòng)以秒為單位從零開(kāi)始計(jì)數(shù)（設(shè)：時(shí)的計(jì)數(shù)屬性名為F,分的計(jì)數(shù)屬性名

為H,秒的計(jì)數(shù)屬性名為S）并在表單上動(dòng)態(tài)顯示；

4.按“停止”按鈕后暫停計(jì)數(shù)，按“計(jì)數(shù)”按鈕可以繼續(xù)計(jì)數(shù)；

參考答案：

1.表單的標(biāo)題屬性Caption設(shè)立為“計(jì)數(shù)器”；

2.表單的BorderStyle屬性為“2—固定對(duì)話框”，自動(dòng)居中屬性AutoCenter為.T.0

3.表單的Movable屬性為.F.；

4.時(shí)鐘控件Timer1的Inlerval屬性為1000。

5.表單的Forml的Init事件代碼：

THIS.TIMER〔.INTERVAL=1000

THISFORM.TIMERl.ENABLED=.F.

STOR0TOTHIS.S,THIS.F,THIS.H

THIS.TEXT1.VALUE=WIOOIOO1

6.“計(jì)數(shù)”按鈕Command1的Click事件代碼：

THISFORM.TIMER1,ENABLED=.T.

7.“停止”按鈕Command?的Click事件代碼：

THISFORM.TIMER1.ENABLED=.F.

8.時(shí)鐘控件Timer1的Timer事件代碼：

THISFORM.S=THISFORM.S+1

IFTHISFORM.S=60

THISFORM.F=THISFORM.F+1

THISFORM.S=0

ENDIF

IFTHISFORM.F=60

THISFORM.H=THISFORM.H+1

THISFORM.F=0

ENDIF

IFTHISFORM.H=60

THISFORM.S=THISFORM.S+1

THISFORM.H=0

ENDIF

HH=IIF(THISFORM.H>=10,STR(THISFORM.H,2)；0,+STR(THISFORM.H,1))

FF=IIF(THISFORM.E>=10,STR(THISFORM.F,2),O+STR(THISFORM.F,1))

SS=IIF(THISFORM.S>=10,STR(THISFORM.S,2)；0'+STR(THISFORM.S,1))

THISFORM.TEXTLVALUE=HH+T+FF+T+SS

第3題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的只讀瀏覽顯示功能（界面如圖例所示）。

「學(xué)生表內(nèi)容只謨?yōu)g覽-inixi

學(xué)號(hào)554006姓名|張小強(qiáng)口性別

出生年月107/21/19獎(jiǎng)學(xué)金|10.00

具體規(guī)定如下：

1.表單的邊框?yàn)楣潭▽?duì)話框，運(yùn)營(yíng)時(shí)自動(dòng)居中，不可移動(dòng)；

2.表單初始顯示內(nèi)容為表文獻(xiàn)“學(xué)生.dbf”的首記錄；

3.表單內(nèi)容將以10秒為間隔自動(dòng)刷新，即自動(dòng)順序向后翻記錄，當(dāng)翻至表底時(shí)，將自動(dòng)回到首

記錄循環(huán)翻動(dòng)。

參考答案：

1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生表內(nèi)容只讀瀏覽”；

2.表單的BorderStyle屬性為“2一固定對(duì)話框”，自動(dòng)居中屬性AutoCenter為.T.;

3.表單的Movable屬性為.F.；

4.時(shí)鐘控件Timer1的Interval屬性為10000?

5.表單的Forml的Init事件代碼：

THIS.SETALLC'READONLY",.T?"TEXTBOX")

GOTOP

THISFORM.REFRESH

6.時(shí)鐘控件Timer1的Timer事件代碼：

SKIP

IFEOF()

GOTOP

ENDIF

THISFORM.REFRESH

第4題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的只讀瀏覽顯示功能(界面如圖例所示)。

:/學(xué)生表內(nèi)容只漠瀏覽

字號(hào)1954006姓名的函—“性別

出生年月(07/21719獎(jiǎng)學(xué)金而

?荊|后翻|末記錄|

具體規(guī)定如下：

1.表單的邊框?yàn)閱尉€邊框，運(yùn)營(yíng)時(shí)自動(dòng)居中；

2.表單初始顯示內(nèi)容為表文獻(xiàn)“學(xué)生.dbf”的首記錄；

3.當(dāng)按“前翻”“后翻”“首記錄”“末記錄”按鈕時(shí)，表單將自動(dòng)顯示相應(yīng)記錄的內(nèi)容;

4.當(dāng)翻至表頭或表底時(shí)，將自動(dòng)設(shè)立相應(yīng)按鈕不可訪問(wèn)。

參考答案：

1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生表內(nèi)容只讀瀏覽”；

2.表單的BorderStyle屬性為"1—單線邊框”；自動(dòng)居中屬性AutoCenter為.T.

3.表單的Forml的Init事件代碼：

THIS.SETALL("READONLY",.T.,"TEXTBOX")

GOTOP

THISFORM.REFRESH

4.“首記錄"按鈕Command1的Click事件代碼:

gotop

mand2.enabled=.t.

mand3.enabled=.t.

mand4.enabled=.t.

mandl.enabled=.f.

thisform.refresh

5.“前翻"按鈕Command2的Click事件代碼：

skip-1

ifbof()

mandl.enabled=.f.

this.enabled=.f.

endif

mand3,enabled=.t.

mand4.enabled=.t.

thisform.refresh

6.“后翻”按鈕Commands的Click事件代碼：

skip

ifeof()

mand3.enabled=.f.

mand4.enabled=.f.

endif

mandl.enabled=.t.

mand2.enabled=.t.

thisform.refresh

7.“末記錄”按鈕Command4的Click事件代碼:

gobottom

mand1.enabled=.t.

mand2.enabled=.t.

mand3.enabled=.t.

mand4.enabled=.f.

thisform.refresh

第7題：編制一個(gè)表單完畢表文獻(xiàn)“成績(jī).dbf”內(nèi)容的查詢顯示功能（界面如圖例所示）。

具體規(guī)定如下：

I.表單的邊框?yàn)楣潭▽?duì)話框，運(yùn)營(yíng)時(shí)自動(dòng)居中；

2.當(dāng)用戶在組合框（下拉列表）選擇班級(jí)（學(xué)號(hào)的左三位）后，表單將自動(dòng)顯示相應(yīng)班級(jí)的所有

學(xué)生的總平均成績(jī)；

3.按“退出”按鈕時(shí)，自動(dòng)關(guān)閉表單。

參考答案：

1.表單的標(biāo)題屬性C叩tion設(shè)立為“查詢并顯示指定班級(jí)的總平均成績(jī)”；

2.表單的BorderStyle屬性為"2-固定對(duì)話框”；自動(dòng)居中屬性AutoCenter為.T.。

3.組合框Combo1的Init事件代碼：

SETTALKOFF

INDEXONLEFT（學(xué)號(hào),3）TOXHUNIQUE

SCAN

THIS.ADDITEM（LEFT（學(xué)號(hào),3））

ENDSCAN

SETINDEXTO

4.組合框Combo1的Click事件代碼:

BJ=THIS.VALUE

AVERAGEFORLEFT(學(xué)號(hào),3)=BJ成績(jī)TOCJ

THISFORM.TEXT1.VALUE=CJ

5.“退出”按鈕Command)的Click事件代碼：

thisform.release

第8題：編制一個(gè)表單完畢數(shù)字時(shí)鐘顯示功能(界面如圖例所示)。