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

VFP表單實(shí)驗(yàn)參考講義一、標(biāo)簽和文本框（一）題目規(guī)定：（1）該表單的名稱(chēng)為“Form1”，標(biāo)題為“密碼輸入窗口”，高度為190，寬度為300；（2）定義一個(gè)名稱(chēng)為“Label1”、標(biāo)題為“請(qǐng)輸入密碼”、字號(hào)為10磅的標(biāo)簽；（3）定義一個(gè)名稱(chēng)為“Text1”的文本框，用于輸入密碼，當(dāng)輸入密碼時(shí)，屏幕顯示“*”；（4）定義一個(gè)名稱(chēng)為“Label2”的標(biāo)簽，標(biāo)題為空，自動(dòng)調(diào)整控件大??；（5）定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“顯示密碼”的按鈕，當(dāng)單擊該按鈕時(shí)，標(biāo)簽“Label2”顯示輸入的密碼，編寫(xiě)Click事件代碼（6）定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單。(不得退出VFP操作要點(diǎn)：1）注意將text1的屬性passwordchar設(shè)立為：*2）label2的屬性autosize設(shè)立為：.T.3）“顯示密碼”按鈕Command1的Click事件代碼:寫(xiě)法一：Thisform.Label2.Caption=Thisform.Text1.Value寫(xiě)法二：X=Thisform.Text1.ValueThisform.Label2.Caption=X3）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（二）

Command1的CLICK事件代碼:ifthisform.text1.value="abc"thisform.label2.caption="歡迎使用"elsethisform.label2.caption="密碼錯(cuò)誤"EndifCommand2的CLICK事件代碼:thisform.release（三）代碼編寫(xiě)：“擬定”按鈕Command1的Click事件代碼:IfThisform.text1.value=”ABCD”Messagebox(“歡迎光顧”，65，“密碼對(duì)的“)ElseMessagebox(“嚴(yán)禁進(jìn)入“，65，”密碼錯(cuò)誤“)Endif2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release

（四）代碼編寫(xiě)：“擬定”按鈕Command1的Click事件代碼:r=val(thisform.text1.value)s=3.1415926*r*rmessagebox(str(s,5,2),65,”面積”)2)“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（五）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“溫度轉(zhuǎn)換”，高度為260，寬度為4002)定義一個(gè)名稱(chēng)為“Label1”標(biāo)題為“攝氏溫度”的標(biāo)簽；再定義一個(gè)名稱(chēng)為“Label2”標(biāo)題為“華氏溫度”的標(biāo)簽,兩個(gè)標(biāo)簽的字號(hào)均為3)定義一個(gè)名稱(chēng)為“Text1”的文本框，用于輸入攝氏溫度，再定義一個(gè)名稱(chēng)為“Text2”的文本框，具有只讀屬性，用于顯示華氏溫度;4)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“轉(zhuǎn)換”的按鈕，當(dāng)單擊該按鈕時(shí)，將輸入的攝氏溫度轉(zhuǎn)換成華氏溫度并顯示在Text2文本框中，編寫(xiě)其Click事件代碼；其中：華氏溫度=9/5*5)定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))操作要點(diǎn)：1）文本框text2的readonly屬性設(shè)立為.T.2）“轉(zhuǎn)換”按鈕Command1的Click事件代碼:X=Val(Thisform.Text1.Value)Thisform.Text2.Value=9/5*X+322）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（六）題目規(guī)定：（1）該表單的名稱(chēng)為“Form1”，標(biāo)題為“計(jì)算”，高度為260，寬度為400（2）定義三個(gè)文本框，從左到右名稱(chēng)分別為“Text1”、“Text2”和“Text3”，其中“Text1”、“Text2”用于輸入兩個(gè)數(shù)，“Text3”用于顯示“Text1”和“Text2”中兩數(shù)之和；（3）定義一個(gè)名稱(chēng)為“Label1”的標(biāo)簽，標(biāo)題為“+”；（4）定義一個(gè)名稱(chēng)為“Label2”的標(biāo)簽，標(biāo)題為“等于”；（5）定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“擬定”的按鈕，當(dāng)單擊該按鈕時(shí)，文本框“Text3”中顯示“Text1”和“Text2”中兩數(shù)之和；（6）定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng)操作要點(diǎn)：1）“擬定”按鈕Command1的Click事件代碼:X=Val(Thisform.Text1.Value)Y=Val(Thisform.Text2.Value)Thisform.Text3.Value=X+Y2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（七）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“奇偶判斷”，高度為260，寬度為400(2)定義一個(gè)名稱(chēng)為“Label1”標(biāo)題為“請(qǐng)輸入一個(gè)數(shù)”(3)定義一個(gè)名稱(chēng)為“Label2”標(biāo)題為“結(jié)果”(4)定義一個(gè)名稱(chēng)為“Text1”的文本框；(5)定義一個(gè)名稱(chēng)為“Text2(6)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“判斷”的按鈕，當(dāng)單擊該按鈕時(shí)，若Text1文本框輸入的為偶數(shù)，則在Text2文本框中顯示“這是一個(gè)偶數(shù)”，否則顯示“這是一個(gè)奇數(shù)”，編寫(xiě)其Click(7)定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng)操作要點(diǎn)：1）“鑒定”按鈕Command1的Click事件代碼:X=Val(Thisform.Text1.Value)IFMOD(X,2)=0Thisform.Text2.Value=“這是一個(gè)偶數(shù)!”ELSEThisform.Text2.Value=“這是一個(gè)奇數(shù)!”ENDIF2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（八）代碼編寫(xiě)：1）“計(jì)算”按鈕Command1的Click事件代碼:x=thisform.text1.valuethisform.text2.value=x^22）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（九）代碼編寫(xiě)：1）“產(chǎn)生隨機(jī)數(shù)”按鈕Command1的Click事件代碼:法一：x=int(1000*rand())ifx>=100thisform.text1.value=xEndif法二：x=int(900*rand())+100thisform.text1.value=x2)“判別”按鈕Command2的Click事件代碼:X=thisform.text1.valueIfmod(x,2)=0Thisform.label2.caption=“偶數(shù)“ElseThisform.label2.caption=“奇數(shù)“endif3）“關(guān)閉”的按鈕Command3的Click事件代碼:Thisform.Release（十）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“顏色設(shè)立”，高度為260，寬度為400(2)定義一個(gè)名稱(chēng)為“Label1”標(biāo)題為“紅”(3)定義一個(gè)名稱(chēng)為“Label2”標(biāo)題為“綠”(4)定義一個(gè)名稱(chēng)為“Label3”標(biāo)題為“藍(lán)”(5)定義三個(gè)名稱(chēng)分別為“Text1”、“Text2”、“Text3(6)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“設(shè)立為表單背景色”的按鈕，當(dāng)單擊該按鈕時(shí)，表單背景色設(shè)立為用3個(gè)文本框中數(shù)字組成的rgb顏色，編寫(xiě)Click(7)定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng)。操作要點(diǎn)：1）Command1的Click事件代碼:X=Val(Thisform.Text1.Value)Y=Val(Thisform.Text2.Value)Z=Val(Thisform.Text3.Value)Thisform.Backcolor=RGB(X,Y,Z)2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release

二、列表框（十一）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“列表框應(yīng)用”，高度為260，寬度為400(2)定義一個(gè)名稱(chēng)為“LABEL1”，標(biāo)題為“你的選擇是”的標(biāo)簽；(2)定義一個(gè)名稱(chēng)為“TEXT1”的文本框，具有只讀(3)定義一個(gè)名稱(chēng)為“List1”的列表框，數(shù)據(jù)來(lái)源類(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è)名稱(chēng)為“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.text1.value=this.value或:thisform.text1.value=thisform.list1.value4）“關(guān)閉”按鈕Command1的Click事件代碼:Thisform.Release（十二）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“風(fēng)景區(qū)添加”，高度為260，寬度為400(2)定義一個(gè)名稱(chēng)為“Text1”的文本框，字體為10磅(3)定義一個(gè)名稱(chēng)為“List1”的列表框，數(shù)據(jù)來(lái)源類(lèi)型為1，列表項(xiàng)的來(lái)源設(shè)立為“泰山,黃山”(4)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“添加”的按鈕，當(dāng)單擊該按鈕時(shí)，文本框中輸入的內(nèi)容添加到列表框最后,編寫(xiě)其(5)定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))代碼編寫(xiě)：1）“添加”按鈕Command1的Click事件代碼:X=Thisform.Text1.ValueThisform.List1.AddItem(X)2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（十三）題目規(guī)定：（1）該表單的名稱(chēng)為“Form1”，標(biāo)題為“我的表單”，高度為260，寬度為400；（2）定義一個(gè)名稱(chēng)為“List1”列表框,字號(hào)為11磅，用于顯示偶數(shù)；（3）定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“開(kāi)始”的按鈕，當(dāng)單擊該按鈕時(shí)，將1到100之間的偶數(shù)顯示在列表框“List1”中，編寫(xiě)其Click事件代碼；（4）定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))代碼編寫(xiě)：1）“開(kāi)始”按鈕Command1的Click事件代碼:FORN=2TO100STEP2Thisform.List1.AddItem(STR(N,3))ENDFOR注意：由于列表框的默認(rèn)類(lèi)型為字符型，所以加數(shù)字進(jìn)去時(shí)要使用函數(shù)轉(zhuǎn)換。2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（十四）題目規(guī)定：1)表單的名稱(chēng)為“Form1”，標(biāo)題為“列表框應(yīng)用”，高度為260，寬度為4002)定義一個(gè)名稱(chēng)為“Label1”標(biāo)題為“你選中的項(xiàng)是”3)定義一個(gè)名稱(chēng)為“Text1”的文本框，具有只讀屬性；4)定義一個(gè)名稱(chēng)為“List1”的列表框，數(shù)據(jù)來(lái)源類(lèi)型為“值”，項(xiàng)的來(lái)源為“A,B,C,D,E”，當(dāng)選中列表項(xiàng)后，選中的項(xiàng)顯示在文本框中，編寫(xiě)其Click6)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))代碼編寫(xiě)：1）列表框List1的Click事件代碼:X=Thisform.List1.ValueThisform.Text1.Value=X2）“關(guān)閉”的按鈕Command1的Click事件代碼:Thisform.Release(十五)操作要點(diǎn)：1）“添加到右邊”按鈕Command1的Click事件代碼:thisform.list2.additem(thisform.list1.value)2）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release三、組合框（十六）題目規(guī)定：1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“課程選擇”，高度為260，寬度為4002)定義一個(gè)名稱(chēng)為“Combo1”的下拉組合框，數(shù)據(jù)來(lái)源類(lèi)型為1，列表項(xiàng)的來(lái)源設(shè)立為“計(jì)算機(jī)基礎(chǔ),高等數(shù)學(xué),大學(xué)英語(yǔ)”，編寫(xiě)其Click3）定義一個(gè)名稱(chēng)為“Text1”的文本框，字體為124）定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))操作要點(diǎn)：1）下拉組合框Combo1的Click事件代碼:X=Thisform.Combo1.ValueThisform.Text1.Value=X2）“關(guān)閉”的按鈕Command1的Click事件代碼:Thisform.Release（十七）題目規(guī)定：1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“成績(jī)表單”，高度為260，寬度為4002)將考生文獻(xiàn)夾下的自由表cj.dbf添加到表單的數(shù)據(jù)環(huán)境中；3)定義一個(gè)名稱(chēng)為“Combo1”下拉列表框,數(shù)據(jù)來(lái)源類(lèi)型為“字段”，數(shù)據(jù)項(xiàng)的來(lái)源為cj表中“姓名”4)定義一個(gè)名稱(chēng)為“Text1”5）編寫(xiě)下拉列表框的“Click”事件代碼，將選中學(xué)生所相應(yīng)的成績(jī)顯示在文本框中；6)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))操作要點(diǎn)：1）下拉列表框Combo1的Click事件代碼:Thisform.Text1.Value=成績(jī)2）“關(guān)閉”的按鈕Command1的Click事件代碼:Thisform.Release四、復(fù)選框（十八）(法1)Check1的Value屬性值初始為數(shù)值型.復(fù)選框Check1的Click事件代碼:IFThisForm.Check1.Value=1ThisForm.Label1.Fontunderline=.T.ELSEThisForm.Label1.Fontunderline=.F.ENDIF(法2)Check1的Value屬性值初始為邏輯型.復(fù)選框Check1的Click事件代碼:IFThisForm.Check1.Value=.T. ThisForm.Label1.Fontunderline=.T.ELSEThisForm.Label1.Fontunderline=.F.ENDIF（十九）題目規(guī)定：(1)表單的名稱(chēng)為“Form1”，標(biāo)題為“設(shè)立窗口(2)定義一個(gè)名稱(chēng)為“Label1”、標(biāo)題為“請(qǐng)輸入內(nèi)容”的標(biāo)簽，字體為加粗、楷體14(3)定義一個(gè)名稱(chēng)為“Text1”高度適中的文本框，Value值為“請(qǐng)觀測(cè)效果”(4)定義一個(gè)名稱(chēng)為“Check1”，標(biāo)題為“文本框背景為紅色”、Value值為.F.的復(fù)選框，當(dāng)選中該復(fù)選框時(shí)，“Text1”背景為紅色（RGB值為255,0,0）,當(dāng)未選中該復(fù)選框時(shí)，“Text1”背景為白色(RGB值為255,255,255)；(5)定義一名稱(chēng)為“Check2”，標(biāo)題“文本框前景為藍(lán)色”、Value值為.F.的復(fù)選框，當(dāng)選中該復(fù)選框時(shí)，“Text1”前景為藍(lán)色(RGB值為0,0,255),未選中該復(fù)選框時(shí)，“Text1”前景為黑色(RGB值為0,0,0)(6)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“關(guān)閉”操作要點(diǎn)：1）復(fù)選框Check1的Click事件代碼:IFThisForm.Check1.Value=.T.ThisForm.Text1.BackColor=RGB(255,0,0)ELSEThisForm.Text1.BackColor=RGB(255,255,255)ENDIF2）復(fù)選框Check2的Click事件代碼:IFThisForm.Check2.Value=.T.ThisForm.Text1.ForeColor=RGB(0,0,255)ELSEThisForm.Text1.ForeColor=RGB(0,0,0)ENDIF說(shuō)明：由于題目規(guī)定將CHECK1和CHECK2的初值設(shè)為.F.,所以代碼里要把復(fù)選框?qū)懗上鄳?yīng)的邏輯型。

五、選項(xiàng)按鈕組（二十）(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“我的表單”，高度為260，寬度為400；(2)定義一個(gè)名稱(chēng)為“LABEL1”，標(biāo)題為“請(qǐng)輸入文本內(nèi)容”的標(biāo)簽,字號(hào)為楷體,加粗,14磅字。(3)定義一個(gè)名稱(chēng)為“TEXT1”的文本框，字號(hào)為16磅(4)定義一個(gè)名稱(chēng)為“LABEL2”，標(biāo)題為“請(qǐng)選擇字體”的標(biāo)簽，字體為黑體，加粗，12磅(5)定義一個(gè)名稱(chēng)為“OPTIONGROUP1”的選項(xiàng)按鈕組，標(biāo)題依次為“宋體”、“隸書(shū)”、“黑體”、“幼圓”，當(dāng)選中某個(gè)按鈕時(shí)，文本框中的字體發(fā)生相應(yīng)的變化，用DOCASE結(jié)構(gòu)編寫(xiě)CLICK事件代碼。(6)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)釋放該表單(不得退出VFP系統(tǒng))。操作要點(diǎn)：1）選項(xiàng)按鈕組OPTIONGROUP1的CLICK事件代碼：docasecasethis.value=1thisform.text1.fontname="宋體"casethis.value=2thisform.text1.fontname="隸書(shū)"casethis.value=3thisform.text1.fontname="黑體"casethis.value=4thisform.text1.fontname="幼圓"Endcase注意：this.value等價(jià)于thisform.optiongroup1.value2）關(guān)閉按鈕COMMAND1的CLCK事件代碼：THISFORM.RELEASE（二十一）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“字符轉(zhuǎn)換”，高度為260，寬度為400；(2)定義一個(gè)名稱(chēng)為“Label1”、標(biāo)題為“請(qǐng)輸入字符串”的標(biāo)簽，字體為加粗12磅(3)定義一個(gè)名稱(chēng)為“Text1”的文本框，字體為10磅(4)定義一個(gè)名稱(chēng)為“OptionGroup1”的選項(xiàng)按鈕組，2個(gè)按鈕的標(biāo)題順序?yàn)椤稗D(zhuǎn)成大寫(xiě)”、“轉(zhuǎn)成小寫(xiě)”，當(dāng)選中某個(gè)按鈕時(shí)，文本框輸入的字符串發(fā)生相應(yīng)的變化，編寫(xiě)“OptionGroup1”的Click事件代碼；(5)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))操作要點(diǎn)：1）選項(xiàng)按鈕組OPTIONGROUP1的CLICK事件代碼:x=thisform.text1.valuedocasecasethis.value=1thisform.text1.value=upper(x)casethis.value=2thisform.text1.value=lower(x)Endcase2）關(guān)閉按鈕COMMAND1的CLICK事件代碼:Thisform.release六、命令按鈕組（二十二）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“學(xué)生成績(jī)查詢(xún)”，高度為260，寬度為400；(2)將xdcj.dbf添加到表單的數(shù)據(jù)環(huán)境中(3)將xscj表各字段拖至表單上；(4)定義一個(gè)名稱(chēng)為“CommandGroup1”的命令按鈕組，4個(gè)按鈕的標(biāo)題順序?yàn)椤暗谝粭l”、“上一條”、“下一條”、“最后一條”當(dāng)選中某個(gè)按鈕時(shí)，文本框中字符串發(fā)生相應(yīng)的變化，編寫(xiě)“CommandGroup1”的Click事件代碼.操作要點(diǎn)：右擊命令按鈕組，在彈出的快捷菜單上選生成器，彈出“命令組生成器”對(duì)話(huà)框選“布局”選項(xiàng)卡，按鈕布局：水平按鈕組各命令按鈕的CLICK事件代碼如下：COMMAND1的CLICK事件代碼:go1thisform.refreshCOMMAND2的CLICK事件代碼:skip-1thisform.refreshCOMMAND3的CLICK事件代碼:Skip1thisform.refreshCOMMAND4的CLICK事件代碼:gobottomthisform.refresh七、微調(diào)控件（二十三）操作要點(diǎn)：1）把spinner1的increment屬性設(shè)立為1.00，spinnerhighvalue設(shè)為40，spinnnerlowvalue設(shè)為6Spinner1的interactivechange事件代碼：thisform.text1.fontsize=thisform.spinner1.value2）關(guān)閉按鈕COMMAND1的CLICK事件代碼:thisform.release

（二十四）代碼編寫(xiě)：1）“設(shè)立為表單背景色”按鈕COMMAND1事件代碼為：x=thisform.spinner1.valuey=thisform.spinner2.valuez=thisform.spinner3.valuethisform.backcolor=rgb(x,y,z)2）關(guān)閉按鈕COMMAND1的CLICK事件代碼:thisform.release七、計(jì)時(shí)器（二十五）題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“歡迎光顧”，高度為260，寬度為400；(2)定義一個(gè)名稱(chēng)為“LABEL1”，標(biāo)題為“2023北京奧運(yùn)”的標(biāo)簽,字號(hào)為12的加粗藍(lán)色字體(RGB值為0,0,255);(3)定義一個(gè)名稱(chēng)為“TIMER1”的計(jì)時(shí)器,Enabled為.F.,Interval的值為500,編寫(xiě)Timer事件代碼,使得每執(zhí)行一次代碼標(biāo)簽上移10;(4)定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“開(kāi)始”的按鈕，當(dāng)單擊該按鈕時(shí)，標(biāo)簽LABEL1中的內(nèi)容逐漸向表單上方移動(dòng);(5)定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))。操作要點(diǎn)：1）TIMER1按鈕的TIMER事件代碼為:thisform.label1.top=thisform.label1.top-10Command1按鈕的CLICK事件代碼為:thisform.timer1.enabled=.t.2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release注意：1）不要忘掉設(shè)立TIMER1的INTERVAL2）執(zhí)行過(guò)程：開(kāi)始按鈕的CLICK事件代碼為激活時(shí)鐘TIMER1，由TIMER1的CLICK事件代碼控制標(biāo)簽的移動(dòng)。（二十六）代碼編寫(xiě)：1）時(shí)鐘TIMER1按鈕的TIMER事件代碼為:thisform.label1.left=thisform.label1.left+52）“開(kāi)始“按鈕Command1的CLICK事件代碼為:thisform.timer1.enabled=.t.3）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release

（二十七）操作要點(diǎn)：1)自動(dòng)居中，把label2的aligenment屬性設(shè)為2-中央2)把label2的caption屬性設(shè)為空3）把timer1的interval屬性設(shè)為1000，并在timer1的timer事件代碼里寫(xiě)：thisform.label2.caption=time()4）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release八、頁(yè)框（二十八)題目規(guī)定：(1)該表單的名稱(chēng)為“Form1”，標(biāo)題為“頁(yè)框演示”，高度為260，寬度為400；(2)定義一個(gè)名稱(chēng)為“Pageframe1”的頁(yè)框,具有兩個(gè)頁(yè)面,分別為“系統(tǒng)編輯”和“退出系統(tǒng)”。(3)在第一個(gè)頁(yè)面中定義一個(gè)名稱(chēng)為“Command1”，標(biāo)題為“開(kāi)始”的按鈕；(4)在第二個(gè)頁(yè)面中定義一個(gè)名稱(chēng)為“Command2”，標(biāo)題為“關(guān)閉”的按鈕，當(dāng)單擊該按鈕時(shí)，釋放該表單(不得退出VFP系統(tǒng))。

（二十九）操作要點(diǎn)：1）“放大”按鈕CLICK事件代碼：thisform.text1.fontsize=thisform.text1.fontsize+32）“縮小”按鈕CLICK事件代碼：thisform.text1.fontsize=thisform.text1.fontsize-3ifthisform.text1.fontsize<8thisform.text1.fontsize=8endif3）“還原”按鈕CLICK事件代碼：thisform.text1.fontsize=9九、數(shù)據(jù)環(huán)境（三十）代碼編寫(xiě)：1）“查詢(xún)”按鈕Command1的Click事件代碼:Gothisform.text1.valueThisform.refresh3）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release

（三十一）代碼編寫(xiě)：組合框combo1的click事件代碼：thisform.refresh2）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release（三十二）1）“commandgroup1”n=this.valuedocasecasen=1if.not.bof()skip-1endifcasen=2if.not.eof()skipendififeof()skip-1endifendcasethisform.refresh2）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.ReleaseVFP程序設(shè)計(jì)題第2題：編制一個(gè)表單完畢計(jì)數(shù)器計(jì)數(shù)顯示功能（界面如圖例所示，圖例文獻(xiàn)為*.JPG）。具體規(guī)定如下：表單的邊框?yàn)楣潭▽?duì)話(huà)框，運(yùn)營(yíng)時(shí)自動(dòng)居中，不可移動(dòng)；表單初始顯示狀態(tài)為全零“00:00:00”；按“計(jì)數(shù)”按鈕后，自動(dòng)以秒為單位從零開(kāi)始計(jì)數(shù)（設(shè)：時(shí)的計(jì)數(shù)屬性名為F，分的計(jì)數(shù)屬性名為H，秒的計(jì)數(shù)屬性名為S）并在表單上動(dòng)態(tài)顯示；按“停止”按鈕后暫停計(jì)數(shù)，按“計(jì)數(shù)”按鈕可以繼續(xù)計(jì)數(shù)；參考答案：表單的標(biāo)題屬性Caption設(shè)立為“計(jì)數(shù)器”；表單的BorderStyle屬性為“2—固定對(duì)話(huà)框”，自動(dòng)居中屬性AutoCenter為.T.。表單的Movable屬性為.F.；時(shí)鐘控件Timer1的Interval屬性為1000。表單的Form1的Init事件代碼：THIS.TIMER1.INTERVAL=1000THISFORM.TIMER1.ENABLED=.F.STOR0TOTHIS.S,THIS.F,THIS.HTHIS.TEXT1.VALUE='00:00:00'“計(jì)數(shù)”按鈕Command1的Click事件代碼：THISFORM.TIMER1.ENABLED=.T.“停止”按鈕Command2的Click事件代碼：THISFORM.TIMER1.ENABLED=.F.時(shí)鐘控件Timer1的Timer事件代碼：THISFORM.S=THISFORM.S+1IFTHISFORM.S=60THISFORM.F=THISFORM.F+1THISFORM.S=0ENDIFIFTHISFORM.F=60THISFORM.H=THISFORM.H+1THISFORM.F=0ENDIFIFTHISFORM.H=60THISFORM.S=THISFORM.S+1THISFORM.H=0ENDIFHH=IIF(THISFORM.H>=10,STR(THISFORM.H,2),'0'+STR(THISFORM.H,1))FF=IIF(THISFORM.F>=10,STR(THISFORM.F,2),'0'+STR(THISFORM.F,1))SS=IIF(THISFORM.S>=10,STR(THISFORM.S,2),'0'+STR(THISFORM.S,1))THISFORM.TEXT1.VALUE=HH+':'+FF+':'+SS第3題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的只讀瀏覽顯示功能（界面如圖例所示）。具體規(guī)定如下：表單的邊框?yàn)楣潭▽?duì)話(huà)框，運(yùn)營(yíng)時(shí)自動(dòng)居中，不可移動(dòng)；表單初始顯示內(nèi)容為表文獻(xiàn)“學(xué)生.dbf”的首記錄；表單內(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ì)話(huà)框”，自動(dòng)居中屬性AutoCenter為.T.;3．表單的Movable屬性為.F.；4．時(shí)鐘控件Timer1的Interval屬性為10000。5．表單的Form1的Init事件代碼：THIS.SETALL("READONLY",.T.,"TEXTBOX")GOTOPTHISFORM.REFRESH6．時(shí)鐘控件Timer1的Timer事件代碼：SKIPIFEOF() GOTOPENDIFTHISFORM.REFRESH第4題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的只讀瀏覽顯示功能（界面如圖例所示）。具體規(guī)定如下：表單的邊框?yàn)閱尉€邊框，運(yùn)營(yíng)時(shí)自動(dòng)居中；表單初始顯示內(nèi)容為表文獻(xiàn)“學(xué)生.dbf”的首記錄；當(dāng)按“前翻”“后翻”“首記錄”“末記錄”按鈕時(shí)，表單將自動(dòng)顯示相應(yīng)記錄的內(nèi)容；當(dāng)翻至表頭或表底時(shí)，將自動(dòng)設(shè)立相應(yīng)按鈕不可訪問(wèn)。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生表內(nèi)容只讀瀏覽”；表單的BorderStyle屬性為“1—單線邊框”；自動(dòng)居中屬性AutoCenter為.T.表單的Form1的Init事件代碼：THIS.SETALL("READONLY",.T.,"TEXTBOX")GOTOPTHISFORM.REFRESH“首記錄”按鈕Command1的Click事件代碼：gomand2.enabled=.mand3.enabled=.mand4.enabled=.mand1.enabled=.f.thisform.refresh“前翻”按鈕Command2的Click事件代碼：skip-1ifbof()mand1.enabled=.f.this.enabled=.mand3.enabled=.mand4.enabled=.t.thisform.refresh6．“后翻”按鈕Command3的Click事件代碼：skipifeof()mand3.enabled=.mand4.enabled=.mand1.enabled=.mand2.enabled=.t.thisform.refresh7．“末記錄”按鈕Command4的Click事件代碼：gomand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.thisform.refresh第7題：編制一個(gè)表單完畢表文獻(xiàn)“成績(jī).dbf”內(nèi)容的查詢(xún)顯示功能（界面如圖例所示）。具體規(guī)定如下：表單的邊框?yàn)楣潭▽?duì)話(huà)框，運(yùn)營(yíng)時(shí)自動(dòng)居中；當(dāng)用戶(hù)在組合框（下拉列表）選擇班級(jí)（學(xué)號(hào)的左三位）后，表單將自動(dòng)顯示相應(yīng)班級(jí)的所有學(xué)生的總平均成績(jī)；按“退出”按鈕時(shí)，自動(dòng)關(guān)閉表單。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“查詢(xún)并顯示指定班級(jí)的總平均成績(jī)”；表單的BorderStyle屬性為“2—固定對(duì)話(huà)框”；自動(dòng)居中屬性AutoCenter為.T.。組合框Combo1的Init事件代碼：SETTALKOFFINDEXONLEFT(學(xué)號(hào),3)TOXHUNIQUESCANTHIS.ADDITEM(LEFT(學(xué)號(hào),3))ENDSCANSETINDEXTO組合框Combo1的Click事件代碼：BJ=THIS.VALUEAVERAGEFORLEFT(學(xué)號(hào),3)=BJ成績(jī)TOCJTHISFORM.TEXT1.VALUE=CJ“退出”按鈕Command1的Click事件代碼：thisform.release第8題：編制一個(gè)表單完畢數(shù)字時(shí)鐘顯示功能（界面如圖例所示）。具體規(guī)定如下：表單的位置在左上角，可移動(dòng)，表單的邊框?yàn)闊o(wú)邊框；表單將自動(dòng)以1秒間隔動(dòng)態(tài)顯示系統(tǒng)時(shí)間；參考答案：表單的標(biāo)題屬性Caption設(shè)立為“數(shù)字時(shí)鐘”；表單的位置屬性Left為0；Top為0；Movable為.T.；表單的BorderStyle屬性為“0—無(wú)邊框”；時(shí)鐘控件Timer1的Interval屬性為1000。文本框Text1的背景色Backcolor為RGB(255,255,255)；FONTNAME為“隸書(shū)”。時(shí)鐘控件Timer1的Timer事件代碼：s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+"時(shí)"+f+'分'+m+'秒'第10題：編制一個(gè)表單完畢表文獻(xiàn)“成績(jī).dbf”和“課程.dbf”內(nèi)容的查詢(xún)顯示功能（界面如圖所示）。具體規(guī)定如下：表單運(yùn)營(yíng)時(shí)自動(dòng)居中，不可移動(dòng)；當(dāng)用戶(hù)在組合框（下拉列表）選擇課程后，表單將自動(dòng)顯示該課程的總平均成績(jī)；3．按“退出”按鈕時(shí)，自動(dòng)關(guān)閉表單。參考答案：1．表單的標(biāo)題屬性Caption設(shè)立為“查詢(xún)并顯示指定課程的總平均成績(jī)”；2．表單的自動(dòng)居中屬性AutoCenter為.T.;3．表單的Movable屬性為.F.；4．組合框Combo1的RowSouceType屬性為“6-字段”，RowSouce屬性為“課程.課程名”。5．組合框Combo1的Click事件代碼：SETTALKOFFSELECT課程KCH=課程號(hào)SELECT成績(jī)AVERAGEFOR課程號(hào)=KCH成績(jī)TOCJTHISFORM.TEXT1.VALUE=CJ6.“退出”按鈕Command1的Click事件代碼：thisform.release第11題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的信息查詢(xún)功能（界面如圖例所示）。具體規(guī)定如下：表單的邊框?yàn)楣潭▽?duì)話(huà)框，運(yùn)營(yíng)時(shí)自動(dòng)居中，不可移動(dòng)；表單的文本框中輸入需查詢(xún)學(xué)生的學(xué)號(hào)。參考答案：1．表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生表信息查詢(xún)”；2．表單的BorderStyle屬性為“2—固定對(duì)話(huà)框”，自動(dòng)居中屬性AutoCenter為.T.;表單的Movable屬性為.F.；標(biāo)簽Label2的Forecolor屬性為“255,255,255”；FontSize屬性為“16”；表單的Form1的Init事件代碼：use學(xué)生thisform.setall("visible",.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.表單的Form1的destroy事件代碼：use7.文本框Text1的Valid事件代碼：locaforalltrim(學(xué)號(hào))=alltrim(this.value)iffound() thisform.label2.caption="" thisform.setall("visible",.t.)else thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. thisform.label2.visible=.t. thisform.label2.caption="您所指定的學(xué)生并不存在！"endifthisform.refreshreturn.t.第12題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)“按鈕組調(diào)色板”表單（界面如圖例所示）。具體規(guī)定如下：表單的標(biāo)題為“按鈕組調(diào)色板”，表單運(yùn)營(yíng)時(shí)，當(dāng)按某個(gè)命令按鈕后，表單的背景色就會(huì)變成按鈕指定的相應(yīng)顏色。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“按鈕組調(diào)色板”；命令按鈕組Commandgroup1的Click事件代碼：docasecasethis.value=1thisform.backcolor=rgb(225,0,0)casethis.value=2thisform.backcolor=rgb(0,255,0)casethis.value=3thisform.backcolor=rgb(0,0,255)casethis.value=4thisform.backcolor=rgb(0,0,0)casethis.value=5thisform.backcolor=rgb(225,255,255)endcasethisform.refresh第13題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)“按鈕組調(diào)色板”表單（界面如圖例所示）。具體規(guī)定如下：1.表單的標(biāo)題為“按鈕組調(diào)色板”，表單運(yùn)營(yíng)時(shí)，當(dāng)按某個(gè)命令按鈕后，命令按鈕組的背景色就會(huì)變成按鈕指定的相應(yīng)顏色。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“按鈕組調(diào)色板”；2.命令按鈕組Commandgroup1的Click事件代碼：docasecasethis.value=1this.backcolor=rgb(225,0,0)casethis.value=2this.backcolor=rgb(0,255,0)casethis.value=3this.backcolor=rgb(0,0,255)casethis.value=4this.backcolor=rgb(0,0,0)casethis.value=5this.backcolor=rgb(225,255,255)endcasethisform.refresh第15題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)“選項(xiàng)按鈕組調(diào)色板”表單（界面如圖例所示）。具體規(guī)定如下：1.表單的標(biāo)題為“選項(xiàng)按鈕組調(diào)色板”，表單運(yùn)營(yíng)時(shí)，當(dāng)按某個(gè)命令按鈕后，選項(xiàng)按鈕組的背景色就會(huì)變成按鈕指定的相應(yīng)顏色。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“選項(xiàng)按鈕組調(diào)色板”；2.選項(xiàng)按鈕組Optiongroup1的Click事件代碼：docasecasethis.value=1 thisform.optiongroup1.backcolor=rgb(255,0,0)casethis.value=2 thisform.optiongroup1.backcolor=rgb(0,255,0)casethis.value=3 thisform.optiongroup1.backcolor=rgb(0,0,255)casethis.value=4 thisform.optiongroup1.backcolor=rgb(0,0,0)casethis.value=5 thisform.optiongroup1.backcolor=rgb(255,255,255)endcase第16題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的信息查詢(xún)功能（界面如圖例所示）。具體規(guī)定如下：表單的列表框中選擇需查詢(xún)學(xué)生的姓名。所有文本框Text為只讀。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生表信息查詢(xún)”；所有文本框Text的ReadOnly屬性為“.T.”；3.表單的Form1的Init事件代碼：use學(xué)生thisform.setall("visible",.f.,"textbox")thisform.setall("visible",.f.,"label")thisform.label1.visible=.t.thisform.refresh4．表單的Form1的destroy事件代碼：use 5．列表框List1的Interactivechange事件代碼： thisform.setall("visible",.t.)thisform.refresh第17題：編制一個(gè)表單完畢表文獻(xiàn)“學(xué)生.dbf”內(nèi)容的信息查詢(xún)功能（界面如圖例所示）。具體規(guī)定如下：表單的組合框中選擇需查詢(xún)學(xué)生的姓名。所有文本框Text為只讀。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生表信息查詢(xún)”；Combo1的Rowsourcetype為“6-字段”，Rowsource為“學(xué)生.姓名”；所有文本框Text的ReadOnly屬性為“.T.”；4.表單的Form1的Init事件代碼：use學(xué)生thisform.setall("visible",.f.,"textbox")thisform.setall("visible",.f.,"label")thisform.label1.visible=.t.thisform.refresh5．表單的Form1的destroy事件代碼：use 6．列表框Combo1的Interactivechange事件代碼： thisform.setall("visible",.t.)thisform.refresh第19題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)時(shí)鐘表單（界面如圖例所示）。具體規(guī)定如下：表單只有標(biāo)題為“信息窗”。當(dāng)時(shí)鐘的分為奇數(shù)時(shí)，表單的背景色為綠色，偶數(shù)時(shí)為藍(lán)色。顯示的內(nèi)容為只讀。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“信息窗”；時(shí)鐘控件Timer1的Timer事件代碼：S=SUBSTR(TIME(),1,2)F=SUBSTR(TIME(),4,2)M=SUBSTR(TIME(),7,2)MN=VAL(f)IFINT(MN/2)=MN/2THISFORM.backCOLOR=RGB(0,0,255)ELSETHISFORM.backCOLOR=RGB(0,255,0)ENDIFthisform.text1.value=time()第20題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)“人工翻動(dòng)日歷牌”表單（界面如圖例所示）。具體規(guī)定如下：編制一個(gè)日歷的表單，表單的標(biāo)題為“人工翻動(dòng)日歷牌”，文本框?yàn)橹蛔x，顯示的日期格式為“年月日”，年份為4位。當(dāng)表單運(yùn)營(yíng)時(shí)，顯示當(dāng)前日期，用戶(hù)可以通過(guò)微調(diào)按鈕向前或向后翻動(dòng)日期。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“人工翻動(dòng)日歷牌”；微調(diào)Spinner1的Downclick事件代碼：thisform.text1.value=thisform.text1.value-1thisform.refresh微調(diào)Spnnier1的Upclick事件代碼：thisform.text1.value=thisform.text1.value+1thisform.refresh第21題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)“選頁(yè)調(diào)色板”表單（界面如圖例所示）。具體規(guī)定如下：1.表單的標(biāo)題為“選頁(yè)調(diào)色板”，表單運(yùn)營(yíng)時(shí)，當(dāng)按某個(gè)命令按鈕后，該頁(yè)框的背景色就會(huì)變成按鈕指定的相應(yīng)顏色。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“選頁(yè)調(diào)色板”；2.選項(xiàng)按鈕組Pageframe1的Click事件代碼：docasecasethis.activepage=1 this.page1.backcolor=rgb(255,0,0)casethis.activepage=2 this.page2.backcolor=rgb(0,255,0) casethis.activepage=3 this.page3.backcolor=rgb(0,0,255)casethis.activepage=4 this.page4.backcolor=rgb(0,0,0) casethis.activepage=5 this.page5.backcolor=rgb(255,255,255) endcasethisform.refresh 第22題：根據(jù)規(guī)定，用表單設(shè)計(jì)器建立一個(gè)如圖所示的表單（界面如圖例所示）。1.表單的標(biāo)題屬性Caption設(shè)立為“新建”；2.選項(xiàng)按鈕組Optiongroup1的Click事件代碼：docasecasethis.value=1 creacasethis.value=2 creaformcasethis.value=3 modifycommandendcase第24題：編制一個(gè)日歷時(shí)鐘表單（界面如圖例所示）。具體規(guī)定如下： 1．“日期”“星期”“時(shí)鐘”標(biāo)簽上的文本能自動(dòng)換行，自動(dòng)調(diào)整大小，背景透明； 2．文本框?qū)R方式為中間對(duì)齊； 3．時(shí)鐘每1秒種跳一次。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“日歷時(shí)鐘表單”；文本框Text1、Text2、Text3的對(duì)齊方式屬性為Alignment為“2—中間”；時(shí)鐘控件Timer1的Interval屬性為1000。時(shí)鐘控件Timer1的Timer事件代碼：Y=STR(YEAR(DATE()),4)M=STR(MONTH(DATE()),2)D=STR(DAY(DATE()),2)THISFORM.Text1.Value=Y+"年"+M+"月"+D+"日"C="日一二三四五六"N=DOW(DATE())W="星期"+SUBSTR(C,2*N-1,2)+"("+CDOW(DATE())+")"THISFORM.Text2.Value=WTHISFORM.Text3.Value=TIME()第26題：編制一個(gè)如圖所示的表單（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生成績(jī)信息瀏覽”；2.表單的Form1的Init事件代碼：setdeleonSElect課程setordertotag課程號(hào)in成績(jī)SETRELATIONTO課程號(hào)INTO成績(jī)select學(xué)生setordertotag學(xué)號(hào)in成績(jī)SETRELATIONTO學(xué)號(hào)INTO成績(jī)withthis.grd成績(jī).readonly=.f..allowaddnew=.f..deletemark=.f.endwiththis.setall("READONLY",.T.,"TEXTBOX")mand1.setfocus3.表單的Form1的Unload事件代碼： clearevents4.命令按鈕組Commandgroup1的Click事件代碼：docasecasethis.value=1&&表頭按鈕gotopmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.casethis.value=2and!bof()&&前翻skip-1ifbof()mand1.enabled=.f.mand2.enabled=.f.endifmand3.enabled=.t.mand4.enabled=.t.casethis.value=3and!eof()&&后翻skipifeof()mand3.enabled=.f.mand4.enabled=.f.endifmand1.enabled=.t.mand2.enabled=.t.casethis.value=4&&表尾gobottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.casethis.value=5&&退出ifmessagebox("退出嗎？",4+32,"退出確認(rèn)框")=6select成績(jī)packsetdeleteoffthisform.releaseendifendcasethisform.refresh第27題：編制一個(gè)表單完畢學(xué)生成績(jī)信息查詢(xún)顯示功能（界面如圖例所示）。參考答案：1．表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生成績(jī)信息查詢(xún)表單”；2．文本框Text1的SelectOnEntry設(shè)立為“.T.”；表單的Form1的Init事件代碼：sele學(xué)生setordertotag學(xué)號(hào)in成績(jī)setrelationto學(xué)號(hào)into成績(jī)thisform.setall("visible",.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.表單的Form1的Unload事件代碼：use文本框Text1的Valid事件代碼：locaforalltrim(學(xué)號(hào))=alltrim(this.value)iffound() thisform.setall("visible",.t.) thisform.text2.value=姓名else thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. messagebox('查無(wú)此人！',0+48,"提醒窗") endifthisform.refreshreturn.t.文本框Text1的Gotfocus事件代碼：thisform.setall("visible",.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.refresh第28題：編制一個(gè)表單完畢表文獻(xiàn)“成績(jī).dbf”內(nèi)容的查詢(xún)顯示功能（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生成績(jī)信息查詢(xún)”；2.表單的Form1的Init事件代碼：sele學(xué)生setordertotag學(xué)號(hào)in成績(jī)setrelationto學(xué)號(hào)into成績(jī)3.列表框List1的Interactivechange事件代碼： thisform.setall("visible",.t.)thisform.refresh4.列表框List1的Gotfocus事件代碼：sele學(xué)生setordertotag學(xué)號(hào)in成績(jī)setrelationto學(xué)號(hào)into成績(jī)thisform.refresh第30題：編制一個(gè)表單完畢學(xué)籍信息查詢(xún)顯示功能（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)生學(xué)籍信息查詢(xún)表單”；表單的Form1的Init事件代碼：SELE成績(jī)SETORDERTOTAG課程號(hào)IN課程SETRELATIONTO課程號(hào)INTO課程sele學(xué)生setordertotag學(xué)號(hào)in成績(jī)setrelationto學(xué)號(hào)into成績(jī)thisform.setall("visible",.f.)bo1.visible=.bo1.style=2bo1.rowsourcetype=6bo1.rowsource="學(xué)生.學(xué)號(hào)"表單的Form1的Unload事件代碼：use組合框Combo1的Interactivechange事件代碼：thisform.setall("visible",.t.)select成績(jī)THISFORM.REFRESH組合框Combo1的Gotfocus事件代碼： thisform.setall("visible",.f.)bo1.visible=.t.thisform.refresh第32題：編制一個(gè)表單完畢學(xué)籍信息查詢(xún)顯示功能（界面如圖例所示）。1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)籍信息查詢(xún)表單”；2.數(shù)據(jù)環(huán)境Dataenvironment中的3個(gè)表文獻(xiàn)Cursor1、Cursor2和Cursor3的表獨(dú)占屬性Exclusive設(shè)立為真（.T.）。3.表單的Form1的Init事件代碼： setdeleonSElect課程setordertotag課程號(hào)in成績(jī)SETRELATIONTO課程號(hào)INTO成績(jī)select學(xué)生setordertotag學(xué)號(hào)in成績(jī)SETRELATIONTO學(xué)號(hào)INTO成績(jī)this.setall("READONLY",.T.,"TEXTBOX")this.pageframe1.activepage=1&&激活“學(xué)生”頁(yè)面mand1.setfocus4.表單的Form1的Unload事件代碼： clearevents5.命令按鈕組Commandgroup1的Click事件代碼： docasecasethis.value=1&&表頭按鈕gotopmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.casethis.value=2and!bof()&&前翻skip-1ifbof()mand1.enabled=.f.mand2.enabled=.f.endifmand3.enabled=.t.mand4.enabled=.t.casethis.value=3and!eof()&&后翻skipifeof()mand3.enabled=.f.mand4.enabled=.f.endifmand1.enabled=.t.mand2.enabled=.t.casethis.value=4&&表尾gobottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.casethis.value=5&&退出ifmessagebox("退出嗎？",4+32,"退出確認(rèn)框")=6select成績(jī)packsetdeleteoffthisform.releaseendifendcaseifthisform.pageframe1.activepage=1select學(xué)生setordertotag學(xué)號(hào)in成績(jī)elseselect課程setordertotag課程號(hào)in成績(jī)endifthisform.refresh6.頁(yè)框page1的activate事件代碼： select學(xué)生setordertotag學(xué)號(hào)in成績(jī)7.頁(yè)框page2的activate事件代碼：select課程setordertotag課程號(hào)in成績(jī)第33題：編制一個(gè)表單完畢學(xué)籍信息查詢(xún)顯示功能（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)籍信息查詢(xún)表單”；2.表單的Form1的Init事件代碼： sele學(xué)生setordertotag學(xué)號(hào)in成績(jī)setrelationto學(xué)號(hào)into成績(jī)3.列表框List1的Interactivechange事件代碼：thisform.grid1.setfocusthisform.refresh 4.列表框List1的Gotfocus事件代碼： sele學(xué)生setordertotag學(xué)號(hào)in成績(jī)setrelationto學(xué)號(hào)into成績(jī)thisform.refresh5.列表框List2的Interactivechange事件代碼：thisform.grid1.column1.text1.setfocusthisform.refresh6.列表框List2的Gotfocus事件代碼：sele課程setordertotag課程號(hào)in成績(jī)setrelationto課程號(hào)into成績(jī)thisform.refresh第34題：編制一個(gè)表單完畢學(xué)籍信息查詢(xún)顯示功能（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“學(xué)籍信息查詢(xún)表單”；2.表單的Form1的Init事件代碼： thisform.list3.rowsourcetype=0thisform.list3.rowsource=''3.列表框List1的Interactivechange事件代碼：select成績(jī)setordertotag課程號(hào)in課程setrelationto課程號(hào)into課程thisform.list3.clearselect成績(jī)scanfor學(xué)號(hào)=學(xué)生.學(xué)號(hào) thisform.list3.additem(課程.課程名+str(成績(jī).成績(jī),6,2))endscanthisform.refresh 4.列表框List1的Gotfocus事件代碼：thisform.refresh5.列表框List2的Interactivechange事件代碼：select成績(jī)setordertotag學(xué)號(hào)in學(xué)生setrelationto學(xué)號(hào)into學(xué)生thisform.list3.clearselect成績(jī)scanfor課程號(hào)=課程.課程號(hào) thisform.list3.additem(學(xué)生.姓名+str(成績(jī).成績(jī),6,2))endscanthisform.refresh6.列表框List2的Gotfocus事件代碼：thisform.refresh另解：參考答案：表單的標(biāo)題屬性Caption設(shè)立為“學(xué)籍信息查詢(xún)表單”；列表框List1的Init事件代碼：select學(xué)生scan this.additem(姓名)endscanthisform.refresh列表框List1的Interactivechange事件代碼：THISFORM.LIST1.SETFOCUSSELECT學(xué)生LOCATEFOR姓名=THIS.VALUEA=學(xué)號(hào)ERASE11.DBFSELECT課程.課程名,成績(jī).成績(jī)FROM課程,成績(jī)WHERE成績(jī).學(xué)號(hào)=AAND成績(jī).課程號(hào)=課程.課程號(hào)INTOTABLE11THISFORM.LIST3.CLEARUSE11SCAN THISFORM.LIST3.ADDITEM(ALLTRIM(課程名)+STR(成績(jī)))ENDSCANUSETHISFORM.REFRESH列表框List2的Init事件代碼：select課程scan this.additem(課程名)endscanthisform.refresh列表框List2的Interactivechange事件代碼：THISFORM.LIST2.SETFOCUSSELECT課程LOCATEFOR課程名=THIS.VALUEA=課程號(hào)ERASE11.DBFSELECT學(xué)生.姓名,成績(jī).成績(jī)FROM學(xué)生,成績(jī)WHERE成績(jī).學(xué)號(hào)=學(xué)生.學(xué)號(hào)AND成績(jī).課程號(hào)=AINTOTABLE11THISFORM.LIST3.CLEARUSE11SCAN THISFORM.LIST3.ADDITEM(ALLTRIM(姓名)+STR(成績(jī)))ENDSCANUSETHISFORM.REFRESH第35題：編制一個(gè)表單完畢文字的水平移動(dòng)功能（界面如圖例所示）。參考答案：表單的標(biāo)題屬性Caption設(shè)立為“水平移動(dòng)的文字”；添加表單的新屬性u(píng)d；3.表單的Form1的Init事件代碼：this.ud='R'4．時(shí)鐘控件Timer1的Timer事件代碼：docasecasethisform.ud='R' thisform.label1.left=thisform.label1.left+1 ifthisform.label1.left=thisform.width-thisform.left-3 thisform.ud='L' endifcasethisform.ud='L' thisform.label1.left=thisform.label1.left-1 ifthisform.label1.left=0 thisform.ud='R' endifendcasethisform.refresh第37題：編制一個(gè)表單完畢文字的縮放功能（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“縮放文字”；2.添加表單的新屬性u(píng)d；3.表單的Form1的Init事件代碼：this.ud='D'4．時(shí)鐘控件Timer1的Timer事件代碼： docasecasethisform.ud='D' thisform.label1.fontsize=thisform.label1.fontsize+1 ifthisform.label1.fontsize=52 thisform.ud='X' endifcasethisform.ud='X' thisform.label1.fontsize=thisform.label1.fontsize-1 ifthisform.label1.fontsize=4 thisform.ud='D' endifendcasethisform.refresh第40題：編制一個(gè)表單完畢數(shù)據(jù)轉(zhuǎn)移操作功能（界面如圖例所示）。參考答案：1.表單的標(biāo)題屬性Caption設(shè)立為“數(shù)據(jù)轉(zhuǎn)移操作”；2.表單的Form1的Init事件代碼：this.list2.rowsourcetype=0this.list2.rowsource=""this.list2.sorted=.t.this.list1.rowsourcetype=0this.list1.rowsource=""this.list1.sorted=.t.use學(xué)生scan this.list1.additem(姓名)endscan表單的Form1的Destroy事件代碼：use命令按鈕“選擇一項(xiàng)”Command1的Click事件代碼：thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)thisform.refresh5.命令按鈕“所有選定”Command2的Click事件代碼：thisform.list2.clearscan thisform.list2.additem(姓名)endscanthisform.list1.clearthisform.refresh一、表單設(shè)計(jì)。1、shape.scx參考解答：######formForm1Caption="畫(huà)圖"######shapeShape1Height=60Width=100Top=30Left=40BorderColor=0,0,255######commandCommand1Caption="畫(huà)圖"######commandCommand2Caption="清屏"######2、jpb.scx參考解答：######formForm1Caption="獎(jiǎng)牌查詢(xún)"######listList1RowSourceType=6RowSource="country.國(guó)家名稱(chēng)"######optiongroupOptiongroup1ButtonCount=3Option1.Caption="金牌"Option2.Caption="銀牌"Option3.Caption="銅牌"######commandCommand1Caption="查詢(xún)"######3、imsh2.