选择算法复习(上海高一信息科技用)

(上海高一信息科技用)

赋值语句的格式：

复习:

变量=表达式 或 控件名.属性=表达式(也可为输入语句)

VB的基本语句1、赋值语句 2、输入语句 3、输出语句 4、选择语句 5、循环语句

功能：将表达式的值赋给等号左边的变量 或控 件对象

输入语句:InputBox函数

输出语句: PRINT语句

(上海高一信息科技用)

问题引入:出租车计费问题

已知上海小型出租车营运价格： 1、小型出租车起租价为12元，起租里程为3公 里，超起租里程单价为每公里2.4元。 2、载客运距超过10公里，运营价格加价，超过 部分按起租里程单价加价50%。

分析： 12

x≤3 3<x≤10 Y= 12+(x-3)*2.4 12+7*2.4+(x-10)*2.4*1.5 x>10

要求：VB程序实现

(上海高一信息科技用)

1)平行分支：If- Else 结构y

VB选择语句if 条件 then 执行 A else 执行 B endif if 条件 then 执行 A endif

条件？执行A

n

执行B

2)下跳分支：If 结构 条件？ y

n

执行A

(上海高一信息科技用)

简单的分支例题例1:请任意输入两个不相等的数，并 输出其中较大数的流程图和程序？算法1: 用IF-ELSE方法:开始

If- Else语句编程

输入 a,b Y 输出 aa>b

N 输出 b

结束

dim a,b as single a=val(text1.text) b=val(text2.text) if a>b then print a else print b endif

(上海高一信息科技用)

简单的分支例题例2:请任意输入两个不相等的数，并写出其中较 大数的流程图和VB程序？算法2:用IF-Then开始

输入 a,ba<b Y N

a=b

输出 a结束

If- Then 语句编程 dim a,b as single a=val(text1.text) b=val(text2.text) if a<b then a=b endif print a

(上海高一信息科技用)

简单的分支例题例3:请写出输入任意两个不相等的数，并按 从大到小输出这两个数的VB程序？算法1: 用IF-ELSE方法:开始

输入 a,b Y 输出 a,b Na>b

输出 b,a

结束

If- Then 语句编程 dim a,b as single a=val(text1.text) b=val(text2.text) if a>b then print a,b else print b,a endif算法2:用IF-Then写写看

(上海高一信息科技用)

例4、任意输入三个不相 等的数,输出其中最大数开始 输入 a,b,c Y a>c ? Y max=a a>b ? N N N b>c ? Y max=b

max=c

输出 max 结束

VB程序 dim a,b,c,max as single a=val(text1.text) b=val(text2.text) c=val(text3.text) if a>b then if a>c then max=a else max=c 选择嵌套： endif 选择中套选择 else if b>c then max=b else max=c endif endif print max

(上海高一信息科技用)

出租车计费问题

流程图

起始

输入 x X>0 Y X<=3

N

Y

N X<=10 Y N

Y=12

Y=12+7*2.4+( Y=12+(x-3)*2.4 x-10)*2.4*1.5 输出 y结束