vfp計(jì)算機(jī)二級考試?yán)}匯總表單設(shè)計(jì)

1、vfp下例題匯總序號題目頁數(shù)1計(jì)算圓面積32我的第一個面向?qū)ο蟪绦?3計(jì)算三角形面積44計(jì)算一元二次方程的根55登錄窗口66口令驗(yàn)證67調(diào)色板78輸入學(xué)號查詢平均成績89查詢并顯示指定學(xué)生的考試結(jié)果910查詢并顯示指定班級的男女生人數(shù)1011查詢并顯示指定班級的獎學(xué)金總額1112查詢并顯示指定課程的平均成績1213學(xué)生信息表查詢1314生成數(shù)據(jù)并統(tǒng)計(jì)1415矩陣1516人工翻動的日歷牌1617數(shù)據(jù)轉(zhuǎn)移操作1718數(shù)據(jù)轉(zhuǎn)移操作1719輸入班級號顯示該班同學(xué)名單1820文字設(shè)置1921查詢并顯示指定班級的獎學(xué)金總額2022查詢并顯示指定班級的學(xué)生名單2123命令按鈕組調(diào)色板2224選項(xiàng)按鈕組調(diào)色板

2、2325根據(jù)邊長計(jì)算正方體體積、表面積和總邊長2426根據(jù)邊長計(jì)算正方體體積、表面積和總邊長2527統(tǒng)計(jì)學(xué)生平均成績或課程平均成績2628字體格式預(yù)覽2729信息窗2830數(shù)字時(shí)鐘2931電子時(shí)鐘3032日期、星期、時(shí)鐘表單3033設(shè)計(jì)一個24秒倒記時(shí)表單，記時(shí)精度1秒3134籃球比賽記時(shí)器表單，記時(shí)精度1秒3335運(yùn)動會100米徑賽記時(shí)器表單，記時(shí)精度0.01秒3436設(shè)計(jì)一個記時(shí)器表單，記時(shí)精度1秒3537小球大小變化3638文字縮放3839文字水平移3940時(shí)間信息平行移動40序號題目頁數(shù)41瀏覽表文件“學(xué)生.dbf“4142自動瀏覽表文件“學(xué)生.dbf“4343抽獎表單4344三次口令

3、驗(yàn)證4545指定表文件字段瀏覽4646選頁調(diào)色板4747學(xué)籍信息自動瀏覽4848學(xué)籍信息瀏覽4949學(xué)生表內(nèi)容自動瀏覽（綁定）5050學(xué)生表內(nèi)容按鈕組瀏覽（綁定）5151學(xué)生表信息查詢（文本框輸入）5352學(xué)生表信息查詢（列表框輸入）（綁定）5453學(xué)生表信息查詢（組合框輸入）（綁定）5554輸入學(xué)號或姓名查詢平均成績5755指定姓名查詢平均成績5856指定課程名查詢平均成績5957指定班級查詢平均成績5958學(xué)生成績信息查詢6059學(xué)生或課程成績信息查詢6160添加成績6361學(xué)生成績信息查詢（2個表格）6462學(xué)生成績信息查詢（1個列表框1個表格）6563課程成績信息查詢（1個列表框1個表

4、格）6564學(xué)生或課程成績信息查詢（2個列表框1個表格）6765學(xué)生成績信息查詢(文本框與表格)6866成績詳細(xì)信息查詢(列表框與文本框)7067學(xué)生成績信息查詢(文本框與表格)7168學(xué)生成績信息查詢7269學(xué)生成績信息查詢7470學(xué)生表紀(jì)錄添加7571文字逐個顯示76要求： 編輯狀態(tài)圖中所見的屬性在屬性窗口中設(shè)置，其他屬性和功能必須用程序代碼實(shí)現(xiàn)1 計(jì)算圓面積1）編輯狀態(tài)如圖t1；2）初始運(yùn)行狀態(tài)如圖t2；文本框text1用于接收用戶輸入圓的半徑，文本框text1的初值為0，（通過程序代碼實(shí)現(xiàn)）3）當(dāng)用戶輸入圓的半徑后，鼠標(biāo)單擊“計(jì)算”按鈕(command1)，判斷輸入的數(shù)據(jù)是否正確；4）

5、如果輸入的半徑小于等于0，則用信息窗口提示錯誤，如圖t3所示信息；5）如果輸入的數(shù)據(jù)正確，則將該圓的面積在文本框text2中顯示，如圖t4；6）單擊“退出”按鈕(command2)時(shí)關(guān)閉表單。 圖1 設(shè)計(jì)界面 圖2 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=求圓的面積label1_caption=輸入半徑label2_caption=圓的面積command1_caption=計(jì)算command2_caption=退出事件代碼form1 的init事件thisform.text1.value=0command1的click事件r=thisform.text1.valueif

6、 r>0thisform.text2.value=pi()*r*relsemessagebox(半徑必須大于零)endifcommand2的click事件thisform.release2 我的第一個面向?qū)ο蟪绦蛞螅喝鐖D1和圖2所示，編制一個表單完成如下功能：當(dāng)用戶輸入姓名和學(xué)號，按下“確定”按鈕后，窗口中顯示“這是××的第一個面向?qū)ο蟪绦?！”?圖1 設(shè)計(jì)界面 圖2 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=我的第一個面向?qū)ο蟪绦騦abel1_caption=請輸入你的姓名command1_caption=退出事件代碼text1的valid事

7、件thisform.text1.value="這是"+allt(thisform.text1.value)+"的第一個面向?qū)ο蟪绦颍?quot;command2的click事件thisform.release3 計(jì)算三角形面積要求：如圖1、圖2和圖3所示，編制一個表單完成如下功能：文本框text1、text2、text3用于接收用戶輸入三角形的邊長，文本框text1、text2、text3的初值為0（通過程序代碼實(shí)現(xiàn)），按下“判斷計(jì)算”按鈕后，如果用戶數(shù)據(jù)能構(gòu)成三角形，則窗口中顯示對應(yīng)信息和面積值。如果不能構(gòu)成三角形，則顯示“不能構(gòu)成三角形”。圖1 設(shè)計(jì)界面 圖2

8、 運(yùn)行時(shí)界面 圖3 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=求三角形面積label1_caption=請輸入三角形的三個邊長label2_caption=alabel3_caption=blabel4_caption=clabel5_caption=command1_caption=判斷計(jì)算事件代碼form1 的init事件thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0command1的click事件a=thisform.text1.valueb=thisform.text2.valu

9、ec=thisform.text3.valueif a>0 and b>0 and c>0 and a+b>c and a+c>b and b+c>as=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c)thisform.label5.caption='能構(gòu)成三角形，面積為：'+ ;allt(str(area,10,2)elsethisform.label5.caption='不能構(gòu)成三角形'endifcommand2的click事件thisform.release4 計(jì)算一元二次方程的根要求：如圖1

10、、圖2和圖3所示，編制一個表單完成如下功能：文本框text1、text2、text3的初值都為0（必須用程序代碼實(shí)現(xiàn)），text4 、text5顯示為只讀。用戶輸入分別輸入某一元二次方程的三個系數(shù)a、b、c，按下“計(jì)算”按鈕后，在對應(yīng)的文本框中顯示方程的根。如果a=0，用消息框顯示方程無意義。如果方程無實(shí)數(shù)根，也用消息框提示。 圖1 設(shè)計(jì)界面 圖2 運(yùn)行時(shí)界面 圖3 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=一元二次方程求解label1_caption=alabel2_caption=blabel3_caption=clabel4_caption=x1=label5_ca

11、ption=x2=command1_caption=計(jì)算command2_caption=退出事件代碼form1 的init事件thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0command1的click事件a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valueif a=0messagebox(方程無意義)elseif b*b-4*a*c<0messagebox(方程無實(shí)根)elses=sqrt(b*b-4*a*c)thisfo

12、rm.text4.value=(-b+s)/2*athisform.text5.value=(-b-s)/2*aendifendifcommand2的click事件thisform.release5 登錄窗口1) 編輯狀態(tài)如圖1；初始運(yùn)行狀態(tài)如圖2；2) 正確的用戶名為“user”、口令為“sql”,都是大寫字母；3) 在輸入口令時(shí)不顯示口令內(nèi)容,口令中的字符用“*”代替；4) 在輸入用戶名和口令后,單擊“登錄”按鈕(command1)進(jìn)行驗(yàn)證，如果用戶名和口令都正確,用信息窗口顯示“登錄成功”。否則顯示“用戶名或口令錯誤”；5) 單擊“退出”按鈕(command2)時(shí)關(guān)閉表單。 圖1 編輯時(shí)

13、界面 圖2 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=登錄窗口label1_caption=用戶名label2_caption=口令command1_caption=登錄command2_caption=退出事件代碼form1 的init事件thisfomr.text2.passwordchar=*command1的click事件if allt(thisform.text1.value)= user and; allt(thisform.text2.value)= sqlmessagebox(登錄成功)elsemessagebox(用戶名或口令錯誤)endifcomman

14、d2的click事件thisform.release 6 口令驗(yàn)證要求：如圖1和圖2、圖3所示，編制一個表單完成如下功能：當(dāng)用戶在文本框中輸入正確口令后，在窗口中將顯示“正確”，否則顯示“錯誤”?？诹顬閷W(xué)生表中的“姓名”字段的值。圖1 設(shè)計(jì)界面 圖2 運(yùn)行時(shí)界面圖3 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=口令驗(yàn)證窗口label1_caption=請輸入口令label2_caption=數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1 的init事件thisfomr.text2.passwordchar=*text1的valid事件xm=allt(thisform.text1.va

15、lue)locate for allt(姓名)=xmif found()thisform.label2.caption='歡迎使用系統(tǒng)'elsethisform.label2.caption='口令錯誤'endif7 調(diào)色板要求：如圖1和圖2所示，編制一個表單完成如下功能：當(dāng)用戶在按下窗口中的按鈕后，表單窗口將顯示對應(yīng)的背景顏色。 圖1 設(shè)計(jì)界面 圖2 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=調(diào)色板command1_caption=黑command2_caption=紅command3_caption=黃command4_caption=

16、白事件代碼command1 的click事件thisform.backcolor=rgb(0,0,0)command2 的click事件thisform.backcolor=rgb(255,0,0)command3 的click事件thisform.backcolor=rgb(255,255,0)command4 的click事件thisform.backcolor=rgb(255,255,2550)8 輸入學(xué)號查詢平均成績要求：1) 如圖1、圖2和圖3所示，輸入學(xué)號后，程序查詢成績表中是否存在該同學(xué)的記錄，如果存在，則計(jì)算該通許成績表中所有成績的平均值，并顯示；如果不存在，則顯示“該同學(xué)沒參

17、加考試”的消息框。2) 顯示平均成績的文本框只讀（要求用代碼實(shí)現(xiàn)）。圖1 設(shè)計(jì)界面 圖2 運(yùn)行時(shí)界面 圖3 運(yùn)行時(shí)界面屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=查詢平均成績label1_caption=請輸入學(xué)號label2_caption=平均成績command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“成績”表事件代碼form1 的init事件set talk offthisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for alltrim(

18、學(xué)號)=nif found() average 成績 to k for 學(xué)號=n thisform.text2.value=kelse thisform.text2.value="" messagebox("該同學(xué)沒參加考試")endifcommand2的click事件set talk onthisform.release9 查詢并顯示指定學(xué)生的考試結(jié)果要求：(1)編制一個表單實(shí)現(xiàn)在“成績”表中查詢考試結(jié)果。(2)在text1中輸入學(xué)號，如果成績表沒有該同學(xué)成績，則用消息框顯示“該同學(xué)沒參加考試”。(3)如果該同學(xué)的成績沒有小于60的，則在text2中顯

19、示“考試課程全部通過”，否則顯示“下學(xué)期開學(xué)前補(bǔ)考”。(4) 顯示平均成績的文本框只讀（要求用代碼實(shí)現(xiàn)）。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖2-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=查詢考試結(jié)果label1_caption=請輸入學(xué)號label2_caption=考試結(jié)果command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“成績”表事件代碼form1 的init事件thisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for al

20、ltrim(學(xué)號)=nif eof() thisform.text2.value="" messagebox("該同學(xué)沒參加考試")else locate for alltrim(學(xué)號)=n and 成績<60 if eof() thisform.text2.value="考試課程全部通過" else thisform.text2.value="下學(xué)期開學(xué)前補(bǔ)考" endifendifcommand2的click事件thisform.release10 查詢并顯示指定班級的男女生人數(shù)要求：(1)編制一個表單，

21、實(shí)現(xiàn)在“學(xué)生”表中統(tǒng)計(jì)班級的男、女生人數(shù)的功能。(2)程序運(yùn)行后，在text1中輸入班級代號，如果學(xué)生表中沒有該班級的學(xué)生，則消息框提示“該班級不存在”。(3)如果學(xué)生表中有該班級的同學(xué)，則統(tǒng)計(jì)該班級的男、女生人數(shù)，并分別顯示在text2和text3中。(4) text2和text3只讀。（要求用代碼實(shí)現(xiàn)）。 圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=班級信息查詢label1_caption=班級代號label2_caption=男生人數(shù)label3_caption=女生人數(shù)command1_caption=確定command2_caption=退出數(shù)

22、據(jù)環(huán)境“學(xué)生”表事件代碼form1 的init事件set talk offthisform.text2.readonly=.t.thisform.text3.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for left(學(xué)號,3)=nif eof() thisform.text2.value="" thisform.text3.value="" messagebox("該班級代號不存在")else count to k for left(學(xué)號,3)

23、=n and 性別 count to l for left(學(xué)號,3)=n and !性別 thisform.text2.value=k thisform.text3.value=lendifcommand2的click事件set talk onthisform.release11 查詢并顯示指定班級的獎學(xué)金總額要求：(1)編制一個表單，實(shí)現(xiàn)在“學(xué)生”表中統(tǒng)計(jì)指定班級的獎學(xué)金總額。(2)程序運(yùn)行后，在text1中輸入班級代號，如果學(xué)生表中沒有該班級的學(xué)生，則消息框提示“該班級不存在”。(3)如果學(xué)生表中有該班級的同學(xué)，則統(tǒng)計(jì)該班級的獎學(xué)金總額，并顯示在text2中。(4) text2只讀。（要

24、求用代碼實(shí)現(xiàn)）。 圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 圖4-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=班級獎學(xué)金查詢label1_caption=輸入班級代號label2_caption=獎學(xué)金總額command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1 的init事件set talk offthisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for left(學(xué)號,3)=nif eof() t

25、hisform.text2.value="" messagebox("該班級代號不存在")else sum 獎學(xué)金 to k for left(學(xué)號,3)=n thisform.text2.value=kendifcommand2的click事件set talk onthisform.release12 查詢并顯示指定課程的平均成績要求：(1)編制一個表單，實(shí)現(xiàn)在“成績”表中統(tǒng)計(jì)指定課程的平均成績。(2)程序運(yùn)行后，在text1中輸入課程號，如果課程表中沒有該課程的記錄，則消息框提示“該課程成績沒有輸入”。(3)如果學(xué)生表中有該課程的記錄，則統(tǒng)計(jì)該課程的

26、平均成績，并顯示在text2中。(4) text2只讀。（要求用代碼實(shí)現(xiàn)）。 圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 圖4-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=查詢課程平均成績label1_caption=輸入課程號label2_caption=平均成績command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“成績”表事件代碼form1 的init事件set talk offthisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)loca

27、te for alltrim(課程號)=nif eof() thisform.text2.value="" messagebox("該課程成績沒有輸入")else average for alltrim(課程號)=n 成績 to k thisform.text2.value=kendifcommand2的click事件set talk onthisform.release13 學(xué)生信息表查詢要求：如圖1和2所示，編制一個表單完成如下功能：1)當(dāng)用戶在文本框中輸入學(xué)號，程序在學(xué)生表中查找對應(yīng)記錄，如果記錄存在，則顯示對應(yīng)學(xué)生信息，如果就不存在，則提示“你所

28、查找的學(xué)生并不存在！”。2)在文本框的valid事件中判斷。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖圖3-運(yùn)行效果圖 圖4-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=學(xué)生表信息查詢label1_caption=請輸入學(xué)生學(xué)號label2_caption=label3_caption=姓名label4_caption=性別label5_caption=出生年月label6_caption=獎學(xué)金text2_readonly=.t.text3_readonly=.t.text4_readonly=.t.text5_readonly=.t.數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1 的init

29、事件this.setall("visible",.f.)this.label1.visible=.t.this.text1.visible=.t.text1的valid事件locate for alltrim(學(xué)號)=alltrim(this.value)if found() thisform.label2.caption="" thisform.setall("visible",.t.) thisform.text2.value=姓名 thisform.text3.value=性別 thisform.text4.value=出生年月

30、 thisform.text5.value=獎學(xué)金else thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. thisform.label2.visible=.t. thisform.label2.caption="您所指定的學(xué)生并不存在！"endif14 生成數(shù)據(jù)并統(tǒng)計(jì)要求：如圖1和2所示，在文本框中輸入一個起始數(shù)，則在編輯框中顯示20個從起始數(shù)開始的并且是3的倍數(shù)的正整數(shù)，而且要求這20個數(shù)字的個位數(shù)字都是3，利用標(biāo)簽輸出這20個

31、數(shù)的和。要求編寫form1的init事件、text1的valid事件、command1的click事件。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=生成數(shù)據(jù)并統(tǒng)計(jì)label1_caption=輸入開始值label2_caption=command1_caption=統(tǒng)計(jì)edit1_readonly=.t.事件代碼text1的valid事件n=1s=''a=val(thisform.text1.value)do while n<=20if(a%3)=0 .and. a%10=3n=n+1s=s+str(a)+chr

32、(13)endifa=a+1enddothisform.edit1.value=scommand1的click事件n=1s=0a=val(thisform.text1.value)do while n<=20if(a%3)=0 .and. a%10=3n=n+1s=s+aendifa=a+1enddothisform.label2.caption="這組數(shù)字的和是"+allt(str(s)15 矩陣要求：如圖1和圖2所示，文本框中輸入110的數(shù)據(jù)，單擊顯示按鈕，在編輯框中顯示對應(yīng)行數(shù)和列數(shù)的矩陣。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_ca

33、ption=生成矩陣label1_caption=請輸入一個110之間的數(shù)字command1_caption=顯示事件代碼command1的click事件n=val(thisform.text1.value)s=""for i=1 to n for j=1 to n if j=i or j+i=n+1 s=s+"0"+space(1) else s=s+"1"+space(1) endif endfor s=s+chr(13) endforthisform.edit1.value=s16 人工翻動的日歷牌要求：如圖所示，編制一個表單完

34、成如下功能：1)以“*年*月*日”的格式顯示系統(tǒng)當(dāng)前日期2)按下微調(diào)器的按鈕可以顯示當(dāng)前日期之前或之后的日期圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=人工翻動的日歷牌事件代碼form1的init事件thisform.text1.readonly=.t.thisform.text1.dateformat=14thisform.text1.value=date()spinner1的upclick事件thisform.text1.value=thisform.text1.value+1spinner1的downclick事件thisform.text1.va

35、lue=thisform.text1.value-117 數(shù)據(jù)轉(zhuǎn)移操作要求：如圖所示，編制一個表單完成如下功能：程序運(yùn)行后，左邊源數(shù)據(jù)列表顯示學(xué)生表中學(xué)生的姓名，右邊目標(biāo)數(shù)據(jù)列表為空，當(dāng)源數(shù)據(jù)列表中選中一位同學(xué)后，單擊“選擇一項(xiàng)”按鈕，該同學(xué)姓名就從源數(shù)據(jù)列表被移動到目標(biāo)數(shù)據(jù)列表。當(dāng)在目標(biāo)數(shù)據(jù)列表中選擇一位同學(xué)后，單擊“退還一項(xiàng)”， 該同學(xué)姓名就從目標(biāo)數(shù)據(jù)列表被移動到源數(shù)據(jù)列表。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=數(shù)據(jù)轉(zhuǎn)移操作label1_caption=源數(shù)據(jù)列表label2_caption=目數(shù)標(biāo)據(jù)列表command1_c

36、aption=選擇一項(xiàng)command2_caption=退還一項(xiàng)數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1的init事件scan this.list1.additem(姓名)endscancommand1的click事件thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)command2的click事件thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.lis

37、t2.listindex)18 數(shù)據(jù)轉(zhuǎn)移操作要求：如圖1和2所示，編制一個表單列表框中信息項(xiàng)的互傳操作。 圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=數(shù)據(jù)轉(zhuǎn)移操作label1_caption=源數(shù)據(jù)列表label2_caption=目標(biāo)數(shù)據(jù)列表command1_caption=右移一項(xiàng)command2_caption=左移一項(xiàng)command3_caption=全部右移command4_caption=全部左移數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1的init事件scan this.list1.additem(姓名)endscancomma

38、nd1的click事件thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)command2的click事件thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)command3的click事件thisform.list2.clearscanthisform.list2.additem(姓名)endscanthisform.l

39、ist1.clearcommand4的click事件thisform.list1.clearscanthisform.list1.additem(姓名)endscanthisform.list2.clear19 輸入班級號顯示該班同學(xué)名單要求：如圖1和2所示，編制一個表單完成如下功能：1)當(dāng)用戶在文本框中輸入班級號，程序在學(xué)生表中查找對應(yīng)記錄，如果記錄存在，則顯示對應(yīng)學(xué)生姓名，如果就不存在，則提示“該班級不存在！”。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=輸入班級號顯示該班學(xué)生名單label1_caption=請輸入班級號labe

40、l2_caption=班級學(xué)生名單command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼command1的click事件thisform.list1.clearbjh=alltrim(thisform.text1.value)locate for left(學(xué)號,3)=bjhif found()scan for left(學(xué)號,3)=bjhthisform.list1.additem(姓名)endscanelsemessagebox('該班級不存在')endifcommand2的click事件thisform.release20

41、文字設(shè)置（p264）要求：如圖1和2所示，編制一個表單，通過選擇三個組合框中的選項(xiàng)來改變標(biāo)簽中文字的字體、字號及顏色。combo1中數(shù)據(jù)項(xiàng)為“宋體,隸書,黑體,幼圓”； combo2中數(shù)據(jù)項(xiàng)為“10,19,28,45,54”；combo3中數(shù)據(jù)項(xiàng)為“紅色,綠色,藍(lán)色,黃色”。三個組合框都設(shè)為“下拉列表框”。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=文字設(shè)置label1_caption=組合框事件代碼form1的init事件thisform.combo1.style=2thisform.combo2.style=2thisform.c

42、ombo3.style=2thisform.combo1.rowsourcetype=1thisform.combo1.rowsource="宋體,隸書,黑體,幼圓"thisform.combo2.rowsourcetype=1thisform.combo2.rowsource="10,19,28,45,54"thisform.combo3.rowsourcetype=1thisform.combo3.rowsource="紅色,綠色,藍(lán)色,黃色"combo1的interactivechange事件thisform.label1.fo

43、ntname=this. valuecombo2的interactivechange事件thisform.label1.fontsize=val(this.value)combo3的interactivechange事件do case case this. value ="紅色" thisform.label1.forecolor=rgb(255,0,0) case this. value ="綠色" thisform.label1.forecolor=rgb(0,255,0) case this. value ="藍(lán)色" thisf

44、orm.label1.forecolor=rgb(0,0,255) case this. value ="黃色" thisform.label1.forecolor=rgb(255,255,0)endcase21 查詢并顯示指定班級的獎學(xué)金總額要求：如圖所示，編制一個表單完成如下功能：(1)當(dāng)用戶在組合框中輸入或選擇班級后，按回車件或者單擊確定按鈕時(shí)，表單將顯示對應(yīng)班級的獎學(xué)金總額。（2）如果學(xué)生表中沒有該班級的學(xué)生，則消息框提示“該班級不存在”。 (3) text1只讀（必須用程序代碼實(shí)現(xiàn)）圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖圖3-運(yùn)行效果圖 圖4-運(yùn)行效果圖屬性窗口設(shè)置屬性窗

45、口設(shè)置：form1_caption=查詢并顯示指定班級獎學(xué)金總額label1_caption=請輸入或選擇班級號：label2_caption=獎學(xué)金總額：command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1的init事件set talk offindex on left(學(xué)號,3) to inxh uniquescanthis.combo1.additem(left(學(xué)號,3)endscanset index tothisform.text1.readonly=.t.command1的click事件bjh=alltrim(thisf

46、orm.combo1.displayvalue)locate for left(學(xué)號,3)=bjhif found()sum 獎學(xué)金 to mjxj for left(學(xué)號,3)=bjhthisform.text1.value=mjxjelsethisform.text1.value=''messagebox('該班級不存在！')endifcommand2的click事件thisform.release22 查詢并顯示指定班級的學(xué)生名單要求：如圖所示，編制一個表單完成如下功能：1)當(dāng)用戶在組合框中輸入或選擇班級號，程序在學(xué)生表中查找對應(yīng)記錄，如果記錄存在，則顯示

47、對應(yīng)學(xué)生姓名，如果就不存在，則用消息框提示“該班級不存在！”。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 圖4-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=查詢并顯示指定班級獎學(xué)金總額label1_caption=請輸入或選擇班級號：label2_caption=獎學(xué)金總額：command1_caption=確定command2_caption=退出數(shù)據(jù)環(huán)境“學(xué)生”表事件代碼form1的init事件index on left(學(xué)號,3) to inxh uniquescanthis.combo1.additem(left(學(xué)號,3)endscanset index

48、tocommand1的click事件thisform.list1.clearbjh=alltrim(thisform.combo1.displayvalue)locate for left(學(xué)號,3)=bjhif found()scan for left(學(xué)號,3)=bjhthisform.list1.additem(姓名)endscanelsemessagebox('該班級不存在')endifcommand2的click事件thisform.release23 命令按鈕組調(diào)色板要求： 當(dāng)用戶按了命令按鈕組中的某個按鈕后，表單的背景色就會變?yōu)榘粹o指定的對應(yīng)顏色。圖1-設(shè)計(jì)圖 圖

49、2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性窗口設(shè)置屬性窗口設(shè)置：form1_caption=命令按鈕組調(diào)色板commandgroup1_buttoncount=5commandgroup1_command1_caption=紅commandgroup1_command2_caption=綠commandgroup1_command3_caption=藍(lán)commandgroup1_command4_caption=黑commandgroup1_command5_caption=白事件代碼commandgroup1的click事件do case case this.value=1thisform.ba

50、ckcolor=rgb(255,0,0)case this.value=2thisform.backcolor=rgb(0,255,0)case this.value=3thisform.backcolor=rgb(0,0,255)case this.value=4thisform.backcolor=rgb(0,0,0)case this.value=5thisform.backcolor=rgb(255,255,255)endcase24 選項(xiàng)按鈕組調(diào)色板要求：當(dāng)用戶按了選項(xiàng)按鈕組中的某個按鈕后，表單的背景色就會變?yōu)榘粹o指定的對應(yīng)顏色。圖1-設(shè)計(jì)圖 圖2-運(yùn)行效果圖 圖3-運(yùn)行效果圖 屬性

51、窗口設(shè)置屬性窗口設(shè)置：optiongroup1_buttoncount=5事件代碼form1的init事件this.caption="選項(xiàng)按鈕組調(diào)色板"c="紅綠藍(lán)黑白"for i=1 to 5this.optiongroup1.buttonsi.caption=substr(c,2*i-1,2)endforoptiongroup1的click事件do case case this.value=1thisform.backcolor=rgb(255,0,0)case this.value=2thisform.backcolor=rgb(0,255,0)case this.value=3thisform.backcolor=rgb(0,0,255)case this.value=4thisform.backcolor=rgb(0,0,0)case this.value=5thisform.backcolor=rgb(255,