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

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

2、按鈕后可計(jì)算從1到100的之間的奇數(shù)的和，并用標(biāo)簽labell顯示計(jì)算結(jié)果。請(qǐng)將command1_click()過(guò)程中的程序補(bǔ)充完整，實(shí)現(xiàn)上述功能。s=1for i=1 to 100 step 2s=s+i next thisform.label1.caption=str(s)打開(kāi)考生文件夾中的文件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=1

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

4、abel2顯示該數(shù)是一個(gè)偶數(shù)。elsethisform Label2.C apti on = 奇數(shù)en dif打開(kāi)考生文件夾中的文件tk05.scx，該表單上有一個(gè)標(biāo)簽Labell和一個(gè)命令按鈕Command1命令按鈕標(biāo)題為計(jì)算”，表單實(shí)現(xiàn)的功能是求1!+2!+3!+.+10!，結(jié)果在標(biāo)簽labell中顯示。請(qǐng)?jiān)赾ommand1的click過(guò)程中編寫(xiě)程序以實(shí)現(xiàn)上述功能。sum=0s=1for i=1 to 10s=s*isum=sum+sn extthisfor m.l abel1.captio n=str（sum）表單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） 在comma nd的click過(guò)程中編寫(xiě)程序使得標(biāo)簽label2的字號(hào)為16；Thisform .l abel2.fo ntsize=16（3） 在Timer1的Timer過(guò)程中編寫(xiě)程序使得標(biāo)簽label2中顯示當(dāng)前系統(tǒng)時(shí)間。程序運(yùn)行效果圖如下：Thisform .l abel2.capti on=time（）本題素材為表單tk07.scx，該表單實(shí)現(xiàn)的功能是系統(tǒng)時(shí)鐘，即在文本框中每秒顯示一次當(dāng)前時(shí)間；單擊設(shè)置背 景（command1

6、可設(shè)置文本框的背景顏色。完成以下操作實(shí)現(xiàn)該功能：（1）設(shè)置計(jì)時(shí)器Timer1的時(shí)間間隔屬性；1000（2） 在comma nd的click過(guò)程中編寫(xiě)程序使得文本框的背景顏色設(shè)為rgb（255,96,128）；Thisform.text1.backcolor=rgb（255,96,128）（3）編寫(xiě)Timer1的Timer過(guò)程代碼使得文本框中顯示當(dāng)前系統(tǒng)時(shí)間。Thisform. text1.value=time（）程序運(yùn)行效果圖如下：編寫(xiě)程序?qū)崿F(xiàn)以下功能：?jiǎn)螕裘畎粹o 設(shè)置文字顏色”時(shí)，設(shè)置標(biāo)簽的文字顏色為隨機(jī)產(chǎn)生的顏色 在 Comma nd 的 Click 事件中寫(xiě)如下程序: r=INT(RA

7、ND()*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ù)。8.本題素材為考生文件夾中的表單文件tk08.scx。該表單包含1個(gè)標(biāo)簽Labell,3個(gè)命令按鈕command2繼續(xù)禾口command3退出”。該表單的功能是：Labell用來(lái)顯示系統(tǒng)的當(dāng)前時(shí)間；單擊命令按鈕comma mand1暫停”、時(shí)鐘暫停走動(dòng)；thisform.timerl.e nabled=.F單擊命令按

8、鈕command2時(shí)鐘繼續(xù)顯示系統(tǒng)的當(dāng)前時(shí)間;thisform.timer1.e nabled=.T.單擊命令按鈕command3釋放表單。thisform.release請(qǐng)分另U在command1.Click()、command2.click()command3.click()過(guò)程中編寫(xiě)代碼實(shí)現(xiàn)上述功能。9.表單tk09.s.本題素材為考生文件夾下的tkll.scx，表單運(yùn)行效果圖如下所示:匍昌科技丸學(xué)選擇字f札梓五蘇表單的功能是字體字號(hào)設(shè)置，表單內(nèi)有一個(gè)標(biāo)簽對(duì)象（Labell的標(biāo)題為 南昌科技大學(xué)”），一個(gè)列表框（Listl）用來(lái)設(shè)置Labell的字號(hào)大小，一個(gè)下拉列表框（combol用來(lái)

9、設(shè)置Labell的字體），表單功能如下：在列表框Listl的Click事件中編寫(xiě)以下程序：thisform.label1.fo ntsize=VAL（thisfor m.l istl.Value）在組合框Combo的Click事件中編寫(xiě)以下程序：thisfor m.l abel1.fo ntn ame=bo1.Value12.該表單上有一個(gè)標(biāo)簽對(duì)象和三個(gè)復(fù)選框，表單的功能是設(shè)置標(biāo)簽label1（標(biāo)題為南昌科技大學(xué)）的字體樣式，要求選中粗體則標(biāo)簽文字設(shè)為粗體，選中斜體則標(biāo)簽文字設(shè)為斜體，選中下劃線則標(biāo)簽文字加上下劃線。Check1_clickElseIf this.value=1 the nTh

10、isfor m.l abel.fo ntitalic=.F.Thisfor m.l abel.fo ntbold=.T.en difElseCheck3_clickThisfor m.l abel.fo ntbold=.F.If this.value=1 the nThisfor m.l abel.fo ntun derli ne=.T.ElseThisfor m.l abel.fo ntun derli ne=.F.Thisfor m.l abel.fo ntitalic=.T.編寫(xiě)程序?qū)崿F(xiàn)上述功能。en difCheck2_clickIf this.value=1 the nen dif本

11、題素材為考生文件夾下的tk12.scx，表單運(yùn)行效果圖如下所示:.本題素材為考生文件夾中的表單文件tk13.scx，表單運(yùn)行效果圖如下所示:該表單實(shí)現(xiàn)的功能是設(shè)置文本框中文字的字體，要求選中宋體則文本框的字體為宋體，選中幼圓則文本框的字體為幼 圓，選中隸書(shū)則文本框的字體為隸書(shū)。編寫(xiě)程序?qū)崿F(xiàn)上述功能。(方法不限)Option 1_clickThisform.text1.fontname=幼圓”Thisform.text1.fo ntn ame=宋體”O(jiān)pti on 3_clickOption2_clickThisform.text1.fontname=隸書(shū)”該表單實(shí)現(xiàn)的功能是選中紅色選項(xiàng)按鈕，則

12、文本框中文字的顏色為紅色(255,0,0);選中綠色則文本框中文字為綠色(0,255,0);選中藍(lán)色則文本框中文字為藍(lán)色(0,0,255)；Optio n1_clickThisform.text1. forecolor=rgb(0,255,0)Thisform.text1.forecolor=rgb(255,0,0)Optio n3_clickOptio n2_click單擊退出按鈕可以釋放該表單。Thisform.release編寫(xiě)程序?qū)崿F(xiàn)上述功能。.本題素材為考生文件夾中的表單文件 tk15.scx，表單運(yùn)行后界面如下圖所示:14.tk14.scx，表單運(yùn)行后界面如下圖所示:Thisfor

13、m.text1. forecolor=rgb(0,0,255)本題素材為考生文件夾中的表單文件該表單實(shí)現(xiàn)的功能是選中紅色選項(xiàng)按鈕，則文本框的背景顏色為紅色（255,0,0）;選中綠色則文本框的背景顏色為綠色（0,255,0）;選中藍(lán)色則文本框的背景顏色為藍(lán)色（0,0,255）。 （文本框的文字由你任意 輸入。 ）編寫(xiě)程序?qū)崿F(xiàn)上述功能。在 OptionGroupI 的 Click 事件中寫(xiě)下如下程序語(yǔ)句：do casecase this.value=1thisform.Text1.BackColor = RGB(255,0,0)case this.value=2thisform.Text1.Ba

14、ckColor = RGB(0,255,0)case this.value=3thisform.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)螕?comma nd 文本框中可顯示第一條記錄、單擊 comma nd 可顯示上 一條記錄、單擊 comma nd 可顯示下一條、單擊 comma nd 可顯示最后一條記錄。完成下列操作以實(shí)現(xiàn)上述 功能：（1） 設(shè)置文本框txt 職稱和txt 工資現(xiàn)狀的相關(guān)屬性，使得文

15、本框與表中相應(yīng)字段綁定；（2） 分別在 command1（第一條）、command2（上一條）、command（下一條）、command4 最后一 條）的 click 過(guò)程中編寫(xiě)程序?qū)崿F(xiàn)上述功能。設(shè)置各文本框的 ControlSource 屬性為它們各自對(duì)應(yīng)的字段。在 CommandlClick 事件中：go topthisform.refresh在 Comma nd 的 Click 事件中：if not bof() the nskip -1thisform.refreshen dif在 Comma nd 的 Click 事件中: if not eof() the nskipthisform.

16、refreshen dif在 Comma nd 的 Click 事件中: go bottom thisform.refresh該表單程序可以實(shí)現(xiàn)以下功能：?jiǎn)螕鬰omma nd文本框中可顯示第一條記錄、單擊comma nd可顯示上一條記錄、單擊comma nd可顯示下一條、單擊comma nd可顯示最后一條記錄。完成下列操作以實(shí)現(xiàn)上述功能：（1） 設(shè)置各文本框的相關(guān)屬性，使得文本框?yàn)橹蛔x；read only（2） 分別在command1（第一條）、command2（上一條）、command3（下一條）、command4最后一條）的click過(guò) 程中編寫(xiě)程序?qū)崿F(xiàn)上述功能。Thisform.refe

17、sh en difCommand1_ clickIf not eof()SkipThisform.refesh17.本題素材為考生文件夾中的表單文件tk17.scx，表單界面如下圖所示，數(shù)據(jù)環(huán)境中已經(jīng)添加了表Command1_ clickGo toThisform.refeshCommand2_ clickIf not bof()Skip -1tk17_xs.dbf。en difCommand1_ clickGo bottom該表單實(shí)現(xiàn)的功能是：在文本框text1中輸入讀者姓名，單擊命令按鈕查詢可以查找到該讀者的記錄信息，把性別顯示在文本框text2中，籍貫顯示在文本框text3中，如果找不到

18、記錄則彈出一個(gè)消息框顯示查無(wú)此人！ ”在按鈕command1（查詢）的click過(guò)程中編寫(xiě)程序?qū)崿F(xiàn)上述功能。具體要求：?jiǎn)螕?統(tǒng)計(jì)”按鈕，統(tǒng)計(jì)出作者表中教授和副教授的人數(shù)，并將統(tǒng)計(jì)結(jié)果輸出到相應(yīng)的文本框中;Thisform.refesh18.本題素材為考生文件夾中的表單文件tk18.scx，數(shù)據(jù)環(huán)境中已添加表文件tk18_dz.dbfxm=alltrim(thisform.text1.value)set exact onif xmlocate for姓名=xmif foun d()thisform.text2.value=性別”thisform.text3.value=籍貫”elsemessag

19、ebox=(沒(méi)有找到這個(gè)人) endif表單運(yùn)行效果圖如下所示：thisform.text1.setfocusen difxm=alltrim(thisform.text1.value)locate for姓名=xmif foun d()tisform.refreshelsemessagebox(查無(wú)此人)en dif20.tk20.scx，scx，tk20_作者.dbf”。該表單的功能是統(tǒng)計(jì)count for職稱=教授 ”to acount for職稱=副教授” to bthisform.text1.value=athisform.text2.value=b單擊命令按鈕 退出”可釋放該表單。

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

21、l abel1.fo ntsize= Thisfor m.l abel1.fo ntsize=2要求：表單運(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事件 編寫(xiě)對(duì)應(yīng)的程序代碼實(shí)現(xiàn)上述功能。Command1_ clickcj= val (thisform.text1.value)do casecase cj=90 and cj=80 and cj=70 and cj=60 and cj=0 and cj=90 and v

22、al(cj)=80thisform.label2.caption=良好 caseval(cj)=70thisform.label2.caption=中等 caseval(cj)=60thisform.label2.caption=及格 caseval(cj)60 thisform.label2.caption=不及格 endcaseComma nd2_ clickThisform.text1.value=”本題素材為考生文件夾下的等、及格、不及格）輸出。本題素材為考生文件夾下的tk23.scx，表單包括1個(gè)標(biāo)簽、1個(gè)命令按鈕和1個(gè)計(jì)時(shí)器控件。表單運(yùn)行效果如下圖所示：該表單運(yùn)行時(shí)先以9號(hào)字體顯示

23、 預(yù)祝同學(xué)們順利通過(guò)考試！”字樣，然后每隔一秒將字號(hào)放大一號(hào)，當(dāng)達(dá)到30號(hào)字體時(shí)，又恢復(fù)成最初狀態(tài)，即9號(hào)字體；單擊命令按鈕退出”可釋放該表單。在屬性窗口設(shè)置 Timerl 的 Interval 為 100。（ 2 分）在對(duì)象 Timer1 的 Timer 事件過(guò)程中編寫(xiě)以下程序：（10 分）IF thisform.label1.Fo ntSize30thisform.l abel1.F on tsize=thisfor m.l abel1.F on tsize+1 ELSEthisform.l abel1.F on tsize=9ENDIF在對(duì)象 Commanc 的 Click 事件過(guò)程中編

24、寫(xiě)以下程序：（3 分）thisform.releasetk24.scx，表單包括1個(gè)標(biāo)簽、1個(gè)命令按鈕和1個(gè)計(jì)時(shí)器控件。表單運(yùn)行效果如Label1每隔1秒自動(dòng)從右向左移動(dòng)5個(gè)像素單位， 移到窗口左邊界時(shí)退出”可釋放該表單。thisform.label1.left= thisform.label1.left-5if thisform .l abel.left= thisform.widththisform.label1.left=0-thisform.label1.widthen dif24.第二個(gè)從上向下thisfor m.l abel1.top=thisfor m.l abel1.top+5if thisfor m.l abel.top= thisform.heightthisfor m.l abel1.top=0-thisfor m.label1.height en dif第三個(gè)從下向上thisfor m.l abel1. top =this