VB选择结构.ppt

亲爱同学们：
请用以下句式造句

如果……就……否则……
程序的选择结构
----VB中的IF条件语句
二、If语句的基本格式及执行过程
块语句结构：

If 条件 Then
语句组1
Else
语句组2
End If
关系表达式（＞，＜,<>，<=，>=）；
逻辑表达式（NOT,AND，OR)
Else和语句组2可以省略
行语句结构：
If 条件 Then 语句组1 Else 语句组2
一行最多为255个字符
条件成立吗？
是
否
语句组1
语句组2
练****一、阅读下列的程序，完成程序框图，并分别写出当A=15和A=-9时程序的运行结果，说明程序的功能，并上机验证。
Private Sub Command1_Click()
Dim A AS Integer
A=InputBox(“请输入A的值”)
If A>=0 Then Print “Y=”;A Else Print “Y=”;-A
End Sub
A>=0？
是
否
输出Y=A
输出Y=-A
一、从制作矩形问题开始
张军找来了一条长度为L的铁丝，希望用来制作一个一个面积为S的矩形框。他问李明：这个矩形的长和宽应当各是多少，才能使制作出来的矩形框面积为指定的值呢？
一、从制作矩形问题开始
1、分析问题
设所求矩形的宽为X，根据题目的条件，矩形的周长是L，那么它的长与宽的和就是L/2，长应为L/2 –X。根据矩形的面积公式，则可以列出如下的方程：
X(L/2-X)=S
化简这个方程得
X^2-1/2*L*X+S=0
这是通过求根公式即可得出解答。
一、从制作矩形问题开始
1、设计算法
（1）输入铁丝的长度L；
（2）输入矩形的面积S；
（3）计算判别式D=L*L/4-4*S；
（4）如果D>=0，则
计算X1=(L/2+Sqr(D))/2
X2=(L/2-Sqr(D))/2
输出长和宽
否则
输出“找不到这样的矩形！”
结束如果
（5）结束。
Val(InputBox(“请输入铁丝的长度”))
翻译
Val(InputBox(“请输入矩形的面积”))
D=L*L/4-4*S
If
D>=0
Then
X1=(L/2+Sqr(D))/2
X2=(L/2-Sqr(D))/2
Print x1;x2
else
print“找不到这样的矩形！”
End if
End
作业一：某商场为了对苹果进行促销，。请设计一个程序计算购买X千克苹果的应付款。
作业要求：
1、程序应书写正确，符合题目要求，将计算矩形的长和宽及作业一均需要交，界面含两个命令按钮;
2、;
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
界面要求：
作业一：某商场为了对苹果进行促销，。请设计一个程序计算购买X千克苹果的应付款。
作业要求：
1、程序应书写正确，符合题目要求;
2、将工程文件和编译文件同时上交;
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
作业二：输入三个数a,b,c求出其中的最大数。
四、关系表达式
关系表达式：用关系运算符连接起来的式子。
关系运算符号有：
运算符号
=
>
>=
<
<=
<>
含义
等于
大于
大于等于
小于
小于等于
不等于
注意：关系运算符中的=和赋值语句中的=代表不同的含义。
读等于
读赋值