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
