VFP實(shí)驗(yàn)課綜合題目及答案

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

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

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

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

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

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

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

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

9、Label1的字體），表單功能如下：在列表框List1的Click事件中編寫以下程序： thisform.label1.fontsize=VAL(thisform.list1.Value)在組合框Combo1的Click事件中編寫以下程序：thisform.label1.fontname=bo1.Value12.本題素材為考生文件夾下的tk12.scx，表單運(yùn)行效果圖如下所示：該表單上有一個(gè)標(biāo)簽對(duì)象和三個(gè)復(fù)選框，表單的功能是設(shè)置標(biāo)簽label1(標(biāo)題為南昌科技大學(xué))的字體樣式，要求選中粗體則標(biāo)簽文字設(shè)為粗體，選中斜體則標(biāo)簽文字設(shè)為斜體，選中下劃線則標(biāo)簽文字加上下劃線。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，表單運(yùn)行效果圖如下所示：該表單實(shí)現(xiàn)的功能是設(shè)置文本框中文字的字體，要求選中宋體則文本框的字體為宋體，選中幼圓則文本框的字體為幼圓，選中隸書則文本框的字體為隸書。編寫程序?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，表單運(yùn)行后界面如下圖所示：該表單實(shí)現(xiàn)的功能是選中紅色

12、選項(xiàng)按鈕，則文本框中文字的顏色為紅色(255,0,0)；選中綠色則文本框中文字為綠色(0,255,0)；選中藍(lán)色則文本框中文字為藍(lán)色(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，表單運(yùn)

13、行后界面如下圖所示：該表單實(shí)現(xiàn)的功能是選中紅色選項(xiàng)按鈕，則文本框的背景顏色為紅色(255,0,0)；選中綠色則文本框的背景顏色為綠色(0,255,0)；選中藍(lán)色則文本框的背景顏色為藍(lán)色(0,0,255)。（文本框的文字由你任意輸入。）編寫程序?qū)崿F(xiàn)上述功能。在OptionGroup1的Click事件中寫下如下程序語(yǔ)句：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。表單運(yùn)行效果如下圖所示：該表單程序可以實(shí)現(xiàn)以下功能：?jiǎn)螕鬰ommand1文本框中可顯示第一條記錄、單擊command2可顯示上一條記錄、單擊command3可顯示下一條、單擊command4可顯示最后一條記錄。完成下列操作以實(shí)現(xiàn)上述功能：（1）設(shè)置文本框txt職稱和txt工資現(xiàn)狀的相關(guān)屬性，使得文本框與表中相應(yīng)字段綁定；（2）分別在command1（第一條）、command2（上一條）、command3（下一條）

15、、command4(最后一條)的click過(guò)程中編寫程序?qū)崿F(xiàn)上述功能。(1)設(shè)置各文本框的ControlSource屬性為它們各自對(duì)應(yīng)的字段。(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。該表單程序可以實(shí)現(xiàn)以下功能：?jiǎn)螕鬰ommand1文本框中可顯示第一條記錄、單擊command2可顯示上一條記錄、單擊command3可顯示下一條、單擊command4可顯示最后一條記錄。完成下列操作以實(shí)現(xiàn)上述功能：（1）設(shè)置各文本框的相關(guān)屬性，使得文本框?yàn)橹蛔x；readonly（2）分別在command1（第一條）、command2（上一條）、command3（下一條）、command4(最

17、后一條)的click過(guò)程中編寫程序?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”。 該表單實(shí)現(xiàn)的功能是：在文本框text1中輸入讀者姓名，單擊命令按鈕查詢可以查找到該

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

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

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

21、)Command2_ clickThisform.label1.fontsize= Thisform.label1.fontsize=222.本題素材為考生文件夾下的tk22.scx，表單的功能是將輸入的百分制成績(jī)轉(zhuǎn)換成五級(jí)制（優(yōu)秀、良好、中等、及格、不及格）輸出。要求：表單運(yùn)行后，在文本框Text1中輸入一個(gè)百分制成績(jī)后，單擊“判定等級(jí)”按鈕，根據(jù)輸入的成績(jī)轉(zhuǎn)換成相應(yīng)的級(jí)別，在標(biāo)簽Label2處顯示；單擊“清空”按鈕后，會(huì)自動(dòng)清除Text1和label2中的內(nèi)容。請(qǐng)為這2個(gè)命令按鈕的Click事件編寫對(duì)應(yīng)的程序代碼實(shí)現(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=該學(xué)生成績(jī)?yōu)椋翰患案馿ndcase23. 本題素材為考生文件夾下的tk23.scx，表單包括1個(gè)標(biāo)簽、1個(gè)命令按鈕和1個(gè)計(jì)時(shí)

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

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

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

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

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

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