VFP程序设计案例.doc

《VFP程序设计案例.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、编一个程序，将华氏温度F=68度变换成摄氏温度C，并将结果显示出来计算公式为：C=5×(F-32)÷9程序如下：F=68C=5*(F-32)/9?"摄氏："+STR(C,4)+"度"+"，"+"华氏："+STR(F,4)+"度"运行结果：摄氏：20度，华氏：68度求绝对值Ifendifclearinput"输入任一数值："toxifx<0x=-xendif?'X的绝对值是：',x求铁路运费铁路托运行李，假设每张车票可按每公斤0.5元托运50公斤以内的行李，如果超过50公斤时，超过的部分每公斤加价0.3元计算公式如下：X=0.5×W当

2、X≤50公斤0.5×50+0.8×(W-50)当W〉50公斤INPUT"请输入行李的重量为："TOWIFW<=50X=0.5*WELSEX=0.5*50+0.8*(W-50)ENDIF?"行李的重量为"+STR(W,6,2)+"公斤，其运费为："+STR(X,6,2)+"元"密码验证clearAccept"请输入密码:"topasswordIfpassword=="12345"?"你是合法用户，欢迎进入!"else?"你是非法用户!"endif求三角形面积clearinput'a='toainput'b='tobinput'c='

3、tocifa+b>candb+c>aanda+c>bs=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c))?'面积为：',areaelse?‘该三角形不存在！'endifDowhileenddo循环输出1-100的数字CLEARI＝1DOWHILEI<=100??space(2),I,”；”I＝I＋1ENDDO转跳语句(LOOP)在DOWHILE－ENDDO循环体内提供了一条短路语句，可以起到转跳作用语句格式：LOOP语句功能：中断本次循环体的执行跳回到DOWHILE的开始处，重复条件的判断LOOP语句一

4、定要用在DOWHILE的循环体内才有意义LOOP语句使它后面的语句在本次循环时不被执行在具有多重DOWHILE－ENDDO嵌套的程序中，LOOP只返回到与它本身所处的内层循环体相匹配的DOWHILE语句求0～100之间奇数之和clearX=0Y=0DOWHILEX<100X=X+1IFINT(X/2)=X/2LOOPELSEY=Y+XENDIFENDDO?"0～100之间的奇数之和为：",Y用INT(X/2)是否等于X/2判断X是否为偶数–是则执行LOOP语句，返回DOWHILE如果INT(X/2)不等于X/2–说明X的值为奇数–执

5、行LOOP后面的语句，将奇数累加出口语句(EXIT)如果在循环的中途，需要结束循环而转到本层循环的后继命令去执行，可以用出口命令语句格式：EXIT语句功能：终止DOWHILE－ENDDO的正常循环无条件地转到ENDDO的后继命令去执行多重循环，只能跳出一层计算1＋2＋3＋…＋100的和clearN=1S=0DOWHILE.T.IFN>100EXITENDIFS=S+NN=N+1ENDDO?"S=",S