t for bh=aaa endif close database set talk on return 30、打开一个数据库,并显示其中的表内容 set talk off clear accept "请输入一个数据库名:家庭成员管理.dbc" to x open database accept "请输入一个数据表名:stu.dbf" to y use list use set talk on return 31、验证密码程序 set talk off clear accept "请输入密码:" to aaa if aaa="abc" clear wait "欢迎使用本
系统!" else wait "密码错误,
程序将在 5 秒钟退出!" windows timeout 5 endif set talk on return
32、编程求税金 set talk off clear input "请输入营业收入:" to p 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 ?"应纳税金为:" , x set talk on return 33、用三角形列出乘法口诀表 set talk off clear X=1 DO WHILE X<=9 Y=1 DO WHILE Y<=X S=X*Y ?? STR(Y,1)+"*"+STR(X,1)+"="+STR(S,2)+" " Y=Y+1 ENDDO ? X=X+1 ENDDO SET TALK ON RETURN 34、将变量 A、B 值互换 a=1 b=2 a=a+b b=a-b a=a-b ?a,b
35、找出已知三个数的中间数 INPUT "请输入 a 的值:" TO a INPUT "请输入 b 的值:" TO b INPUT "请输入 c 的值:" TO c IF MAX(a,b)
圆的半径" to r s=0 &;&;用参数传递计算必须给实际参数赋初值 do arer with r,s &;&;调用子程序,并指定实际参数 r,s ?"圆的面积为:",s set talk on ? procedure arer &;&;被调用的子程序 arer parameter x,y &;&;指定的形式参数 x,y y=3.14*x^2 return set talk on 37、我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百 鸡问题:鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一,百钱买 百鸡,问鸡翁,母,雏各几何? **依题列出方程:x+y+z=100 5x+3y+z/3=100 set talk off clear for x=1 to 100 for y=1 to 100 z=100-x-y if 5*x+3*y+z/3=100 ?"鸡翁:"+str(x,3) ?"鸡母:"+str(y,3) ?"鸡雏:"+str(z,3) endif
endfor endfor set talk on return 38、调用子程序 * MAIN.PRG SET TALK OFF ? ”正在执行主程序” DO SUB1 SET TALK ON Procedure SUB1 ? ”正在执行 SUB1” RETURN