VFP實驗課綜合題目及答案

1、1.打開考生文件夾中的文件tk01.scx，該表單上有兩個標簽Label1、Label2和一個命令按鈕Command1（命令按鈕標題為“求和”），表單實現(xiàn)的功能是單擊命令按鈕后可計算從1到100的連續(xù)自然數(shù)的和，并用標簽label1顯示結(jié)果。請把command1的click過程中的程序補充完整以實現(xiàn)上述功能。s=1for i=1 to 100 step 1s=s+inextthisform.label1.caption=str(s)2.打開考生文件夾中的文件tk02.scx，該表單上有兩個標簽Label1、Label2和一個命令按鈕Command1（命令按鈕標題為“求和”），表單實現(xiàn)的功能是單

2、擊命令按鈕后可計算從1到100的之間的奇數(shù)的和，并用標簽label1顯示計算結(jié)果。請將command1_click()過程中的程序補充完整，實現(xiàn)上述功能。s=1for i=1 to 100 step 2s=s+inextthisform.label1.caption=str(s)3.打開考生文件夾中的文件tk03.scx，該表單上有兩個標簽Label1、Label2和一個命令按鈕Command1（命令按鈕標題為“求和”），表單實現(xiàn)的功能是單擊命令按鈕后可計算從1到100的之間的偶數(shù)的和，并用標簽label1顯示計算結(jié)果。請將command1_click()過程中的程序補充完整，實現(xiàn)上述功能。s

3、=1for i=2 to 100 step 2s=s+inextthisform.label1.caption=str(s)4.本題素材是考生文件夾中的表單tk04.scx。該表單的功能是：在文本框中輸入一個整數(shù)，單擊命令按鈕“判斷”后，若該整數(shù)是偶數(shù)，則label2顯示“該數(shù)是一個偶數(shù)”,若為奇數(shù)，則顯示“該數(shù)是一個奇數(shù)”。請將command1_click()中的程序補充完整以實現(xiàn)上述功能。下圖為運行效果，輸入8，則label2顯示該數(shù)是一個偶數(shù)。將Command1.click中程序補充完整： if val(thisform.text1.value)%2=0thisform.Label2.C

4、aption = 偶數(shù)elsethisform.Label2.Caption = 奇數(shù)endif5.打開考生文件夾中的文件tk05.scx，該表單上有一個標簽Label1和一個命令按鈕Command1（命令按鈕標題為“計算”），表單實現(xiàn)的功能是求1!+2!+3!+.+10!，結(jié)果在標簽label1中顯示。請在command1的click過程中編寫程序以實現(xiàn)上述功能。sum=0s=1for i=1 to 10s=s*isum=sum+snextthisform.label1.caption=str(sum)6.表單tk06.scx實現(xiàn)的功能是系統(tǒng)時鐘，標簽label2中每秒顯示一次當前時間；單擊

5、設置字號（command1）可將標簽label2中的文字大小設為16號。完成以下操作實現(xiàn)該功能：（1）設置計時器Timer1的時間間隔屬性；1000（2）在command1的click過程中編寫程序使得標簽label2的字號為16；Thisform.label2.fontsize=16（3）在Timer1的Timer過程中編寫程序使得標簽label2中顯示當前系統(tǒng)時間。程序運行效果圖如下：Thisform.label2.caption=time()7.本題素材為表單tk07.scx，該表單實現(xiàn)的功能是系統(tǒng)時鐘，即在文本框中每秒顯示一次當前時間；單擊設置背景（command1）可設置文本框的背景

6、顏色。完成以下操作實現(xiàn)該功能：（1）設置計時器Timer1的時間間隔屬性；1000（2）在command1的click過程中編寫程序使得文本框的背景顏色設為rgb（255,96,128）；Thisform.text1.backcolor=rgb(255,96,128)（3）編寫Timer1的Timer過程代碼使得文本框中顯示當前系統(tǒng)時間。Thisform. text1.value=time()程序運行效果圖如下：8.本題素材為考生文件夾中的表單文件tk08.scx。該表單包含1個標簽Label1，3個命令按鈕command1“暫?！?、command2“繼續(xù)”和command3“退出”。該表單的

7、功能是：Label1用來顯示系統(tǒng)的當前時間；單擊命令按鈕command1，時鐘暫停走動；thisform.timer1.enabled=.F單擊命令按鈕command2，時鐘繼續(xù)顯示系統(tǒng)的當前時間；thisform.timer1.enabled=.T.單擊命令按鈕command3，釋放表單。thisform.release請分別在command1.Click()、command2.click()、command3.click()過程中編寫代碼實現(xiàn)上述功能。9. 表單tk09.scx實現(xiàn)的功能是設置文字的顏色，表單運行效果圖如下：編寫程序?qū)崿F(xiàn)以下功能：單擊命令按鈕“設置文字顏色”時，設置標簽的文

8、字顏色為隨機產(chǎn)生的顏色。在Command1的Click事件中寫如下程序：r=INT(RAND()*256)g=INT(RAND()*256)b=INT(RAND()*256)thisform.label1.ForeColor=RGB(r,g,b)&說明，rand()函數(shù)的返回值是01之間的數(shù)。rand()乘以256再取整就能產(chǎn)生0255之間的數(shù)。11.本題素材為考生文件夾下的tk11.scx，表單運行效果圖如下所示：表單的功能是字體字號設置，表單內(nèi)有一個標簽對象（Label1的標題為“南昌科技大學”）,一個列表框（List1）用來設置Label1的字號大小，一個下拉列表框（combo1用來設置

9、Label1的字體），表單功能如下：在列表框List1的Click事件中編寫以下程序： thisform.label1.fontsize=VAL(thisform.list1.Value)在組合框Combo1的Click事件中編寫以下程序：thisform.label1.fontname=bo1.Value12.本題素材為考生文件夾下的tk12.scx，表單運行效果圖如下所示：該表單上有一個標簽對象和三個復選框，表單的功能是設置標簽label1(標題為南昌科技大學)的字體樣式，要求選中粗體則標簽文字設為粗體，選中斜體則標簽文字設為斜體，選中下劃線則標簽文字加上下劃線。Check1_clickI

10、f this.value=1 thenThisform.label.fontbold=.T.ElseThisform.label.fontbold=.F.endifCheck2_clickIf this.value=1 thenThisform.label.fontitalic=.T.ElseThisform.label.fontitalic=.F.endifCheck3_clickIf this.value=1 then Thisform.label.fontunderline=.T.ElseThisform.label.fontunderline=.F.endif編寫程序?qū)崿F(xiàn)上述功能。13

11、.本題素材為考生文件夾中的表單文件tk13.scx，表單運行效果圖如下所示：該表單實現(xiàn)的功能是設置文本框中文字的字體，要求選中宋體則文本框的字體為宋體，選中幼圓則文本框的字體為幼圓，選中隸書則文本框的字體為隸書。編寫程序?qū)崿F(xiàn)上述功能。（方法不限）Option1_clickThisform.text1.fontname=”宋體”O(jiān)ption2_clickThisform.text1.fontname=”幼圓”O(jiān)ption3_clickThisform.text1.fontname=”隸書”14.本題素材為考生文件夾中的表單文件tk14.scx，表單運行后界面如下圖所示：該表單實現(xiàn)的功能是選中紅色

12、選項按鈕，則文本框中文字的顏色為紅色(255,0,0)；選中綠色則文本框中文字為綠色(0,255,0)；選中藍色則文本框中文字為藍色(0,0,255)；Option1_clickThisform.text1.forecolor=rgb(255,0,0)Option2_clickThisform.text1. forecolor=rgb(0,255,0)Option3_clickThisform.text1. forecolor=rgb(0,0,255)單擊退出按鈕可以釋放該表單。Thisform.release編寫程序?qū)崿F(xiàn)上述功能。15.本題素材為考生文件夾中的表單文件tk15.scx，表單運

13、行后界面如下圖所示：該表單實現(xiàn)的功能是選中紅色選項按鈕，則文本框的背景顏色為紅色(255,0,0)；選中綠色則文本框的背景顏色為綠色(0,255,0)；選中藍色則文本框的背景顏色為藍色(0,0,255)。（文本框的文字由你任意輸入。）編寫程序?qū)崿F(xiàn)上述功能。在OptionGroup1的Click事件中寫下如下程序語句：do casecase this.value=1thisform.Text1.BackColor = RGB(255,0,0)case this.value=2thisform.Text1.BackColor = RGB(0,255,0)case this.value=3thisf

14、orm.Text1.BackColor = RGB(0,0,255)endcase16.本題素材為考生文件夾中的表單文件tk16.scx，數(shù)據(jù)環(huán)境中已經(jīng)添加了表tk16_rc.dbf。表單運行效果如下圖所示：該表單程序可以實現(xiàn)以下功能：單擊command1文本框中可顯示第一條記錄、單擊command2可顯示上一條記錄、單擊command3可顯示下一條、單擊command4可顯示最后一條記錄。完成下列操作以實現(xiàn)上述功能：（1）設置文本框txt職稱和txt工資現(xiàn)狀的相關屬性，使得文本框與表中相應字段綁定；（2）分別在command1（第一條）、command2（上一條）、command3（下一條）

15、、command4(最后一條)的click過程中編寫程序?qū)崿F(xiàn)上述功能。(1)設置各文本框的ControlSource屬性為它們各自對應的字段。(2)在Command1的Click事件中：go topthisform.refresh在Command2的Click事件中：if not bof() thenskip -1thisform.refreshendif在Command3的Click事件中：if not eof() thenskipthisform.refreshendif在Command4的Click事件中：go bottomthisform.refresh17.本題素材為考生文件夾中的表

16、單文件tk17.scx，表單界面如下圖所示，數(shù)據(jù)環(huán)境中已經(jīng)添加了表tk17_xs.dbf。本題素材為考生文件夾中的表單文件tk17.scx，表單界面如下圖所示，數(shù)據(jù)環(huán)境中已經(jīng)添加了表tk17_xs.dbf。該表單程序可以實現(xiàn)以下功能：單擊command1文本框中可顯示第一條記錄、單擊command2可顯示上一條記錄、單擊command3可顯示下一條、單擊command4可顯示最后一條記錄。完成下列操作以實現(xiàn)上述功能：（1）設置各文本框的相關屬性，使得文本框為只讀；readonly（2）分別在command1（第一條）、command2（上一條）、command3（下一條）、command4(最

17、后一條)的click過程中編寫程序?qū)崿F(xiàn)上述功能。Command1_ clickGo to Thisform.refeshCommand2_ clickIf not bof()Skip -1Thisform.refeshendifCommand1_ clickIf not eof()Skip Thisform.refeshendifCommand1_ clickGo bottomThisform.refesh18.本題素材為考生文件夾中的表單文件tk18.scx，數(shù)據(jù)環(huán)境中已添加表文件“tk18_dz.dbf”。 該表單實現(xiàn)的功能是：在文本框text1中輸入讀者姓名，單擊命令按鈕查詢可以查找到該

18、讀者的記錄信息，把性別顯示在文本框text2中，籍貫顯示在文本框text3中，如果找不到記錄則彈出一個消息框顯示“查無此人！”在按鈕command1（查詢）的click過程中編寫程序?qū)崿F(xiàn)上述功能。xm=alltrim(thisform.text1.value)set exact onif xmlocate for 姓名=xmif found()thisform.text2.value=”性別”thisform.text3.value=”籍貫”elsemessagebox=(沒有找到這個人)endifthisform.text1.setfocusendifxm=alltrim(thisform.

19、text1.value)locate for 姓名=xmif found()tisform.refreshelsemessagebox(“查無此人”)endif表單運行效果圖如下所示： 20.本題素材為考生文件夾下的tk20.scx，scx，數(shù)據(jù)環(huán)境中已添加表“tk20_作者.dbf”。該表單的功能是統(tǒng)計相應職稱的人數(shù)。表單運行效果如下圖所示：具體要求：單擊“統(tǒng)計”按鈕，統(tǒng)計出作者表中教授和副教授的人數(shù)，并將統(tǒng)計結(jié)果輸出到相應的文本框中；count for職稱=”教授” to acount for職稱=”副教授” to bthisform.text1.value=athisform.text2

20、.value=b單擊命令按鈕“退出”可釋放該表單。thisform.release編寫程序?qū)崿F(xiàn)上述功能。21.本題素材為考生文件夾中的表單文件tk21.scx。該表單實現(xiàn)的功能是：單擊命令按鈕command1(設置背景）可以設置label1的背景色為藍色，單擊命令按鈕command2(放大字體)可使得label1的字號增加2號，例如label1的字號原為12號，單擊放大字體后label1的字號為14號。請分別在按鈕command1和command2的click過程中編寫代碼以便實現(xiàn)上述功能。Command1_ clickThisform.label1.backcolor=rgb(0,0,255

21、)Command2_ clickThisform.label1.fontsize= Thisform.label1.fontsize=222.本題素材為考生文件夾下的tk22.scx，表單的功能是將輸入的百分制成績轉(zhuǎn)換成五級制（優(yōu)秀、良好、中等、及格、不及格）輸出。要求：表單運行后，在文本框Text1中輸入一個百分制成績后，單擊“判定等級”按鈕，根據(jù)輸入的成績轉(zhuǎn)換成相應的級別，在標簽Label2處顯示；單擊“清空”按鈕后，會自動清除Text1和label2中的內(nèi)容。請為這2個命令按鈕的Click事件編寫對應的程序代碼實現(xiàn)上述功能。Command1_ clickcj=thisform.text1

22、.valuedo casecase val(cj)=90 and val(cj)=80thisform.label2.caption=良好case val(cj)=70thisform.label2.caption=中等case val(cj)=60thisform.label2.caption=及格case val(cj)=90 and cj=80 and cj=70 and cj=60 and cj=0 and cj60thisform.label2.caption=該學生成績?yōu)椋翰患案馿ndcase23. 本題素材為考生文件夾下的tk23.scx，表單包括1個標簽、1個命令按鈕和1個計時

23、器控件。表單運行效果如下圖所示：該表單運行時先以9號字體顯示“預祝同學們順利通過考試！”字樣，然后每隔一秒將字號放大一號，當達到30號字體時，又恢復成最初狀態(tài)，即9號字體；單擊命令按鈕“退出”可釋放該表單。在屬性窗口設置Timer1的Interval為100。（2分）在對象Timer1的Timer事件過程中編寫以下程序：（10分）IF thisform.label1.FontSize30 thisform.label1.Fontsize=thisform.label1.Fontsize+1ELSE thisform.label1.Fontsize=9ENDIF在對象Command1的Click

24、事件過程中編寫以下程序：（3分）thisform.release編寫程序?qū)崿F(xiàn)上述功能。24.本題素材為考生文件夾下的tk24.scx，表單包括1個標簽、1個命令按鈕和1個計時器控件。表單運行效果如下圖所示：該表單的功能是文字從右向左移動，要求：標簽Label1每隔1秒自動從右向左移動5個像素單位，移到窗口左邊界時標簽回到窗口右邊重新向左移動；單擊命令按鈕“退出”可釋放該表單。thisform.label1.left= thisform.label1.left-5if thisform.label.left= thisform.widththisform.label1.left=0-thisfo

25、rm.label1.widthendif第二個從上向下thisform.label1.top=thisform.label1.top+5if thisform.label.top= thisform.heightthisform.label1.top=0-thisform.label1.heightendif第三個從下向上thisform.label1. top =thisform.label1. top -5if thisform.label. top 0thisform.label1. top =thisform. height-thisform.label1. heightendif25

26、.本題素材為考生文件夾下的tk25.scx，表單包括1個標簽、1個命令按鈕和1個計時器控件。表單運行效果如下圖所示：該表單的功能是文字從上向下移動，要求：標簽Label1每隔0.5秒自動從上向下移動5個像素單位，移到窗口下邊界時標簽回到窗口上邊重新向下移動；單擊命令按鈕“退出”可釋放該表單。編寫程序?qū)崿F(xiàn)上述功能。在屬性窗口設置Timer1的Interval為500。在對象Timer1的Timer事件過程中編寫如下程序： IF thisform.label1.Topthisform.heightthisform.label1.Top=thisform.label1.Top+5ELSEthisfo

27、rm.label1.Top=-thisform.label1.HeightENDIF在對象Command1的Click事件過程中編寫如下程序： thisform.release26.打開考生文件夾中的文件tk26.scx，該表單上有兩個標簽Label1、Label2和一個命令按鈕Command1（命令按鈕標題為“求和”），表單實現(xiàn)的功能是單擊命令按鈕后可計算1到100以內(nèi)3的倍數(shù)的和，并用標簽label1顯示結(jié)果。請把command1的click過程中的程序補充完整以實現(xiàn)上述功能。在Command1的Click事件過程中編寫如下程序：S=0for i=3 to 100 step 3s=s+ie

28、ndforthisform.label1.caption=alltrim(str(s)23.本題素材為考生文件夾中的表單文件vfp10.scx，數(shù)據(jù)環(huán)境中已添加表文件“學生9.dbf”和“成績9.dbf”。該表單功能通過姓名查找指定學生的平均成績，執(zhí)行效果如圖所示。要求：（1）補充完整list1的click過程代碼，在有 ？的地方填入正確內(nèi)容，然后刪除 ？，使得用戶在列表框list1中選擇姓名后，文本框text1將顯示對應學生的所有課程的總平均成績；如果該學生沒有成績則彈出一個消息框顯示“該生沒有考試!”?（2）編寫代碼使得按退出按鈕時釋放表單。Thisform.release24.設置密碼一題Thisform.Label2.ViSible=TIf Thisform.Text1.Value=123456 thenThisform.Label2.Caption=“歡迎登錄學生成績