《vfp实验题整理》word版.docx

2、Thisform.text1.value=a<大写>:Thisform.text1.value=upper(a)<小写>:Thisform.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(

3、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个随机数，范围在文本框中输入

4、。<三个随机数>: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求圆面积，用对话框输出结果<计算>:r=val(thisform.text1.value)a=”圆的面积为:”+alltrim(str(3.14*r^2))messagebox(a,0,”计算圆的面

5、积”)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(thisform.text3.value)docasecasea=max(a,b,c)thisform.text4.value=alltrim(str(a))ca

6、sea=min(a,b,c)thisform.text6.value=alltrim(str(a))otherwisethisform.text5.value=alltrim(str(a))endcasedocasecaseb=max(a,b,c)thisform.text4.value=alltrim(str(b))caseb=min(a,b,c)thisform.text6.value=alltrim(str(b))otherwisethisform.text5.value=alltrim(str(b))endcasedosasecasec=max(a

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

8、er1.text1.value)ifa=="SOFTWARE"th