vfp表單所有習題參考答案

PAGEPAGE4VFP表單實驗參考講義一、標簽和文本框（一）題目要求：（1）該表單的名稱為“Form1”，標題為“密碼輸入窗口”，高度為190，寬度為300；（2）定義一個名稱為“Label1”、標題為“請輸入密碼”、字號為10磅的標簽；（3）定義一個名稱為“Text1”的文本框，用于輸入密碼，當輸入密碼時，屏幕顯示“*”；（4）定義一個名稱為“Label2”的標簽，標題為空，自動調(diào)整控件大??；（5）定義一個名稱為“Command1”，標題為“顯示密碼”的按鈕，當單擊該按鈕時，標簽“Label2”顯示輸入的密碼，編寫Click事件代碼（6）定義一個名稱為“Command2”，標題為“關(guān)閉”的按鈕，當單擊該按鈕時，釋放該表單。(不得退出VFP操作要點：1）注意將text1的屬性passwordchar設置為：*2）label2的屬性autosize設置為：.T.3）“顯示密碼”按鈕Command1的Click事件代碼:寫法一：Thisform.Label2.Caption=Thisform.Text1.Value寫法二：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="密碼錯誤"EndifCommand2的CLICK事件代碼:thisform.release（三）代碼編寫：“確定”按鈕Command1的Click事件代碼:IfThisform.text1.value=”ABCD”Messagebox(“歡迎光臨”，65，“密碼正確“)ElseMessagebox(“禁止進入“，65，”密碼錯誤“)Endif2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release

Thisform.Text2.Value=“這是一個偶數(shù)!”ELSEThisform.Text2.Value=“這是一個奇數(shù)!”ENDIF2）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（八）代碼編寫：1）“計算”按鈕Command1的Click事件代碼:x=thisform.text1.valuethisform.text2.value=x^22）“關(guān)閉”的按鈕Command2的Click事件代碼:Thisform.Release（九）代碼編寫：1）“產(chǎn)生隨機數(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（十）題目要求：(1)該表單的名稱為“Form1”，標題為“顏色設置”，高度為260，寬度為400(2)定義一個名稱為“Label1”標題為“紅”(3)定義一個名稱為“Label2”標題為“綠”(4)定義一個名稱為“Label3”標題為“藍”(5)定義三個名稱分別為“Text1”、“Text2”、“Text3(6)定義一個名稱為“Command1”，標題為“設置為表單背景色”的按鈕，當單擊該按鈕時，表單背景色設置為用3個文本框中數(shù)字組成的rgb顏色，編寫Click(7)定義一個名稱為“Command2”，標題為“關(guān)閉”的按鈕，當單擊該按鈕時，釋放該表單(不得退出VFP系統(tǒng)。操作要點：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

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

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

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

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

（二十九）操作要點：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)境（三十）代碼編寫：1）“查詢”按鈕Command1的Click事件代碼:Gothisform.text1.valueThisform.refresh3）“關(guān)閉”按鈕Command2的Click事件代碼:Thisform.Release

（三十一）代碼編寫：組合框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程序設計題第2題：編制一個表單完成計數(shù)器計數(shù)顯示功能（界面如圖例所示，圖例文件為*.JPG）。具體要求如下：表單的邊框為固定對話框，運行時自動居中，不可移動；表單初始顯示狀態(tài)為全零“00:00:00”；按“計數(shù)”按鈕后，自動以秒為單位從零開始計數(shù)（設：時的計數(shù)屬性名為F，分的計數(shù)屬性名為H，秒的計數(shù)屬性名為S）并在表單上動態(tài)顯示；按“停止”按鈕后暫停計數(shù)，按“計數(shù)”按鈕可以繼續(xù)計數(shù)；參考答案：表單的標題屬性Caption設置為“計數(shù)器”；表單的BorderStyle屬性為“2—固定對話框”，自動居中屬性AutoCenter為.T.。表單的Movable屬性為.F.；時鐘控件Timer1的Interval屬性為1000。表單的Form1的Init事件代碼：THIS.TIMER1.INTERVAL=1000THISFORM.TIMER1.ENABLED=.F.STOR0TOTHIS.S,THIS.F,THIS.HTHIS.TEXT1.VALUE='00:00:00'“計數(shù)”按鈕Command1的Click事件代碼：THISFORM.TIMER1.ENABLED=.T.“停止”按鈕Command2的Click事件代碼：THISFORM.TIMER1.ENABLED=.F.時鐘控件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題：編制一個表單完成表文件“學生.dbf”內(nèi)容的只讀瀏覽顯示功能（界面如圖例所示）。具體要求如下：表單的邊框為固定對話框，運行時自動居中，不可移動；表單初始顯示內(nèi)容為表文件“學生.dbf”的首記錄；表單內(nèi)容將以10秒為間隔自動刷新，即自動順序向后翻記錄，當翻至表底時，將自動回到首記錄循環(huán)翻動。參考答案：1．表單的標題屬性Caption設置為“學生表內(nèi)容只讀瀏覽”；2．表單的BorderStyle屬性為“2—固定對話框”，自動居中屬性AutoCenter為.T.;3．表單的Movable屬性為.F.；4．時鐘控件Timer1的Interval屬性為10000。5．表單的Form1的Init事件代碼：THIS.SETALL("READONLY",.T.,"TEXTBOX")GOTOPTHISFORM.REFRESH6．時鐘控件Timer1的Timer事件代碼：SKIPIFEOF() GOTOPENDIFTHISFORM.REFRESH第4題：編制一個表單完成表文件“學生.dbf”內(nèi)容的只讀瀏覽顯示功能（界面如圖例所示）。具體要求如下：表單的邊框為單線邊框，運行時自動居中；表單初始顯示內(nèi)容為表文件“學生.dbf”的首記錄；當按“前翻”“后翻”“首記錄”“末記錄”按鈕時，表單將自動顯示相應記錄的內(nèi)容；當翻至表頭或表底時，將自動設置相應按鈕不可訪問。參考答案：表單的標題屬性Caption設置為“學生表內(nèi)容只讀瀏覽”；表單的BorderStyle屬性為“1—單線邊框”；自動居中屬性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題：編制一個表單完成表文件“成績.dbf”內(nèi)容的查詢顯示功能（界面如圖例所示）。具體要求如下：表單的邊框為固定對話框，運行時自動居中；當用戶在組合框（下拉列表）選擇班級（學號的左三位）后，表單將自動顯示對應班級的所有學生的總平均成績；按“退出”按鈕時，自動關(guān)閉表單。參考答案：表單的標題屬性Caption設置為“查詢并顯示指定班級的總平均成績”；表單的BorderStyle屬性為“2—固定對話框”；自動居中屬性AutoCenter為.T.。組合框Combo1的Init事件代碼：SETTALKOFFINDEXONLEFT(學號,3)TOXHUNIQUESCANTHIS.ADDITEM(LEFT(學號,3))ENDSCANSETINDEXTO組合框Combo1的Click事件代碼：BJ=THIS.VALUEAVERAGEFORLEFT(學號,3)=BJ成績TOCJTHISFORM.TEXT1.VALUE=CJ“退出”按鈕Command1的Click事件代碼：thisform.release第8題：編制一個表單完成數(shù)字時鐘顯示功能（界面如圖例所示）。具體要求如下：表單的位置在左上角，可移動，表單的邊框為無邊框；表單將自動以1秒間隔動態(tài)顯示系統(tǒng)時間；參考答案：表單的標題屬性Caption設置為“數(shù)字時鐘”；表單的位置屬性Left為0；Top為0；Movable為.T.；表單的BorderStyle屬性為“0—無邊框”；時鐘控件Timer1的Interval屬性為1000。文本框Text1的背景色Backcolor為RGB(255,255,255)；FONTNAME為“隸書”。時鐘控件Timer1的Timer事件代碼：s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+"時"+f+'分'+m+'秒'第10題：編制一個表單完成表文件“成績.dbf”和“課程.dbf”內(nèi)容的查詢顯示功能（界面如圖所示）。具體要求如下：表單運行時自動居中，不可移動；當用戶在組合框（下拉列表）選擇課程后，表單將自動顯示該課程的總平均成績；3．按“退出”按鈕時，自動關(guān)閉表單。參考答案：1．表單的標題屬性Caption設置為“查詢并顯示指定課程的總平均成績”；2．表單的自動居中屬性AutoCenter為.T.;3．表單的Movable屬性為.F.；4．組合框Combo1的RowSouceType屬性為“6-字段”，RowSouce屬性為“課程.課程名”。5．組合框Combo1的Click事件代碼：SETTALKOFFSELECT課程KCH=課程號SELECT成績AVERAGEFOR課程號=KCH成績TOCJTHISFORM.TEXT1.VALUE=CJ6.“退出”按鈕Command1的Click事件代碼：thisform.release第11題：編制一個表單完成表文件“學生.dbf”內(nèi)容的信息查詢功能（界面如圖例所示）。具體要求如下：表單的邊框為固定對話框，運行時自動居中，不可移動；表單的文本框中輸入需查詢學生的學號。參考答案：1．表單的標題屬性Caption設置為“學生表信息查詢”；2．表單的BorderStyle屬性為“2—固定對話框”，自動居中屬性AutoCenter為.T.;表單的Movable屬性為.F.；標簽Label2的Forecolor屬性為“255,255,255”；FontSize屬性為“16”；表單的Form1的Init事件代碼：use學生thisform.setall("visible",.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.表單的Form1的destroy事件代碼：use7.文本框Text1的Valid事件代碼：locaforalltrim(學號)=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="您所指定的學生并不存在！"endifthisform.refreshreturn.t.第12題：根據(jù)要求，用表單設計器建立一個“按鈕組調(diào)色板”表單（界面如圖例所示）。具體要求如下：表單的標題為“按鈕組調(diào)色板”，表單運行時，當按某個命令按鈕后，表單的背景色就會變成按鈕指定的對應顏色。參考答案：表單的標題屬性Caption設置為“按鈕組調(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ù)要求，用表單設計器建立一個“按鈕組調(diào)色板”表單（界面如圖例所示）。具體要求如下：1.表單的標題為“按鈕組調(diào)色板”，表單運行時，當按某個命令按鈕后，命令按鈕組的背景色就會變成按鈕指定的對應顏色。參考答案：1.表單的標題屬性Caption設置為“按鈕組調(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ù)要求，用表單設計器建立一個“選項按鈕組調(diào)色板”表單（界面如圖例所示）。具體要求如下：1.表單的標題為“選項按鈕組調(diào)色板”，表單運行時，當按某個命令按鈕后，選項按鈕組的背景色就會變成按鈕指定的對應顏色。參考答案：1.表單的標題屬性Caption設置為“選項按鈕組調(diào)色板”；2.選項按鈕組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題：編制一個表單完成表文件“學生.dbf”內(nèi)容的信息查詢功能（界面如圖例所示）。具體要求如下：表單的列表框中選擇需查詢學生的姓名。所有文本框Text為只讀。參考答案：表單的標題屬性Caption設置為“學生表信息查詢”；所有文本框Text的ReadOnly屬性為“.T.”；3.表單的Form1的Init事件代碼：use學生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題：編制一個表單完成表文件“學生.dbf”內(nèi)容的信息查詢功能（界面如圖例所示）。具體要求如下：表單的組合框中選擇需查詢學生的姓名。所有文本框Text為只讀。參考答案：表單的標題屬性Caption設置為“學生表信息查詢”；Combo1的Rowsourcetype為“6-字段”，Rowsource為“學生.姓名”；所有文本框Text的ReadOnly屬性為“.T.”；4.表單的Form1的Init事件代碼：use學生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ù)要求，用表單設計器建立一個時鐘表單（界面如圖例所示）。具體要求如下：表單只有標題為“信息窗”。當時鐘的分為奇數(shù)時，表單的背景色為綠色，偶數(shù)時為藍色。顯示的內(nèi)容為只讀。參考答案：表單的標題屬性Caption設置為“信息窗”；時鐘控件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ù)要求，用表單設計器建立一個“人工翻動日歷牌”表單（界面如圖例所示）。具體要求如下：編制一個日歷的表單，表單的標題為“人工翻動日歷牌”，文本框為只讀，顯示的日期格式為“年月日”，年份為4位。當表單運行時，顯示當前日期，用戶可以通過微調(diào)按鈕向前或向后翻動日期。參考答案：表單的標題屬性Caption設置為“人工翻動日歷牌”；微調(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ù)要求，用表單設計器建立一個“選頁調(diào)色板”表單（界面如圖例所示）。具體要求如下：1.表單的標題為“選頁調(diào)色板”，表單運行時，當按某個命令按鈕后，該頁框的背景色就會變成按鈕指定的對應顏色。參考答案：1.表單的標題屬性Caption設置為“選頁調(diào)色板”；2.選項按鈕組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ù)要求，用表單設計器建立一個如圖所示的表單（界面如圖例所示）。1.表單的標題屬性Caption設置為“新建”；2.選項按鈕組Optiongroup1的Click事件代碼：docasecasethis.value=1 creacasethis.value=2 creaformcasethis.value=3 modifycommandendcase第24題：編制一個日歷時鐘表單（界面如圖例所示）。具體要求如下： 1．“日期”“星期”“時鐘”標簽上的文本能自動換行，自動調(diào)整大小，背景透明； 2．文本框?qū)R方式為中間對齊； 3．時鐘每1秒種跳一次。參考答案：表單的標題屬性Caption設置為“日歷時鐘表單”；文本框Text1、Text2、Text3的對齊方式屬性為Alignment為“2—中間”；時鐘控件Timer1的Interval屬性為1000。時鐘控件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題：編制一個如圖所示的表單（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“學生成績信息瀏覽”；2.表單的Form1的Init事件代碼：setdeleonSElect課程setordertotag課程號in成績SETRELATIONTO課程號INTO成績select學生setordertotag學號in成績SETRELATIONTO學號INTO成績withthis.grd成績.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,"退出確認框")=6select成績packsetdeleteoffthisform.releaseendifendcasethisform.refresh第27題：編制一個表單完成學生成績信息查詢顯示功能（界面如圖例所示）。參考答案：1．表單的標題屬性Caption設置為“學生成績信息查詢表單”；2．文本框Text1的SelectOnEntry設置為“.T.”；表單的Form1的Init事件代碼：sele學生setordertotag學號in成績setrelationto學號into成績thisform.setall("visible",.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.表單的Form1的Unload事件代碼：use文本框Text1的Valid事件代碼：locaforalltrim(學號)=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('查無此人！',0+48,"提示窗") endifthisform.refreshreturn.t.文本框Text1的Gotfocus事件代碼：thisform.setall("visible",.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.refresh第28題：編制一個表單完成表文件“成績.dbf”內(nèi)容的查詢顯示功能（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“學生成績信息查詢”；2.表單的Form1的Init事件代碼：sele學生setordertotag學號in成績setrelationto學號into成績3.列表框List1的Interactivechange事件代碼： thisform.setall("visible",.t.)thisform.refresh4.列表框List1的Gotfocus事件代碼：sele學生setordertotag學號in成績setrelationto學號into成績thisform.refresh第30題：編制一個表單完成學籍信息查詢顯示功能（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“學生學籍信息查詢表單”；表單的Form1的Init事件代碼：SELE成績SETORDERTOTAG課程號IN課程SETRELATIONTO課程號INTO課程sele學生setordertotag學號in成績setrelationto學號into成績thisform.setall("visible",.f.)bo1.visible=.bo1.style=2bo1.rowsourcetype=6bo1.rowsource="學生.學號"表單的Form1的Unload事件代碼：use組合框Combo1的Interactivechange事件代碼：thisform.setall("visible",.t.)select成績THISFORM.REFRESH組合框Combo1的Gotfocus事件代碼： thisform.setall("visible",.f.)bo1.visible=.t.thisform.refresh第32題：編制一個表單完成學籍信息查詢顯示功能（界面如圖例所示）。1.表單的標題屬性Caption設置為“學籍信息查詢表單”；2.數(shù)據(jù)環(huán)境Dataenvironment中的3個表文件Cursor1、Cursor2和Cursor3的表獨占屬性Exclusive設置為真（.T.）。3.表單的Form1的Init事件代碼： setdeleonSElect課程setordertotag課程號in成績SETRELATIONTO課程號INTO成績select學生setordertotag學號in成績SETRELATIONTO學號INTO成績this.setall("READONLY",.T.,"TEXTBOX")this.pageframe1.activepage=1&&激活“學生”頁面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,"退出確認框")=6select成績packsetdeleteoffthisform.releaseendifendcaseifthisform.pageframe1.activepage=1select學生setordertotag學號in成績elseselect課程setordertotag課程號in成績endifthisform.refresh6.頁框page1的activate事件代碼： select學生setordertotag學號in成績7.頁框page2的activate事件代碼：select課程setordertotag課程號in成績第33題：編制一個表單完成學籍信息查詢顯示功能（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“學籍信息查詢表單”；2.表單的Form1的Init事件代碼： sele學生setordertotag學號in成績setrelationto學號into成績3.列表框List1的Interactivechange事件代碼：thisform.grid1.setfocusthisform.refresh 4.列表框List1的Gotfocus事件代碼： sele學生setordertotag學號in成績setrelationto學號into成績thisform.refresh5.列表框List2的Interactivechange事件代碼：thisform.grid1.column1.text1.setfocusthisform.refresh6.列表框List2的Gotfocus事件代碼：sele課程setordertotag課程號in成績setrelationto課程號into成績thisform.refresh第34題：編制一個表單完成學籍信息查詢顯示功能（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“學籍信息查詢表單”；2.表單的Form1的Init事件代碼： thisform.list3.rowsourcetype=0thisform.list3.rowsource=''3.列表框List1的Interactivechange事件代碼：select成績setordertotag課程號in課程setrelationto課程號into課程thisform.list3.clearselect成績scanfor學號=學生.學號 thisform.list3.additem(課程.課程名+str(成績.成績,6,2))endscanthisform.refresh 4.列表框List1的Gotfocus事件代碼：thisform.refresh5.列表框List2的Interactivechange事件代碼：select成績setordertotag學號in學生setrelationto學號into學生thisform.list3.clearselect成績scanfor課程號=課程.課程號 thisform.list3.additem(學生.姓名+str(成績.成績,6,2))endscanthisform.refresh6.列表框List2的Gotfocus事件代碼：thisform.refresh另解：參考答案：表單的標題屬性Caption設置為“學籍信息查詢表單”；列表框List1的Init事件代碼：select學生scan this.additem(姓名)endscanthisform.refresh列表框List1的Interactivechange事件代碼：THISFORM.LIST1.SETFOCUSSELECT學生LOCATEFOR姓名=THIS.VALUEA=學號ERASE11.DBFSELECT課程.課程名,成績.成績FROM課程,成績WHERE成績.學號=AAND成績.課程號=課程.課程號INTOTABLE11THISFORM.LIST3.CLEARUSE11SCAN THISFORM.LIST3.ADDITEM(ALLTRIM(課程名)+STR(成績))ENDSCANUSETHISFORM.REFRESH列表框List2的Init事件代碼：select課程scan this.additem(課程名)endscanthisform.refresh列表框List2的Interactivechange事件代碼：THISFORM.LIST2.SETFOCUSSELECT課程LOCATEFOR課程名=THIS.VALUEA=課程號ERASE11.DBFSELECT學生.姓名,成績.成績FROM學生,成績WHERE成績.學號=學生.學號AND成績.課程號=AINTOTABLE11THISFORM.LIST3.CLEARUSE11SCAN THISFORM.LIST3.ADDITEM(ALLTRIM(姓名)+STR(成績))ENDSCANUSETHISFORM.REFRESH第35題：編制一個表單完成文字的水平移動功能（界面如圖例所示）。參考答案：表單的標題屬性Caption設置為“水平移動的文字”；添加表單的新屬性ud；3.表單的Form1的Init事件代碼：this.ud='R'4．時鐘控件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題：編制一個表單完成文字的縮放功能（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“縮放文字”；2.添加表單的新屬性ud；3.表單的Form1的Init事件代碼：this.ud='D'4．時鐘控件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題：編制一個表單完成數(shù)據(jù)轉(zhuǎn)移操作功能（界面如圖例所示）。參考答案：1.表單的標題屬性Caption設置為“數(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學生scan this.list1.additem(姓名)endscan表單的Form1的Destroy事件代碼：use命令按鈕“選擇一項”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一、表單設計。1、shape.scx參考解答：######formForm1Caption="畫圖"######shapeShape1Height=60Width=100Top=30Left=40BorderColor=0,0,255######commandCommand1Caption="畫圖"######commandCommand2Caption="清屏"######2、jpb.scx參考解答：######formForm1Caption="獎牌查詢"######listList1RowSourceType=6RowSource="country.國家名稱"######optiongroupOptiongroup1ButtonCount=3Option1.Caption="金牌"Option2.Caption="銀牌"Option3.Caption="銅牌"######commandCommand1Caption="查詢"######3、imsh2.scx參考解答：######formForm1Caption="形狀圖像"######labelLabel1FontBold=.T.FontSize=18BackStyle=0Caption="秋天"ForeColor=255,255,0######imageImage1Picture=autumn.jpgStretch=2######4、sjrq2.scx參考解答：######formForm1Caption="顯示日期時間"######pageframePageframe1PageCount=2Page1.Caption="日期"Page2.Caption="時間"######labellabel1FontItalic=.T.FontSize=14Caption=(DTOC(DATE()))######labellabel2Caption=(TIME())######5、OY2.scx參考解答：######labelLabel1FontName="隸書"FontSize=32BackStyle=0Caption="北京歡迎您"Left=70Top=24######labelLabel2FontName="隸書"FontSize=32BackStyle=0Caption="北京歡迎您"Left=73Top=21ForeColor=255,0,0######6、horse.scx參考解答：######formForm1ShowTips=.T.######labelLabel1Caption="你認識嗎？"AutoSize=.T.FontSize=20######imageImage1Picture=..\..\fjexam95\zebra.bmpBorderColor=255,255,255ToolTipText="斑馬"######7、Selball2.scx參考解答：######formForm1AutoCenter=.T.Caption="選擇"######optiongroupOptiongroup1ButtonCount=3Option1.Caption="選1號"Option2.Caption="選2號"Option3.Caption="選3號"Option1.Top=5Option2.Top=5Option3.Top=5######commandgroupCommandgroup1ButtonCount=2Command1.Caption="確定"Command2.Caption="取消"Command1.Top=5Command2.Top=5######8、dxxz2.scx參考解答：######formForm1Caption="多項選擇"######checkCheck1Caption="選擇1"AutoSize=.T.######checkCheck2Caption="選擇2"AutoSize=.T.######commandgroupCommandgroup1Command1.Caption="確定"Command2.Caption="取消