**工资增加计算.PRG
CLEAR
ACCEPT"请输入基本工资"TO dj
DO CASE
  CASE dj＞=3000
    ?"增加工资的5%，工资为",dj*1.05
  CASE 3000＞=dj＞=2000
    ?"增加工资的8%，工资为",dj*1.08
  CASE dj＜=2000
    ?"增加工资的10%，工资为",dj*1.1
  OTHERWISE
    ?"错误!"
END CASE
RETURN

"CASE 3000＞=dj＞=2000"
CASE dj<=3000 and dj＞=2000

还是跳出   DO CASE....ENGCASE 命令中缺少关键词

程序编写要求，一定按照规定写。“,”，“>”号不要用汉字写。 andcase 不要分开写。dj 要变成数值型
下面是修改的，你试试吧

CLEAR
ACCEPT"请输入基本工资"TO dj
dj=val(dj)
DO CASE
    CASE dj>=3000
    ?"增加工资的5%,工资为",dj*1.05
    case dj>=2000 and dj=<3000 && 此句的语法无问题，但是，逻辑有问题,=3000 时，你按多少比例加工资？
    ?"增加工资的8%,工资为",dj*1.08
    CASE dj=<2000 && ,=2000 时，你按多少比例加工资？
    ?"增加工资的10%,工资为",dj*1.1
  OTHERWISE
    ?"错误!"
ENDCASE
RETURN


[ 本帖最后由 qingfameng 于 2010-3-5 20:26 编辑 ]

是不是“>=”的问题？这两个符号必须是ASCII字符，且中间不能存在空格。

4楼正解~

do case .....endcase 与多个 if ....endif 都是多条件判断语句，但程序的运行顺序还是有区别的。
就上例而言用 if 可以写成
if dj>=3000
   ......
endif
if dj>=2000 and dj<3000
   ......
endif
if dj=<2000
   ......
endif
运行时，程序对每一个 if 语句都判断一次，看看是否符合条件。
而 case 语句则不同，当它找到第一个符合条件语句后，执行下面的命令，然后执行 endcase 。所以判断条件可以简化。
do case
case dj<2000
  ......
case dj<3000
  ......
otherwise
  ......
endcase
 

谢谢，但dj=val(dj) 是？

用 ACCEPT "请输入基本工资" TO dj 所获得的变量是字符串(字符型)，需转换为数值型。

case dj>=2000 and dj<=3000