表单例题2.doc

1、设计如图5所示表单,3文本框的初值为0，运行表单后，在3个文本框中都输入2，单击“command1”按钮，标签label2和label3分别会显示什么？ 图5 表单设计界面Command1的click事件代码：i=thisform.text1.valuea=thisform.text2.valueb=thisform.text3.valuey1=DO WHILE i=3g1()y1=y1+P(+STR(i,1)+)=+STR(a,2)+ i=i+1ENDDOthisform.label2.caption=y1thisform.label3.caption=b=+STR(b,2)自定义方法程序prog1:a=a*2b=b+a 2、如图9所示表单运行后，单击“确定”按钮，写出列表框list1中显示的内容。 图9 表单设计界面程序SS.PRG的内容如下：Parameters a，bK=1/2*a*bReturn k“确定”按钮的click事件代码如下：S=0I=0Do while S100S=S+SS(I,I)X=S(+alltrim(str(I)+)=+alltrim(str(S,10,2)Thisform.list1.additem（x）I=I+10Enddo3、有如图10所示一表单程序，如果表单运行后，文本框text1、text2中分别输入18和6，请问文本框text3中显示什么？已知三个文本框的初值为0，“计算”按钮的click事件代码，自定义方法prog01的代码如下：图10 表单设计界面 “计算”按钮的click事件代码： If thisform.text2.value=0 Messagebox(“数值不能为0”) Else Thisform.text3.value=g01(thisform.text1.value，thisform.text2.value) Endif 自定义方法 prog01的代码： Para x，y r=x%y do while r0 x=y y=r r=x%yenddoreturn 2*y-1 填空题1、设计一表单，表单运行后，在文本框中输入一个正整数，单击“判断”命令按钮，即可弹出一提示框判断出该数是不是素数，如图3所示。请填空完善“判断”命令按钮的Click事件代码。(素数又称质数，是指除了1和该数本身以外不能被其它任何数整除的数。) 图3表单运行界面“判断”命令按钮的Click事件代码：n=val(thisform.text1.value)s=.T. do while i=sqrt(n) and s=0if n%i=0s=.F.else_endifenddoif sa=是一个素数elsea=不是一个素数endifmessagebox(_ _+a)2、成绩数据表CJ.DBF中有三个数值型字段：数学、语文、总分，所有记录的数学和语文字段值均已输入。设计如图4所示表单，将成绩数据表CJ.DBF添加到表单的数据环境中，运行表单后，单击“显示”按钮，求每条记录的总分，并将结果存放在该记录的“总分”字段中，并在在表格中显示成绩数据表CJ.DBF的内容。请填空完成。图4 表单设计界面 “显示”按钮的click事件代码：select cjgo topdo while .not. eof() repl 总分 with _ _ _ enddothisform.grid1.recordsource=cj自定义方法程序zf：parameters sx,ywreturn _3、设计如图5所示一表单程序，学生数据表Stu.dbf已添加到表单的数据环境中，表单运行时，组合框Combol 中可以显示的数据表中的籍贯字段的值，在其中选择一个籍贯，在grid1控件中显示出该籍贯考生的学号、姓名、性别、入学成绩，并在text1中显示平均入学成绩，请将组合框Combol的InteractiveChange 事件代码补充完整。 组合框Combol的InteractiveChange 事件代码如下： Jg=alltrim（bol.value） Select from 学生 where 籍贯=jg into array pj Thisform.text1.value=pj(1) Thisform.grid1.recordsourcetype=4 Thisform.grid1.recordsourcetype=”select 学号，姓名，性别，入学成绩 from stu where 籍贯=jg cursor stujg”图5表单设计界面4、有如图6所示表单程序，其功能是输入三角形三边，计算三角形的面积(保留两位小数)，如果三角形三边不能构成三角形则给出错误提示，请填空完善“计算”按钮的click事件代码 a=val(thisform.text1.value) b=val(thisform.text2.value)c=val(thisform.text3.value)if s=(a+b+c/2) s0=sqrt(s*(s-a)*(s-b)*(s-c) thisform.text4.value= _ _ _ else messagebox(“三条边不构成三角形”，48) thisform.text4.value=“ ”endif图6 表单运行界面5、设计如图1所示表单，在Text1中输入一个五位的自然数，单击“确定”按钮，在Text2中将其反序输出。请填空完善“确定”按钮click事件程序代码。图1 表单设计界面x=val(thisform.text1.value)a1=int(x/10000)a2=mod(int(x/1000),10)a3=_a4=int(x%100/10)a5=_ _thisform.text2.value=a1+a2*10+a3*100+a4*1000+a5*100006、“学生”数据表中有“学号/C/4”、“姓名/C/8”等字段。设计如图2所示的表单，在Text1中输入一个学生的学号，单击“查询”按钮，在Label3中显示该学生的姓名（如无此学号，则显示“查无此人”）。请填空完善“查询”按钮的click事件代码。图2 表单设计界面“查询”按钮的click事件代码：Use xsxh=alltrim(thisform.text1.value)locate for _if found()_elsethisform.label3.caption=查无此人endifuse7、设计如图3所示表单，表单运行后，单击查询按钮，在标签label4、label5、label6中分别显示笔试成绩最高分、上机成绩最高分和总分第一名的姓名，请将“查询”按钮的click事件代码补充完整。 成绩表（文件名：cj.dbf） 学号姓名笔试/N上机/N1010吴书75501020刘璐8273 1001张三80851002李四6095 图3 表单设计界面“查询”按钮的click事件代码：Use cjSet safety offIndex on笔试 tag yw Go topThisform.label4.caption=str(笔试，3)Index on 上机 tag sx Thisform.label5.caption=str(上机，3)Index on tag sxGo bottomThisform.label6.caption=姓名8、设有图书管理数据库： 图书（总编号 C(6)，分类号 C(8),书名C(16)，作者 C(6)，出版单位 C(20)，单价 N(6,2)） 读者(借书证号 C(6)，单位 C(8)，姓名C(6)，性别 C(2) ) 借阅(借书证号 C(6)，总编号 C(6)，借书日期 D(8)（1）将图书表中的“分类号”改为“索引号