用QBasic语言编程 高手请进!!

Question

购物金额大于或等于200 打7折
购物金额大于或等于100 小于200 打8折
购物金额不足100元 不参与打折活动

用QBASIC语言编程 谢谢！ 主要是分析一下。

Answer 1

INPUT X
IF X>=200 THEN
Y=0.7*X
ELSEIF X>=100 THEN
Y=0.8*X
ELSE
Y=X
END IF
PRINT Y
END

我上机运行了，没有错误。
多分支有块形式的IF和SELECT CASE语句，都是对的。

Answer 2

INPUT X
IF X>=200 THEN
Y=0.7*X
ELSEIF X>=100 THEN
Y=0.8*X
ELSE
Y=X
END IF
PRINT Y
END

用SELECT CASE也可以

Answer 3

CLS
INPUT JQ '输入购物金额
SELECT CASE JQ
CASE IS JQ>=200
GWJE=JQ*0.7
CASE IS JQ>=100
GWJE=JQ*0.8
CASE IS JQ<100
GWJE=JQ
END SELECT
PRINT GWJE
END
(顺便说一下，二楼的，你光用IF……THEN……多分支，会影响程序速度，并且程序复杂，不如SELECT CASE多分支好用）
二楼的错了！少了一个END IF!
block if without end if！

参考资料：我 呀 ( ⊙ o ⊙ )！！！！

Answer 4

input M(金额）
if m<100 then
m=m
else if 100=<m and m=<200 then
m=0.8*m
else
m=0.7*m
end if
end if
print m
end
你看行不？