发布时间 : 星期一 文章VFP常见编程实例(免费下载)[1]更新完毕开始阅读4078c07c168884868762d662
ENDIF RETURN
28、使一个多位正整数逆序排列 CLEAR
input \请输入一个整数:\DO WHILE x>0 y=x ??y
x=INT(x/10) ENDDO RETURN
29、按编号查找并列出一条记录 set talk off clear
accept \请输入数据库名:家庭成员管理:\open database
accept \请输入数据表名:stu:%use list
wait \请输入一个编号:\
if val(c)<=0 or val(c)>4
wait \输入的数字不合法,请重新输入一个合法的数字:\windows timeout 5 else
store \list for bh=aaa endif
close database set talk on return
30、打开一个数据库,并显示其中的表内容 set talk off clear
accept \请输入一个数据库名:家庭成员管理.dbc\open database
accept \请输入一个数据表名:stu.dbf%use list use
set talk on return
30、验证密码程序: set talk off clear
accept \请输入密码:\if aaa=\clear
wait \欢迎使用本系统!\else
wait \密码错误,程序将在5秒钟退出!\endif set talk on return
31、编程求税金 set talk off clear
input \请输入营业收入:\do case case p<800 r=0
case p=<2000
r=0.05 case p<5000 r=0.08 case p>=5000 r=0.1 endcase x=p*r
?\应纳税金为:\set talk on return
32、用三角形列出乘法口诀表: set talk off clear X=1
DO WHILE X<=9 Y=1
DO WHILE Y<=X S=X*Y
?? STR(Y,1)+\ Y=Y+1 ENDDO