表單程序匯總

【例】設(shè)計(jì)如圖表單，圓面積用標(biāo)簽輸出。【例】命令按鈕“計(jì)算圓面積”的“click”事件代碼如下：R=thisform.text1.valueS=pi()*r*rthisform.label3.caption=alltrim(str(s,8,1))只接收字符類型【例】設(shè)計(jì)如圖所示表單，表單運(yùn)行后，在文本框中輸入圓半徑,單擊“圓面積”按鈕，可以彈出提示框顯示圓面積,如圖所示。編寫“圓面積”按鈕的事件代碼。

“圓面積”按鈕的click事件代碼：r=thisform.text1.values=pi()*r*rmessagebox("圓面積="+alltrim(str(s,8,1)))設(shè)計(jì)一表單，要求能輸入一個(gè)3位數(shù)，并逆序顯示（如輸入756，則顯示657）。表單設(shè)計(jì)界面如圖2-22所示，運(yùn)行結(jié)果如圖2-23所示。

如果輸入的不是一個(gè)3位自然數(shù)，將彈出提示框，如圖2-34所示。命令按鈕“逆序顯示”的“click”事件代碼如下：x=thisform.text1.valueifx>=100andx<1000andx=int(x) x1=INT(x/100) x2=INT(MOD(x,100)/10) x3=MOD(x,10) y=x1+10*x2+100*x3 thisform.label2.caption="結(jié)果為："+STR(y,3)else

messagebox("輸入的不是一個(gè)3位自然數(shù)，請重新輸入！")endif判斷一個(gè)數(shù)是不是3位自然數(shù)的條件(教材P51)【例3-1】設(shè)計(jì)如圖所示表單，在文本框text1中輸入華氏溫度，單擊“計(jì)算”按鈕可以求出對應(yīng)的攝氏溫度，并在文本框text2中顯示?！坝?jì)算”按鈕的“Click”事件代碼如下：fas=thisform.text1.valuecels=5*(fas-32)/9thisform.text2.value=round(cels,1)

(教材P53)

在文本框text1、text2、text3中輸入三角形的三邊，單擊“計(jì)算”按鈕，如果輸入的三邊能構(gòu)成三角形，則在文本框text4中顯示三角形的面積；否則用提示框給出提示信息：不能構(gòu)成三角形，重新輸入！。如圖所示?！坝?jì)算”按鈕的“Click”事件代碼如下：a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valueifa+b>canda+c>bandb+c>a =(a+b+c)/2 area=sqrt(*(-a)*(-b)*(-c)) thisform.text4.value=round(area,1)else

messagebox(“不能構(gòu)成三角形，重新輸入！") thisform.text1.value=0 thisform.text2.value=0 thisform.text3.value=0 thisform.text4.value=0 thisform.text1.setfocusendif

清空文本框光標(biāo)定位在text1中判斷某一年是否是閏年

假如年份用y表示，判斷y是否是閏年的方法是：若y能夠被400整除或y能夠被4整除并且不能夠被100整除

提示：判斷一個(gè)整數(shù)M能否被另一個(gè)整數(shù)N整除，一般采用三種方法，判斷:①M(fèi)OD(M,N)是否等于0②INT(M/N)是否等于M/N③M%N=0若等于，則表明M能被N整除。(教材P54)【例3-4】設(shè)計(jì)如圖3-13所示表單，其中文本框Text1中可以接受日期型數(shù)據(jù)，運(yùn)行表單后在Text1中輸入日期：08/25/11，單擊命令按鈕“Command1”，則標(biāo)簽Label2顯示什么？其中command1控件的click事件代碼：d=thisform.text1.valuey=year(d)IFy%400=0or(y%4=0andy%100#0)

y1="是"ELSE y1="不是"ENDIFthisform.label2.caption=y1EXM2：輸入兩個(gè)數(shù)，比較大小，并輸出較大數(shù)。EXM3：輸入兩個(gè)數(shù)，比較大小，并按從大到小的順序輸出。思考：輸入3個(gè)數(shù)a,b,c，比較大小，并按從大到小的順序輸出。command1控件的click事件代碼：輸入月份值，顯示對應(yīng)季節(jié)的中文名字（3,4,5月為春季，6,7,8月為夏季，9,10,11月為秋季；12,1,2月為冬季）?！拜敵觥泵畎粹o的click事件代碼：yf=thisform.text1.valuedocase caseyf=3oryf=4oryf=5

jj="春季" caseyf=6oryf=7oryf=8

jj="夏季" caseyf=9oryf=10oryf=11

jj="秋季" caseyf=12oryf=1oryf=2

jj="冬季"endcasethisform.label3.caption=jj

【修改例3-8】計(jì)算s=1+2+3+…+n“計(jì)算”命令按鈕的“click”事件代碼：n=thisform.text1.values=0x=1dowhilex<=n s=s+xx=x+1enddothisform.text2.value=s方法一：“計(jì)算”命令按鈕的“click”事件代碼：n=thisform.text1.values=0Forx=1ton s=s+xendforthisform.text2.value=s方法二：(教材P60)【例3-9】設(shè)計(jì)如圖所示表單，在文本框text1中輸入N的值，求N!?！坝?jì)算”命令按鈕的“Click”事件代碼：n=thisform.text1.valuep=1fori=1ton p=p*iendforthisform.text2.value=p【例】求100以內(nèi)的奇數(shù)和。A=1+3+5+…+99請同學(xué)們自己寫出程序“計(jì)算”命令按鈕的“Click”事件代碼：s=0fori=1to99step2 s=s+iendforthisform.text1.value=s【例】求“計(jì)算”命令按鈕的“Click”事件代碼：n=thisform.text1.values=0fori=1ton s=s+i^2endforthisform.text2.value=s思考：計(jì)算e的近似值。其公式為：e＝1+1/1!＋1/2!＋1/3!＋…＋1/N!，直到1/N!<0.000001為止?！纠壳笏械乃苫〝?shù)。(所謂水仙花數(shù)是指一個(gè)三位數(shù)，其各位數(shù)字的立方和等于該數(shù)本身。使用編輯框顯示使用標(biāo)簽顯示查找范圍：三位數(shù)100~999任意一個(gè)三位數(shù)X百位數(shù)字X1十位數(shù)字X2個(gè)位數(shù)字X3判斷這個(gè)三位數(shù)x是水仙花數(shù)的條件：X=x13+x23+x33例：

1到n的奇數(shù)和、偶數(shù)和

100以內(nèi)能夠被X整除的數(shù)之和。

請同學(xué)們自己寫出程序布置學(xué)生思考設(shè)計(jì)如圖所示表單，其功能是計(jì)算1~100以內(nèi)，所有能被8整除的數(shù)之和及平均值，請編寫“計(jì)算”按鈕的click事件代碼（要求使用循環(huán)語句）。s=0n=0fori=1to100ifi%8=0s=s+in=n+1

endifendforthisform.text1.value=sthisform.text2.value=s/n8的倍數(shù)累計(jì)8的倍數(shù)計(jì)數(shù)多種解法命令按鈕的“click”事件代碼：s=0fori=1to100 s=s+(-1)^(i+1)/iendforthisform.text1.value=s方法1：命令按鈕的“click”事件代碼：s=0k=1fori=1to100 s=s+k/i k=-kendforthisform.text1.value=s方法2：命令按鈕的“click”事件代碼：s1=0s2=0fori=1to99step2 s1=s1+1/iendforfori=2to100step2 s2=s2+1/iendforthisform.text1.value=s1-s2方法3：(教材P60-61)【例3-10】設(shè)計(jì)如圖1所示表單。運(yùn)行該表單，在文本框Text1中輸入一串字符，單擊“逆序顯示”命令按鈕后，逆序顯示該字符串，如圖2所示。

圖1圖2【例】輸入一串ASCII字符，顯示數(shù)字字符串。假設(shè)輸入：Av56:YijB>8顯示：568。

【例】輸入一串ASCII字符，顯示大寫字母串。假設(shè)輸入：Av56:YijB>8顯示：AYB。

例：輸入一串ASCII字符，顯示小寫字母串。假設(shè)輸入：Av56:YijB>8顯示：vij

?！纠窟\(yùn)行表單后單擊命令按鈕組中的不同按鈕，標(biāo)簽label1的文本改為相應(yīng)的字體，單擊關(guān)閉按鈕可以關(guān)閉表單。命令按鈕組Commandgroup1的click事件代碼如下：docasecasethis.value=1 thisform.label1.fontname="宋體"casethis.value=2 thisform.label1.fontname="黑體"casethis.value=3 thisform.label1.fontname="楷體"casethis.value=4 thisform.label1.fontname="隸書"casethis.value=5

thisform.releaseendcase表示什么？Commandgroup1第幾個(gè)命令按鈕【例】如圖所示，編寫一個(gè)簡易計(jì)算器。要求在文本框Text1中輸入數(shù)字，然后在OptionGroup1中選擇運(yùn)算符，然后在Text2中輸入另一個(gè)數(shù)字，按回車，則在文本框Text3中顯示計(jì)算結(jié)果。請編寫Text2的LostFocus事件代碼。文本框Text2的LostFocus事件代碼：

x=val(thisform.text1.text)y=val(thisform.text2.text)docase casethisform.optiongroup1.value=1 z=x+y casethisform.optiongroup1.value=2 z=x-y casethisform.optiongroup1.value=3 z=x*y casethisform.optiongroup1.value=4 z=x/yendcasethisform.text3.value=z對應(yīng)第幾個(gè)按鈕【例】設(shè)計(jì)如圖所示表單，單擊“輸出”按鈕，列表框中顯示一個(gè)由“*”構(gòu)成的直角三角形。（利用列表框的AddItem方法）【例】運(yùn)行表單后單擊“輸出”按鈕，在列表框中輸出斐波拉切數(shù)列的前20項(xiàng)，每行顯示5個(gè)數(shù)。(注：斐波拉切數(shù)列的前兩個(gè)數(shù)是1、1，第三個(gè)數(shù)是前兩個(gè)數(shù)的和，以后的每個(gè)數(shù)都是前兩個(gè)數(shù)之和。)

在1、1、2、3、5、8、13、21……中，從第三個(gè)數(shù)開始，每個(gè)數(shù)都等于前兩個(gè)數(shù)的和。這一奇特的數(shù)列是由意大利數(shù)學(xué)家斐波那契從兔子繁殖問題中提出的，為了紀(jì)念他，人們就把這種數(shù)列稱為斐波那契數(shù)列，也稱兔子數(shù)列。斐波那契發(fā)現(xiàn)兔子繁殖非常快，幾個(gè)月后，1對兔子就變成了幾十對。每對成年兔每個(gè)月都能生出1對兔寶寶，而兔寶寶一個(gè)月后便有生殖能力，兩個(gè)月后就能生下第一對小兔。這樣一月初有1對兔寶寶，二月初小兔交配，三月初新生1對兔寶寶，有2對兔子，四月再生1對小兔，有3對兔子，五月比上月多生1對兔寶寶（三月出生的小兔生的），有2對兔寶寶，共有5對兔子，六月又比上月多生1對兔寶寶（四月出生的小兔生的），共8對。這樣一到六月兔子的對數(shù)就是1、1、2、3、、5、8，從第三個(gè)數(shù)開始，每個(gè)數(shù)都是前兩個(gè)數(shù)的和，繼續(xù)推理下去仍是如此。除此以外，人們從很多地方也發(fā)現(xiàn)了這類數(shù)列。如：茉莉花（3個(gè)花瓣），毛莨（5個(gè)花瓣），翠雀（8個(gè)花瓣），萬壽菊（13個(gè)花瓣），紫宛（21個(gè)花瓣），雛菊（34、55或89個(gè)花瓣）。這些花的花瓣數(shù)恰好構(gòu)成斐波那契數(shù)列中的一串?dāng)?shù)。列表框的columncount屬性初值為5，columnLines屬性初值為.F.，columnwidths屬性初值為30,30,30,30,30“輸出”命令按鈕的“click”事件代碼：f1=1f2=1thisform.list1.addlistitem("1",1,1)thisform.list1.addlistitem("1",1,2)x=1y=3fori=3to20 f3=f1+f2

thisform.list1.addlistitem(str(f3,5),x,y) f1=f2 f2=f3

y=y+1 ify=6 x=x+1 y=1 endifendfor【例】將100到150中第一個(gè)能被3整除的數(shù)找出來。Forn=100to150ifn%3=0 thisform.text1.value=n

exit

endifendfor結(jié)束當(dāng)前循環(huán)，跳出exit所在的循環(huán)結(jié)構(gòu)【例】運(yùn)行表單后單擊“輸出”按鈕，在編輯框中顯示100以內(nèi)的奇數(shù)，每行顯示8個(gè)數(shù)。“輸出”命令按鈕的“click”事件代碼：k=0fori=1to100step2 k=k+1

thisform.edit1.value=thisform.edit1.value+str(i,5) ifk%8=0

thisform.edit1.value=thisform.edit1.value+chr(13)

endifendfor【例】設(shè)計(jì)如圖（左）所示表單，單擊“輸出”命令按鈕時(shí)，編輯框edit1中輸出大寫字母表。運(yùn)行界面如圖（右）所示。編寫“輸出”按鈕的click事件代碼。

“輸出”按鈕的Click事件代碼：n=0fori=asc("A")toasc("Z")

thisform.edit1.value=thisform.edit1.value+chr(i)+space(2)n=n+1ifn%6=0

thisform.edit1.value=thisform.edit1.value+chr(13)

endifendfor方法1：

“輸出”按鈕的Click事件代碼：n=0fori=1to26 x=asc("A")-1

thisform.edit1.value=thisform.edit1.value+chr(x+i)+space(2)n=n+1ifn%6=0

thisform.edit1.value=thisform.edit1.value+chr(13)

endifendfor方法2：表1學(xué)生表（文件名為：stu.DBF）學(xué)號姓名寢室電話011001張三3-1-119012385203011002李四4-2-219585296311011003王五5-3-318545678930011004周六3-1-319012341022011005朱琪5-1-219585231487表2成績表（文件名為：score.DBF）學(xué)號課程名成績011001語文85.0011001數(shù)學(xué)90.5011002體育90.0011003數(shù)學(xué)77.0011004語文68.0011002大學(xué)英語I95.0011003大學(xué)英語II92.5011005政治90.0011001政治90.5“上機(jī)7”例：設(shè)計(jì)如圖所示表單程序，其中組合框COMBO1與STU.DBF的電話字段綁定。表單運(yùn)行后，可以在組合框中選擇某個(gè)電話號碼，在表格grid1中將顯示該電話號碼前三位相同的所有學(xué)生信息。將stu.dbf的電話字段與組合框combo1綁定;組合框combo1的Interactivechange的事件代碼：dh=bo1.valuethisform.text1.value=left(dh,3)thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select學(xué)號,姓名,;

寢室,電話fromstu;whereleft(電話,3)=thisform.text1.value;intocursortemp"例：設(shè)計(jì)如圖所示的表單程序，其中列表框LIST1與STU.DBF的學(xué)號和姓名字段綁定。表單運(yùn)行后，在列表框中選擇一個(gè)學(xué)生，在文本框text1、text2中分別顯示該學(xué)生所選課程的總成績和所選科目數(shù)。

將stu.dbf的學(xué)號和姓名字段與列表框List1綁定；列表框List1的Interactivechange的事件代碼：xh=thisform.list1.valueselectsum(成績),count(*)fromscore;where學(xué)號=xh

intoarraycjthisform.text1.value=cj(1)thisform.text2.value=cj(2)學(xué)生數(shù)據(jù)表(文件名為：XS.dbf)成績數(shù)據(jù)表(文件名為：CJ.dbf)學(xué)號姓名專業(yè)06030101宋燕燕計(jì)算機(jī)06030205黃建計(jì)算機(jī)09060315謝小娟會計(jì)09060209周丹妮會計(jì)06030305張鵬計(jì)算機(jī)06030131劉紅計(jì)算機(jī)06030226劉莉莉計(jì)算機(jī)09060127李磊會計(jì)學(xué)號成績06030101670603020554090603157509060209920603030558060301318606030226900906012756“上機(jī)2”設(shè)計(jì)如圖所示表單，要求：1、表單運(yùn)行后，在組合框中選擇專業(yè)“計(jì)算機(jī)”或者“會計(jì)”后（組合框中的數(shù)據(jù)選項(xiàng)采用手工輸入）實(shí)現(xiàn)以下功能：（1）在左側(cè)編輯框中顯示所選專業(yè)學(xué)生的學(xué)號、姓名和成績。（2）在右側(cè)2個(gè)文本框中分別顯示所選專業(yè)學(xué)生的平均分和不及格人數(shù)。2、單擊“退出”命令按鈕，關(guān)閉表單。組合框combo1的Interactivechange的事件代碼

：“退出”按鈕的Click事件代碼：thisform.release商品信息表（文件名為：products.dbf）商品編號商品名稱庫存量單價(jià)07654壓力鍋50

39004566電吹風(fēng)20012002233熱水器100110005886電磁爐148680訂購單位商品編號

銷售量幸福社區(qū)0765420永安社區(qū)0765415永安社區(qū)0223360和諧居委會0456690愛民小區(qū)05886110幸福社區(qū)0456640銷售信息表（文件名為：sale.dbf）“上機(jī)4”設(shè)計(jì)如圖1所示表單，表單運(yùn)行后，單擊“計(jì)算并顯示”按鈕，顯示所有訂購商品的訂購單位,商品名稱,銷售量，銷售金額，如圖1所示；雙擊表單空白處關(guān)閉表單。圖1年份消費(fèi)項(xiàng)目金額結(jié)賬客戶編號09X00134.7T2309809X01959.4F2309809F12027.8T2308810F11097.2T2312910X199119.7F2309809A10267.9F23088表1客戶數(shù)據(jù)表(文件名為：KH.DBF)表2消費(fèi)記賬表(文件名為：XF.DBF)客戶編號姓名23088周平23098王成松23129劉濤凌“上機(jī)5”設(shè)計(jì)如圖所示的表單，將組合框與KH.DBF的客戶編號字段綁定，表單運(yùn)行后，在組合框中選擇一客戶編號，在標(biāo)簽label2中顯示該客戶消費(fèi)的總金額，如圖所示。

設(shè)計(jì)如圖所示表單，在組合框中手工輸入數(shù)據(jù)（“09”、“10”），表單運(yùn)行后，在組合框中選擇一年份值，查詢該該年份的客戶消費(fèi)清單并在表格grid1中顯示出來，同時(shí)統(tǒng)計(jì)該年份未結(jié)賬的總金額，如圖所示。雙擊表單空白處關(guān)閉表單。

顧客信息表（GK.DBF）顧客消費(fèi)積分表（JF.DBF）顧客編號姓名085422王小鳳074561孫麗081319吳遠(yuǎn)平072450程志龍085212李娟娟購買商品消費(fèi)金額消費(fèi)積分顧客編號化妝品588.0074561西服1280.0085422靴子566.0085212食品217.2072450食品78.0081319帽子128.0074561皮鞋358.0085422“上機(jī)6”設(shè)計(jì)如圖所示表單，表單運(yùn)行后，單擊“計(jì)算并顯示”按鈕，可以計(jì)算消費(fèi)積分（其中顧客編號的末尾為2，則消費(fèi)積分為消費(fèi)金額的整數(shù)部分，否則消費(fèi)積分為消費(fèi)金額一半的整數(shù)部分），并填入JF.DBF表中，并在表格中顯示顧客消費(fèi)積分表（JF.dbf）的信息。設(shè)計(jì)如圖所示表單，表單運(yùn)行后，單擊“匯總”按鈕，匯總每位顧客的消費(fèi)積分，并按總積分從小到大的順序在編輯框edit1中顯示每位顧客的姓名和消費(fèi)總積分，如圖所示。雙擊表單空白處關(guān)閉表單。設(shè)有兩個(gè)數(shù)據(jù)表：導(dǎo)師表(文件名為：dsb.dbf)(導(dǎo)師編號/c，姓名/c，性別/c，研究方向/c)；學(xué)生表(文件名為：xsb.dbf)（學(xué)號/c，姓名/c，性別/c，所在院系/c，導(dǎo)師編號/c）。

設(shè)計(jì)如圖所示表單，組合框Combo1與導(dǎo)師表中的導(dǎo)師編號字段綁定。表單運(yùn)行后，在組合框Combo1中選擇任一位導(dǎo)師的編號，則①在標(biāo)簽Label3處顯示該導(dǎo)師的姓名；②在標(biāo)簽Label5處顯示該導(dǎo)師的研究方向；③在表格Grid1控件中顯示該導(dǎo)師所指導(dǎo)的學(xué)生信息（包括學(xué)號、學(xué)生姓名、性別，所在院系）。組合框combo1的Interactivechange的事件代碼

：ex7.兩個(gè)數(shù)據(jù)表：商品信息數(shù)據(jù)表（文件名為：products.DBF）和商品銷售數(shù)據(jù)表(文件名為：sale.DBF),其數(shù)據(jù)如表1、表2所示。商品編號熱銷商品名稱規(guī)格單價(jià)0201101格蘭仕豆?jié){機(jī)DS12006398020033TCL48寸LED電視L48E5010E4799020202美的微波爐EG923KF6-NR310980130042Homa對開門電冰箱BCD-388DV3660商品編號客戶代表銷售數(shù)量銷售季度0201101王小川1601020202李松50020130042王艷1001020202張濤34010130042左丘明2502020033杜雙124010201101吳平7802020033周洪宇4802表1表2設(shè)計(jì)如圖所示表單，文件名：myform21.scx,表單標(biāo)題為考生自己的考號和姓名，在組合框combo1中通過手工輸入方式輸入銷售季度“01”和“02”（注：與sale.dbf的銷售季度字段綁定不得分），表單運(yùn)行后，選擇一個(gè)銷售季度，在編輯框Edit1中顯示該季度的客戶代表。thisform.edit1.value=""usesale

cbs=alltrim(bo1.value)locateforalltrim(出版社)=cbsDowhilenoteof()

thisform.edit1.value=thisform.edit1.value+客戶代表+chr(13)

continueenddothisform.refreshuse在組合框中通過手工輸入的方式綁定數(shù)據(jù);組合框combo1的Interactivechange事件代碼：

方法1：在組合框中通過手工輸入的方式綁定數(shù)據(jù);組合框combo1的Interactivechange的事件代碼：thisform.edit1.value=""scanfor銷售季度=bo1.value

thisform.edit1.value=thisform.edit1.value+客戶代表+chr(13)

endscan

thisform.refresh

方法2：在組合框中通過手工輸入的方式綁定數(shù)據(jù);組合框combo1的Interactivechange的事件代碼：thisform.edit1.value=""Select客戶代表fromsale；

where銷售季度=bo1.value；

intocursortemp

scanthisform.edit1.value=thisform.ed