例6.5: 输入3个整数、按从大到小的顺序输出。 算法: (1)先将a与b比较,把小者放b中,大者放a。 (2)再将a与c比较,把小者放c中,大者放a中,此时 a 已是三者最大的。 (3)最后将b与c比较,大者放b中,小者放c中,此时 a、b、c已按从大到小的顺序排例好。 程序: inpnt "a,b,c,=";a,b,c if b>a then t=a a=b 交换a、b(swap a,b) b=t end if if c>a then t=a a=c 交换a、c(swap a,c) c=t end if if c>b then t=b b=c 交换b、c (swap b,c) c=t end if print a, b,c end 3、块if的嵌套
if then … if then … else … end if … else … end if 4、块IF中的ELSEIF格式
if then … else if then … else … end if end if
写成: if then … elseif then … else … end if
P125 改写为:
Input "m=";m If m<100 then d=0 elseif m<200 then d=0.01 elseif m<300 then d=0.02 elseif m<500 then d=0.03 elseif m<1000 then d=0.04 elseif m<2000 then d=0.05 else d=0.08 end if a=m*(1-d) print "amount=";a end
五、多分支选择语句
用嵌套的IF语句可实现多分支选择 1、基本格式
select case <变量> case <值1> <语句组1> case <值2> <语句组2> … case <值n> <语句组n> case else <语句组n+1> end select
每一个CASE句中指定一个值条件,当CASE变量的值符合条件时,执行该子句下面的语名组,在执行完该语句组后,跳过其它CASE子句,从END SELECT转出。
c=int(s/250)
2、在CASE子句中使用TO
CASE <值1> TO <值2>
3、在CASE子句中使用IS
CASE IS <关系运算符> <表达式>
4、在CASE子句中使用多个条件
允许在一个CASE子句中指定多个条件,各条件 之间用逗号分开。 条件=单值、值范围、单条件
5、SELECT CASE语句的一般格式
select case <测试表达式> case <条件11>,<条件12>,… <语句组1> case <条件21>,<条件22>,… <语句组2> … case <条件n1>,<条件n2>,… <语句组n> case else <语句组n+1> end select
六、多分支转移语句
格式:ON <算术表达式> GOTO <标号1>,<标号2>,… 七、多分支选择结构小结
1、IF-THEN-ELSE(用IF的嵌套) 分支(条件)较少时使用。 2、SELECT CASE 分支(条件)较多时使用。 3、ON GOTO 非结构化程序设计,不宜使用。
|