VF 表單程序題(含答案)

1、vf 表單程序練習(xí)1、利用文本框和標(biāo)簽控件設(shè)計(jì)了一表單f1.scx，文本框text1的valid事件代碼及表單界面如圖1所示。向text1中輸入一段字符：”figure 1-18 shows you how to use a menu.”（不含雙引號(hào)）text1.valid event x=alltrim(thisform.text1.value)y=len(x)store 0 to z1,z2for i=1 to y a=substr(x,i,1) do case case asc(a)>=65 and asc(a)<=90 z1=z1+1 case asc(a)>=97

2、and asc(a)<=122 z2=z2+1 endcaseendforthisform.text2.value=z1thisform.text3.value=z2（1）執(zhí)行該程序后，“統(tǒng)計(jì)1”右邊的文本框text2和“統(tǒng)計(jì)2”右邊的文本框text3中的數(shù)據(jù)值分別為 5 、 22（2）text2和 text3的初值分別為 0 、 0 2、有數(shù)據(jù)表“圖書(shū).dbf”包含書(shū)號(hào)、書(shū)名、出版社、作者等字段，設(shè)計(jì)如圖1所示表單，表單運(yùn)行后，單擊命令按鈕可以在表格控件中顯示圖書(shū)表的部分字段的數(shù)據(jù)，如圖1所示，請(qǐng)選擇并完善代碼。命令按鈕的click事件代碼：use 圖書(shū) copy to ts fiel

3、ds 書(shū)號(hào),書(shū)名thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource =”ts”表單的unload（釋放對(duì)象時(shí)發(fā)生）事件：close alldrop table ts3、考生數(shù)據(jù)表（文件名為：ks.dbf）中有“準(zhǔn)考證號(hào)/c/9”、“密碼/c/6”、“成績(jī)/n/5/1”等字段。設(shè)計(jì)如圖2所示表單，將考生數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中，表單運(yùn)行后，在表單的文本框text1中輸入查詢考生的準(zhǔn)考證號(hào)，文本框text2中輸入該考生的查詢密碼后，單擊“查詢”按鈕，查詢?cè)摽忌某煽?jī)，并將該考生的成績(jī)顯示在表單的標(biāo)簽label3中（考號(hào)或密

4、碼輸入錯(cuò)誤，則彈出提示窗口顯示“準(zhǔn)考證號(hào)或密碼錯(cuò)誤！”）。請(qǐng)選擇并完善代碼。 “查詢”按鈕的click事件代碼如下：select kskh=alltrim(thisform.text1.value)mm=alltrim(thisform.text2.value)locate for 準(zhǔn)考證號(hào)=kh and密碼=mmif found() thisform.lebel3.caption=str(成績(jī)，5，1) else messagebox(“準(zhǔn)考證號(hào)或密碼錯(cuò)誤！”)endif 4、設(shè)計(jì)如圖3所示表單，表單運(yùn)行后，要在表格中顯示圖書(shū)表中數(shù)量最少的3種圖書(shū)信息，請(qǐng)選擇并完善代碼。表單form1的in

5、it事件代碼如下： thisform.grid1.recordsourcetype=4thisform.grid1.recordsource=”select top 3 * rom 圖書(shū); order by數(shù)量 into cursor temp” 5、有學(xué)生成績(jī)表（文件名：xscj.dbf），表中數(shù)據(jù)如下所示，設(shè)計(jì)如圖5所示表單，將學(xué)生成績(jī)表添加到表單數(shù)據(jù)環(huán)境中，表單運(yùn)行時(shí)，單擊“統(tǒng)計(jì)”命令按鈕，label1顯示課程名為計(jì)算機(jī)基礎(chǔ)且成績(jī)?cè)?0以上的平均成績(jī)，label2顯示這些記錄的績(jī)點(diǎn)總和 學(xué)生成績(jī)表（文件名：xscj.dbf）姓名課程名成績(jī)績(jī)點(diǎn)陳兵計(jì)算機(jī)基礎(chǔ)924楊昆計(jì)算機(jī)基礎(chǔ)681江三計(jì)

6、算機(jī)基礎(chǔ)883陳兵程序設(shè)計(jì)803楊楊電子商務(wù)702楊楊計(jì)算機(jī)基礎(chǔ)904圖5（1）程序填空：“統(tǒng)計(jì)”命令按鈕的click事件代碼如下：sc=0sd=0n=0do while .not. eof() if 課程名=”計(jì)算機(jī)基礎(chǔ)” and 成績(jī)>80 sc=sc+成績(jī) sd=sd+績(jī)點(diǎn) n=n+1 endif skipenddo thisform.label1. c aption=str(sc/n) thisform.label2.caption=str(sd)（2）寫結(jié)果：兩個(gè)標(biāo)簽（label1，label2）中分別顯示的結(jié)果是 90 和 11 6、選擇題。設(shè)計(jì)如圖6所示表單，命令按鈕組co

7、mmandgroup1的buttoncount屬性值設(shè)置為3。其余屬性均為默認(rèn)值。表單運(yùn)行后，鼠標(biāo)單擊command2后表單中控件的變化情況，請(qǐng)選擇（b ）在commandgroup1的click事件中有如下代碼：do case case this.value=1 thisform.edit1.value=”vfp簡(jiǎn)單、易學(xué)” this.command1.caption=”隸書(shū)” case this.value=2 thisform.edit1.value=”編程思維很重要” this.command2.caption=”楷體” case this.value=3 thisform.edit1

8、.value=”多看例題多思考” this.command3.caption=”宋體”endcase 圖6a 編輯框中顯示：vfp簡(jiǎn)單、易學(xué)；第1個(gè)命令按鈕上面的文本顯示為：隸書(shū)b 編輯框中顯示：編程思維很重要；第2個(gè)命令按鈕上面的文本顯示為：楷體c 編輯框中顯示：多看例題多思考；第3個(gè)命令按鈕上面的文本顯示為：宋體d 沒(méi)有變化7、有兩個(gè)表文件，表中數(shù)據(jù)如下所示：學(xué)生成績(jī)表（文件名為：sc.dbf） 學(xué)生信息表（文件名為：xs.dbf）學(xué)號(hào)課程成績(jī)學(xué)分1001英語(yǔ)9241003英語(yǔ)7841005程序設(shè)計(jì)9531007程序設(shè)計(jì)8231001計(jì)算機(jī)基礎(chǔ)9221003計(jì)算機(jī)基礎(chǔ)882學(xué)號(hào)姓名性別10

9、01王偉男1003張燦女1005陳穎女1007王城男設(shè)計(jì)如圖7所示表單，表單運(yùn)行后，單擊“查詢”命令按鈕，表格grid1中顯示的結(jié)果是（b ）select 姓名,課程,成績(jī) from xs,sc where xs.學(xué)號(hào)=sc.學(xué)號(hào) and 成績(jī)>90 and 學(xué)分>=3 order by 成績(jī) desc into cursor lbthisform.grid1.recordsource=”lb”a陳穎程序設(shè)計(jì)95b陳穎程序設(shè)計(jì)95 王偉計(jì)算機(jī)基礎(chǔ)92 王偉英語(yǔ)92c王偉計(jì)算機(jī)基礎(chǔ)92d王偉英語(yǔ)92王偉英語(yǔ)92 陳穎程序設(shè)計(jì)958、設(shè)計(jì)如圖8所示表單，運(yùn)行表單后，單擊“command

10、1”按鈕，標(biāo)簽label1顯示的內(nèi)容為（）命令按鈕“command1”的click事件代碼如下：k=.t.y=10x=”do while k y=y+1 if y/5=int(y/5) x=x+str(y,3) else loop 圖8 endif if y>20 k=.f. endifenddothisform.label1.caption=x執(zhí)行結(jié)果為（ d）a 10 15b 10 15 20c 15 20d 15 20 259、設(shè)計(jì)如圖9所示表單，表單運(yùn)行時(shí)單擊“顯示”按鈕，在列表框list1控件中將顯示（ ）“顯示”按鈕的click事件代碼：dime a(4)b=”a”a=”fo

11、r i=1 to 3 a(i)=space(10-i) for j=1 to 2*i-1 a(i)=a(i)+b b=chr(asc(b)+1)圖10 endfor圖9 thisform.list1.additem(a(i) endfor 結(jié)果： abcd efghi10、設(shè)計(jì)如圖10所示表單，運(yùn)行表單后，在兩個(gè)文本框text1、text2中分別輸入“中秋”、“節(jié)日”，單擊“command1”按鈕，標(biāo)簽label2中會(huì)顯示（a）command1的click事件代碼：x=allt(thisform.text1.value)y=allt(thisform.text2.value)sub1( )th

12、isform.label2.caption=x+yreturn圖11自定義方法程序sub1：local xx=”快樂(lè)”y=”月圓”x=x+yreturn a 中秋月圓b 中秋快樂(lè)c 節(jié)日快樂(lè)d 快樂(lè)月圓二、程序設(shè)計(jì)題設(shè)有兩個(gè)數(shù)據(jù)表：導(dǎo)師表（文件名為：dsb.dbf）（導(dǎo)師編號(hào)/c，姓名/c，性別/c，研究方向/c）；學(xué)生表（文件名為：xsb.dbf）（學(xué)號(hào)/c，姓名/c，性別/c，所在院系/c，導(dǎo)師編號(hào)/c）。設(shè)計(jì)如圖11所示表單，組合框combo1與導(dǎo)師表中的導(dǎo)師編號(hào)字段綁定。表單運(yùn)行后，在組合框combo1中選擇任一位導(dǎo)師的編號(hào)，則（1）在標(biāo)簽label3處顯示該導(dǎo)師的姓名；（2）在標(biāo)簽label5處顯示該導(dǎo)師的研究方向；（3）在表格grid1控件中顯示該導(dǎo)師所指導(dǎo)的學(xué)生信息（包括學(xué)號(hào)、學(xué)生姓名、性別、所在院系）。請(qǐng)編寫組合框combo1的interactivechange事件代碼實(shí)現(xiàn)以上查詢功能。答案：將表單的數(shù)據(jù)環(huán)境設(shè)為導(dǎo)師表combo1的interactivechange事件代碼：lo