表单程序汇总

【例】设计如图表单，圆面积用标签输出。【例】命令按钮“计算圆面积”的“click”事件代码如下：R=thisform.text1.valueS=pi()*r*rthisform.label3.caption=alltrim(str(s,8,1))只接收字符类型【例】设计如图所示表单，表单运行后，在文本框中输入圆半径,单击“圆面积”按钮，可以弹出提示框显示圆面积,如图所示。编写“圆面积”按钮的事件代码。

“圆面积”按钮的click事件代码：r=thisform.text1.values=pi()*r*rmessagebox("圆面积="+alltrim(str(s,8,1)))设计一表单，要求能输入一个3位数，并逆序显示（如输入756，则显示657）。表单设计界面如图2-22所示，运行结果如图2-23所示。

如果输入的不是一个3位自然数，将弹出提示框，如图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="结果为："+STR(y,3)else

messagebox("输入的不是一个3位自然数，请重新输入！")endif判断一个数是不是3位自然数的条件(教材P51)【例3-1】设计如图所示表单，在文本框text1中输入华氏温度，单击“计算”按钮可以求出对应的摄氏温度，并在文本框text2中显示。“计算”按钮的“Click”事件代码如下：fas=thisform.text1.valuecels=5*(fas-32)/9thisform.text2.value=round(cels,1)

(教材P53)

在文本框text1、text2、text3中输入三角形的三边，单击“计算”按钮，如果输入的三边能构成三角形，则在文本框text4中显示三角形的面积；否则用提示框给出提示信息：不能构成三角形，重新输入！。如图所示。“计算”按钮的“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(“不能构成三角形，重新输入！") thisform.text1.value=0 thisform.text2.value=0 thisform.text3.value=0 thisform.text4.value=0 thisform.text1.setfocusendif

清空文本框光标定位在text1中判断某一年是否是闰年

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

提示：判断一个整数M能否被另一个整数N整除，一般采用三种方法，判断:①MOD(M,N)是否等于0②INT(M/N)是否等于M/N③M%N=0若等于，则表明M能被N整除。(教材P54)【例3-4】设计如图3-13所示表单，其中文本框Text1中可以接受日期型数据，运行表单后在Text1中输入日期：08/25/11，单击命令按钮“Command1”，则标签Label2显示什么？其中command1控件的click事件代码：d=thisform.text1.valuey=year(d)IFy%400=0or(y%4=0andy%100#0)

y1="是"ELSE y1="不是"ENDIFthisform.label2.caption=y1EXM2：输入两个数，比较大小，并输出较大数。EXM3：输入两个数，比较大小，并按从大到小的顺序输出。思考：输入3个数a,b,c，比较大小，并按从大到小的顺序输出。command1控件的click事件代码：输入月份值，显示对应季节的中文名字（3,4,5月为春季，6,7,8月为夏季，9,10,11月为秋季；12,1,2月为冬季）。“输出”命令按钮的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】计算s=1+2+3+…+n“计算”命令按钮的“click”事件代码：n=thisform.text1.values=0x=1dowhilex<=n s=s+xx=x+1enddothisform.text2.value=s方法一：“计算”命令按钮的“click”事件代码：n=thisform.text1.values=0Forx=1ton s=s+xendforthisform.text2.value=s方法二：(教材P60)【例3-9】设计如图所示表单，在文本框text1中输入N的值，求N!。“计算”命令按钮的“Click”事件代码：n=thisform.text1.valuep=1fori=1ton p=p*iendforthisform.text2.value=p【例】求100以内的奇数和。A=1+3+5+…+99请同学们自己写出程序“计算”命令按钮的“Click”事件代码：s=0fori=1to99step2 s=s+iendforthisform.text1.value=s【例】求“计算”命令按钮的“Click”事件代码：n=thisform.text1.values=0fori=1ton s=s+i^2endforthisform.text2.value=s思考：计算e的近似值。其公式为：e＝1+1/1!＋1/2!＋1/3!＋…＋1/N!，直到1/N!<0.000001为止。【例】求所有的水仙花数。(所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身。使用编辑框显示使用标签显示查找范围：三位数100~999任意一个三位数X百位数字X1十位数字X2个位数字X3判断这个三位数x是水仙花数的条件：X=x13+x23+x33例：

1到n的奇数和、偶数和

100以内能够被X整除的数之和。

请同学们自己写出程序布置学生思考设计如图所示表单，其功能是计算1~100以内，所有能被8整除的数之和及平均值，请编写“计算”按钮的click事件代码（要求使用循环语句）。s=0n=0fori=1to100ifi%8=0s=s+in=n+1

endifendforthisform.text1.value=sthisform.text2.value=s/n8的倍数累计8的倍数计数多种解法命令按钮的“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】设计如图1所示表单。运行该表单，在文本框Text1中输入一串字符，单击“逆序显示”命令按钮后，逆序显示该字符串，如图2所示。

图1图2【例】输入一串ASCII字符，显示数字字符串。假设输入：Av56:YijB>8显示：568。

【例】输入一串ASCII字符，显示大写字母串。假设输入：Av56:YijB>8显示：AYB。

例：输入一串ASCII字符，显示小写字母串。假设输入：Av56:YijB>8显示：vij

。【例】运行表单后单击命令按钮组中的不同按钮，标签label1的文本改为相应的字体，单击关闭按钮可以关闭表单。命令按钮组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第几个命令按钮【例】如图所示，编写一个简易计算器。要求在文本框Text1中输入数字，然后在OptionGroup1中选择运算符，然后在Text2中输入另一个数字，按回车，则在文本框Text3中显示计算结果。请编写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对应第几个按钮【例】设计如图所示表单，单击“输出”按钮，列表框中显示一个由“*”构成的直角三角形。（利用列表框的AddItem方法）【例】运行表单后单击“输出”按钮，在列表框中输出斐波拉切数列的前20项，每行显示5个数。(注：斐波拉切数列的前两个数是1、1，第三个数是前两个数的和，以后的每个数都是前两个数之和。)

在1、1、2、3、5、8、13、21……中，从第三个数开始，每个数都等于前两个数的和。这一奇特的数列是由意大利数学家斐波那契从兔子繁殖问题中提出的，为了纪念他，人们就把这种数列称为斐波那契数列，也称兔子数列。斐波那契发现兔子繁殖非常快，几个月后，1对兔子就变成了几十对。每对成年兔每个月都能生出1对兔宝宝，而兔宝宝一个月后便有生殖能力，两个月后就能生下第一对小兔。这样一月初有1对兔宝宝，二月初小兔交配，三月初新生1对兔宝宝，有2对兔子，四月再生1对小兔，有3对兔子，五月比上月多生1对兔宝宝（三月出生的小兔生的），有2对兔宝宝，共有5对兔子，六月又比上月多生1对兔宝宝（四月出生的小兔生的），共8对。这样一到六月兔子的对数就是1、1、2、3、、5、8，从第三个数开始，每个数都是前两个数的和，继续推理下去仍是如此。除此以外，人们从很多地方也发现了这类数列。如：茉莉花（3个花瓣），毛莨（5个花瓣），翠雀（8个花瓣），万寿菊（13个花瓣），紫宛（21个花瓣），雏菊（34、55或89个花瓣）。这些花的花瓣数恰好构成斐波那契数列中的一串数。列表框的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中第一个能被3整除的数找出来。Forn=100to150ifn%3=0 thisform.text1.value=n

exit

endifendfor结束当前循环，跳出exit所在的循环结构【例】运行表单后单击“输出”按钮，在编辑框中显示100以内的奇数，每行显示8个数。“输出”命令按钮的“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【例】设计如图（左）所示表单，单击“输出”命令按钮时，编辑框edit1中输出大写字母表。运行界面如图（右）所示。编写“输出”按钮的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学生表（文件名为：stu.DBF）学号姓名寝室电话011001张三3-1-119012385203011002李四4-2-219585296311011003王五5-3-318545678930011004周六3-1-319012341022011005朱琪5-1-219585231487表2成绩表（文件名为：score.DBF）学号课程名成绩011001语文85.0011001数学90.5011002体育90.0011003数学77.0011004语文68.0011002大学英语I95.0011003大学英语II92.5011005政治90.0011001政治90.5“上机7”例：设计如图所示表单程序，其中组合框COMBO1与STU.DBF的电话字段绑定。表单运行后，可以在组合框中选择某个电话号码，在表格grid1中将显示该电话号码前三位相同的所有学生信息。将stu.dbf的电话字段与组合框combo1绑定;组合框combo1的Interactivechange的事件代码：dh=bo1.valuethisform.text1.value=left(dh,3)thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select学号,姓名,;

寝室,电话fromstu;whereleft(电话,3)=thisform.text1.value;intocursortemp"例：设计如图所示的表单程序，其中列表框LIST1与STU.DBF的学号和姓名字段绑定。表单运行后，在列表框中选择一个学生，在文本框text1、text2中分别显示该学生所选课程的总成绩和所选科目数。

将stu.dbf的学号和姓名字段与列表框List1绑定；列表框List1的Interactivechange的事件代码：xh=thisform.list1.valueselectsum(成绩),count(*)fromscore;where学号=xh

intoarraycjthisform.text1.value=cj(1)thisform.text2.value=cj(2)学生数据表(文件名为：XS.dbf)成绩数据表(文件名为：CJ.dbf)学号姓名专业06030101宋燕燕计算机06030205黄建计算机09060315谢小娟会计09060209周丹妮会计06030305张鹏计算机06030131刘红计算机06030226刘莉莉计算机09060127李磊会计学号成绩06030101670603020554090603157509060209920603030558060301318606030226900906012756“上机2”设计如图所示表单，要求：1、表单运行后，在组合框中选择专业“计算机”或者“会计”后（组合框中的数据选项采用手工输入）实现以下功能：（1）在左侧编辑框中显示所选专业学生的学号、姓名和成绩。（2）在右侧2个文本框中分别显示所选专业学生的平均分和不及格人数。2、单击“退出”命令按钮，关闭表单。组合框combo1的Interactivechange的事件代码

：“退出”按钮的Click事件代码：thisform.release商品信息表（文件名为：products.dbf）商品编号商品名称库存量单价07654压力锅50

39004566电吹风20012002233热水器100110005886电磁炉148680订购单位商品编号

销售量幸福社区0765420永安社区0765415永安社区0223360和谐居委会0456690爱民小区05886110幸福社区0456640销售信息表（文件名为：sale.dbf）“上机4”设计如图1所示表单，表单运行后，单击“计算并显示”按钮，显示所有订购商品的订购单位,商品名称,销售量，销售金额，如图1所示；双击表单空白处关闭表单。图1年份消费项目金额结账客户编号09X00134.7T2309809X01959.4F2309809F12027.8T2308810F11097.2T2312910X199119.7F2309809A10267.9F23088表1客户数据表(文件名为：KH.DBF)表2消费记账表(文件名为：XF.DBF)客户编号姓名23088周平23098王成松23129刘涛凌“上机5”设计如图所示的表单，将组合框与KH.DBF的客户编号字段绑定，表单运行后，在组合框中选择一客户编号，在标签label2中显示该客户消费的总金额，如图所示。

设计如图所示表单，在组合框中手工输入数据（“09”、“10”），表单运行后，在组合框中选择一年份值，查询该该年份的客户消费清单并在表格grid1中显示出来，同时统计该年份未结账的总金额，如图所示。双击表单空白处关闭表单。

顾客信息表（GK.DBF）顾客消费积分表（JF.DBF）顾客编号姓名085422王小凤074561孙丽081319吴远平072450程志龙085212李娟娟购买商品消费金额消费积分顾客编号化妆品588.0074561西服1280.0085422靴子566.0085212食品217.2072450食品78.0081319帽子128.0074561皮鞋358.0085422“上机6”设计如图所示表单，表单运行后，单击“计算并显示”按钮，可以计算消费积分（其中顾客编号的末尾为2，则消费积分为消费金额的整数部分，否则消费积分为消费金额一半的整数部分），并填入JF.DBF表中，并在表格中显示顾客消费积分表（JF.dbf）的信息。设计如图所示表单，表单运行后，单击“汇总”按钮，汇总每位顾客的消费积分，并按总积分从小到大的顺序在编辑框edit1中显示每位顾客的姓名和消费总积分，如图所示。双击表单空白处关闭表单。设有两个数据表：导师表(文件名为：dsb.dbf)(导师编号/c，姓名/c，性别/c，研究方向/c)；学生表(文件名为：xsb.dbf)（学号/c，姓名/c，性别/c，所在院系/c，导师编号/c）。

设计如图所示表单，组合框Combo1与导师表中的导师编号字段绑定。表单运行后，在组合框Combo1中选择任一位导师的编号，则①在标签Label3处显示该导师的姓名；②在标签Label5处显示该导师的研究方向；③在表格Grid1控件中显示该导师所指导的学生信息（包括学号、学生姓名、性别，所在院系）。组合框combo1的Interactivechange的事件代码

：ex7.两个数据表：商品信息数据表（文件名为：products.DBF）和商品销售数据表(文件名为：sale.DBF),其数据如表1、表2所示。商品编号热销商品名称规格单价0201101格兰仕豆浆机DS12006398020033TCL48寸LED电视L48E5010E4799020202美的微波炉EG923KF6-NR310980130042Homa对开门电冰箱BCD-388DV3660商品编号客户代表销售数量销售季度0201101王小川1601020202李松50020130042王艳1001020202张涛34010130042左丘明2502020033杜双124010201101吴平7802020033周洪宇4802表1表2设计如图所示表单，文件名：myform21.scx,表单标题为考生自己的考号和姓名，在组合框combo1中通过手工输入方式输入销售季度“01”和“02”（注：与sale.dbf的销售季度字段绑定不得分），表单运行后，选择一个销售季度，在编辑框Edit1中显示该季度的客户代表。thisform.edit1.value=""usesale

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

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

continueenddothisform.refreshuse在组合框中通过手工输入的方式绑定数据;组合框combo1的Interactivechange事件代码：

方法1：在组合框中通过手工输入的方式绑定数据;组合框combo1的Interactivechange的事件代码：thisform.edit1.value=""scanfor销售季度=bo1.value

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

endscan

thisform.refresh

方法2：在组合框中通过手工输入的方式绑定数据;组合框combo1的Interactivechange的事件代码：thisform.edit1.value=""Select客户代表fromsale；

where销售季度=bo1.value；

intocursortemp

scanthisform.edit1.value=thisform.ed