vfp实验题整理..docxVIP

Visual FoxPro实验题汇总★顺序结构程序设计1.用过程化编成方式编写本题。求解一元二次方程（JFC.PRG）a=1b=4c=4x1=(-b+SQRT(b^2-4*a*c))/(2*a)x2=(-b-SQRT(b^2-4*a*c))/(2*a)?方程的一个根是:,x1,space(10),另一个根是:,x22.理解大小写转换函数。在文本框中输入文本串，按“转大写”按钮，文本中的英文字母变为大写，按“转小写”按钮，文本中的英文字母变为小写（如图所示）。FORMload:Public atext1interactiveChange:Thisform.text1.value=a大写click:Thisform.text1.value=upper(a)小写click:Thisform.text1.value=lower(a)复原click:Thisform.text1.value=a3.班上集体购买课外读物，在文本框中输入3种书的单价、购买数量，计算并输出所用的总金额。总计click: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. 在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)thisform.text4.value=a*3600+b*60+c5. 编程序输出在指定范围内的3个随机数，范围在文本框中输入。三个随机数click: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)*rand()+a))6.编写例题4-8求圆面积，用对话框输出结果计算click:r=val(thisform.text1.value)a=”圆的面积为:”+alltrim(str(3.14*r^2))messagebox(a,0,”计算圆的面积”)thisform.text1.selstart=0thisform.text1.sellength=len(thisform.text1.text)thisform.text1.setfocus★顺序结构程序1. 输入3个不同的数，将它们从大到小排序。排序click:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.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))otherwisethisform.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”，允许用户输入三次口令。如果三次输入错误，则显示相关信息，并禁止再次输入口令：如果正确，则显示“欢迎使用本系统！”字样，请编写该程序。确认click:a=ALLTRIM(thisform.container1.text1.value)if a==SOFTWARE thisform.label1.caption=欢迎使用本系统