实验题整理.docx

1、实验题整理Visual FoxPro实验题汇总顺序结构程序设计1.用过程化编成方式编写本题。求解一元二次方程（JFC.PRG）a=1b=4c=4x1=(-b+SQRT(b2-4*a*c)/(2*a)x2=(-b-SQRT(b2-4*a*c)/(2*a)?方程的一个根是:,x1,space(10),另一个根是:,x22.理解大小写转换函数。在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写（如图所示）。:Public a:Thisform.text1.value=a:Thisform.text1.value=upper(a):Thisfo

2、rm.text1.value=lower(a):Thisform.text1.value=a3.班上集体购买课外读物，在文本框中输入3种书的单价、购买数量，计算并输出所用的总金额。:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)d=val(thisform.text4.value)e=val(thisform.text5.value)f=val(thisform.text6.value)thisform.text7.value=a*b+c*d+e*f4. 在文本框中输入小时、分、

3、秒，化成共有多少秒，然后输出之。a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)thisform.text4.value=a*3600+b*60+c5. 编程序输出在指定范围内的3个随机数，范围在文本框中输入。:Thisform.label3.caption=str(int(b-a+1)*rand()+a)Thisform.label4.caption=str(int(b-a+1)*rand()+a)Thisform.label5.caption=str(int(b-a+1)*ra

4、nd()+a)6.编写例题4-8求圆面积，用对话框输出结果:r=val(thisform.text1.value)a=”圆的面积为:”+alltrim(str(3.14*r2)messagebox(a,0,”计算圆的面积”)thisform.text1.selstart=0thisform.text1.sellength=len(thisform.text1.text)thisform.text1.setfocus顺序结构程序1. 输入3个不同的数，将它们从大到小排序。:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(th

5、isform.text3.value)do casecase a=max(a,b,c)thisform.text4.value=alltrim(str(a)case a=min(a,b,c)thisform.text6.value=alltrim(str(a)otherwisethisform.text5.value=alltrim(str(a)endcasedo casecase b=max(a,b,c)thisform.text4.value=alltrim(str(b)case b=min(a,b,c)thisform.text6.value=alltrim(str(b)otherwis

6、ethisform.text5.value=alltrim(str(b)endcasedo sasecase c=max(a,b,c)thisform.text4.value=alltrim(str(c)case c=min(a,b,c)thisform.text4.value=alltrim(str(c)otherwisethisform.text5.value=alltrim(str(c)endcase2. 创建一个检查输入口令的表单，口令设定为“SOFTWARE”，允许用户输入三次口令。如果三次输入错误，则显示相关信息，并禁止再次输入口令：如果正确，则显示“欢迎使用本系统！”字样，请编写

7、该程序。:a=ALLTRIM(thisform.container1.text1.value)if a=SOFTWARE thisform.label1.caption=欢迎使用本系统! thisform.container1.visible=.F. thisform.label1.visible=.T. mand1.visible=.t.else b=b+1 if b=3 messagebox(你已第+str(b,3)+次输入错误,+chr(13); +不能使用该系统,48,错误提示) thisform.release ELSE messagebox(你已第+str(b,3)+次输入错误!,

8、48,错误提示) thisform.container1.text1.selstart=0 thisform.container1.text1.sellength=len(ltrim(thisform.container1.text1.value) RETURN 0 endifendif:Thisform.release3. 输入一个数字（06），用中英文显示星期几。:a=thisform.text1.valuedo casecase a=”0”&注意带”,字符型thisform.text2.value=”星期日”thisform.text3.value=”Sunday”case a=”1”t

9、hisform.text2.value=”星期一”thisform.text3.value=”Monday”case a=”2”thisform.text2.value=”星期二”thisform.text3.value=”Tuesday”case a=”3”thisform.text2.value=”星期三”thisform.text3.value=”Wednesday”case a=”4”thisform.text2.value=”星期四”thisform.text3.value=”Thursday”case a=”5”thisform.text2.value=”星期五”thisform.

10、text3.value=”Friday”case a=”6”thisform.text2.value=”星期六”thisform.text3.value=”Saturday”otherwisemessagebox(“对不起,只能输入0-6的整数”,48,”提示”)endcasethisform.text1.selstart=0 &以下可不写thisform.text1.sellength=len(thisform.text1.text)thisform.text1.setfocus4. 若基本工资大于等于600元，增加工资20%；若小于600元大于等于400元，则增加工资15%；若小于400元

11、则增加工资10%。请根据用户输入的基本工资，计算出增加后的工资。:x=val(thisform.text1.value)do casecase x=600y=x*1.2case x=400y=x*1.15case x400y=x*1.1endcasethisform.text2.value=y5.输入圆的半径r，利用选项按钮，选择运算：计算面积、计算周长等。r=val(thisform.text1.value)n=This.valueDo caseCase n=1Y=alltrim(str(2*3.14*r)A=圆的周长为:+yCase n=2Y=alltrim(str(3.14*r2)A=圆

12、的面积为:+yEndcaseThisform.label2.caption=a6.设计一个电子游动标题板，标题“使用VFP设计动画”在表单的黄色区域（容器中）自左至右地反复移动。单击“暂停”按钮，标题停止移动，按钮变成“继续”。单击“继续”按钮，标题继续移动，按钮又变回“暂停”:10 &动画移动的快慢,数字越大移动越慢:If thisform.container1.label1.left+thisform.container1.width670 &”670”大于container的宽度和label的宽度加和数.即动画要完全过去才能再开始.thisform.container1.label1.l

13、eft=thisform.container1.label1.left+1elsethisform.container1.label1.left=-360 &”-360”绝对值要大于container的宽度endif:If mand1.caption=”暂停”Tmand1.caption=”继续”Thisform.container1.timer1.enabled=.f.ElseTmand1.caption=”暂停”Thisform.container1.timer1.enabled=.t.Endif7设计一个计算一元二次方程根的程序：从文本框输入一元二次方程的三个系数：A，B，C，计算并输出

14、方程的两个根X1、X2。当A0时，有两个根。当B*B-4*A*C0时，有两个不等的实根。当B*B-4*A*C=0时，有两个相等的实根。当B*B-4*A*C0时，有两个不等的虚根。:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)m=b2-4*a*cdo casecase a=0x=-c/bthisform.label4.caption=”该方程不是二次方程,只有一个根,X=”+alltrim(str(x)otherwise do case case m0 x1=(-b+sqrt(m

15、)/(2*a) x2=(-b-sqrt(m)/(2*a) thisform.label4.caption=”该方程有两个不相等的实根,X1=”+alltrim(str()+space(5); +”X2=”+alltrim(str(x2)Case m=0X=-b/(2*a)Thisform.label4.caption=”该方程有两个相等的实根,X1=X2=”+alltrim(str(x)Case m0Thisform.label4.caption=”该方程有两个不相等的虚根.”EndcaseEndcase4循环结构程序设计1. 在列表框中输出1001000之间能被37整除的数。:For n=1

16、00 to 1000If n%37=0Thisform.list1.additem(alltrim(str(n)EndifEndfor:Thisform.release2. 设计程序，求s = 1 + (1 + 2) + (1 + 2 + 3) + + (1 + 2 + 3 + + n)的值。click:n=val(thisform.text1.value)m=0s=0for i=1 to n if i=n m=m+i s=s+m endifendforthisform.label3.caption=alltrim(str(s)thisform.text1.selstart=0thisform

17、.text1.sellength=len(thisform.text1.text)thisform.text1.setfocus:Thisform.release3. 输出“九九”乘法表，格式如图所示。columncount:10Columnwidth:30,30,30,30,30,30,30,30,30,30(10个):Thisform.list1.additem(“*”)For i=1 to 9Thisform.list1.addlistitem(alltrim(str(i,3),1,i+1)Thisform.list1.addlistitem(alltrim(str(i,3),i+1,1

18、)For n =1 to iThisform.list1.addlistitem(alltrim(str(n,3),i+1,n+1)EndforEndfor:Thisform.list1.clear4.组合框中显示2000-2400年间所有闰年。For n=2000 to 2400If n%4=0 and n%1000 or n%400=0Tbo1.additem(alltrim(str(n)Tbo1.displayvalue=1 &使第一行总是显示EndifEndfor:thisform.release5.页框：素数页：在列表框中显示2到1000的所有素数。含7页：列表框中显示1-200之间

19、所有含7的数据。素数页:For n=2 to 1000S=0For i=2 to n-1 &除本身以外if n%i=0 s=1 exit endif endforif s=0this.parent.list1.additem(alltrim(str(n)endifendfor含7页:FOR n=1 to 200If “7”$ str(n)This.parent.list1.additem(alltrim(str(n)EndifEndfor5索引,表单中使用数据表4. 设计一个操作数据表的表单，使之具有按记录浏览数据表的功能（首记录、上一个、下一个、尾记录）:Go topTmand1.enabl

20、ed=.f.Tmand2.enabled=.f.Tmand3.enabled=.t.Tmand4.enabled=.t.Thisform.refresh:Skip -1If recno=1Tmand1.enabled=.f.Tmand2.enabled=.f.EndifTmand3.enabled=.t.Tmand4.enabled=.t.Thisform.refresh:Skip 1If eof()=0Go bottomTmand3.enabled=.f.Tmand4.enabled=.f.EndifTmand1.enabled=.t.Tmand2.enabled=.t.Thisform.r

21、efresh:Go bottomTmand1.enabled=.t.Tmand2.enabled=.t.Tmand3.enabled=.f.Tmand4.enabled=.f.Thisform.refresh:Thisform.release6多表操作7数组1. 有一个86的矩阵，各元素的值由由计算机随机产生，求全部元素的平均值，并输出高于平均值的元素以及它们的行、列号。:column count 6Column widths:30,30,30,30,30,30Row source:aRow source type:5-数组:Public a(8,6)For i=1 to 48a(i)=all

22、trim(str(rand()*100)Thisform.list1.numberofelements=48在list中设随机数矩阵Endfor:P=”K=this.valueDo caseCase k=1S=0For i=1 to 48S=s+val(a(i)EndforAv=s/48Thisform.label2.caption=”平均值为:”+alltrim(str(av)For m=1 to 8For n=1to 6If a(i)avP=p+”a(“+str(a(m,1)+”,”+str(a(1,n)+”)=”+alltrim (a(m,n)+”,”& a(m,n)=x中m和n必须加上

23、str endif endfor endfor messagebox(p,0,”大于平均值的元素为:”)Case k=2Thisform.activateThisform.refreshThisform.label2.caption=”平均值为:” &Endcase2. 求方阵（66）的两个对角线元素和。属性:column count :6Column widths:30,30,30,30,30,30Rowsource: aRowsourceType:5-数组:Public a(6,6)For i=1 to 36a(i)=alltrim(str(rand()*100)thisform.list

24、1.numberofelements=36endfor:S=0Z=0For i=1to 6S=s+val(a(i,i)Z=z+val(a(I,7-i)Thisform.text1.value=alltrim(str(s)Thisform.text2.value=allrtrim(str(z)Endfor:Thisform.activateThisform.text1.value=”Thisform.text2.value=” &value”默认值Thisform.refresh3任意10个数由大到小排列:Public a(10)For i=1 to 10Yes=1Do while yes=1X

25、=int(rand()*100)Yes=0For j=1to i-1If x=val(a(j)Yes=1Exit&exit直接跳到endforEndifEndforEnddo &避免随机数重复的do循环a(i)=str(x,2)&任何数字预留两位字符,避免alltrimp=p+a(i)+”,”&不能写a(i)=allt(str(x,2) 这样如果随机产生了个位数，那么用asort排序（字符排序）时“7”会比“66”大thisform.text1.value=left(p,len(p)-1) &把最后一个逗号去掉:Assort(a) P=”For i=10 to 1 step-1&默认从小到大排

26、P=p+a(i)+”,”Thisform.text2.value=left(p,len(p)-1):Thisform.activateThisform.text2.value=”Thisform.refresh自定义属性和方法1. 求两个数n，m的最大公约数和最小公倍数。添加自定义方法:Gys:Parameters m n zIf mnT=mm=nN=t &对调m nEndifR=m%nDo while r0N=rM=nR=m%nEnddoZ=n & z为公约数,公倍数=m*n/z:thisform.text1.setfocus:X=val(thisform.text1.value)Y=val(thisform.text2.value)A=0B=0If x*y0Thisform.gys(x,y,a)B=x*y/aThisform.label3.caption=alltrim(str(a)Thisform.label5.caption=alltrim(s