VB选择结构
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
X(L/2-X)=S
化简这个方程得
X^2-1/2*L*X+S=0
这是通过求根公式即可得出解答。
一、从制作矩形问题开始
1、设计算法
翻译
Байду номын сангаас
（1）输入铁丝的长度L；
Val(InputBox(“请输入铁丝的长度”))
（2）输入矩形的面积S；
Val(InputBox(“请输入矩形的面积”))
（3）计算判别式D=L*L/4-4*S；
Private Sub Command1_Click()
Dim h, w, b As Single
h = Val(InputBox("请输入你的身高："))
w = Val(InputBox("请输入你的体重："))
b = h - 100
If
Then Print "您的体重正常"
If w > 1.11 * b Then Print "您的体重偏重！"
判断条件： 年号（y）能被4整除，但不能被100整除；或者能被400整除
要求： 1、作业必须带有自己的个人标示 2、要包括两个按钮，一个计算体重一个判断闰年。
2、将工程文件和编译文件同时上交;
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
四、关系表达式
关系表达式：用关系运算符连接起来的式子。
关系运算符号有：
读等于
读赋值
注意：关系运算符中的=和赋值语句中的=代表不同的含义。
多重选择语句
例题二：输入身高h和体重w，判断体重状况
判断体重是否超标等的条件如下： 标准体重b（千克）＝身长（厘米）－100 正常体重 b-b×0.10 <=w<=b+b×0.10 偏重w>=b+b×0.11 偏瘦w<=b-b×0.11 （b表示标准体重）
结束如果
End if
（5）结束。
End
作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克 苹果的应付款。
作业要求：
1、程序应书写正确，符合题目要求，将计算矩形的长和宽及作业一均需要 交，界面含两个命令按钮;
2、将生成.exe文件上交;
小试牛刀(true or flase)
1、Not(3>7)的结果是？ Not(13>7)的结果是？
True
False
2、（3<8）And (5<10)的结果是什么？ （3<8）And (5>10)的结果是什么？
True
False
3、（0<5）Or (3<1)的结果是？ （5<0）Or (3<1)的结果是？
否
A>=0？
是
输出Y=-A
输出Y=A
一、从制作矩形问题开始
张军找来了一条长度为L的铁丝，希望用 来制作一个一个面积为S的矩形框。他问李 明：这个矩形的长和宽应当各是多少，才能 使制作出来的矩形框面积为指定的值呢？
一、从制作矩形问题开始
1、分析问题
设所求矩形的宽为X，根据题目的条件，矩形的周长是L，那么它 的长与宽的和就是L/2，长应为L/2 –X。根据矩形的面积公式，则可 以列出如下的方程：
True
False
五，逻辑运算的顺序
（1）当条件中只有逻辑运算符时，运算的顺序为：Not、 And、Or。
（2）当条件中既有算术运算符，又有关系运算符和逻辑 运算符时，运算顺序是：算术运算>关系运算>逻辑运算。
作业：P48 实践：判断某一年是否为闰年
①、普通年能整除4且不能整除100的为闰年。（如2004年就是闰年） ②、世纪年能整除400的是闰年。(如2000年是闰年，1900年不是闰年)
If w < 0.89 * b Then Print "您的体重偏瘦！"
If h <= 0 Or w <= 0 Then Print "输入错误，请重新输入"
End Sub
五，逻辑表达式
逻辑表达式：用逻辑运算符连接起来的式子。
逻辑运算符： Not(非) 取操作数相反的值。即当操作数为假（False）时，结果为真（True）; 当操作数为真（True）时，结果为假（False）。 And(与) 当两个操作数都为真时，结果才为真。 Or（或）当两个操作数都为假时，结果才为假。
语句组2
一行最多为 255个字符
行语句结构： If 条件 Then 语句组1 Else 语句组2
条件成立吗？
是 语句组1
练习一、阅读下列的程序，完成程序框图，并分别写出当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
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
界面要求：
作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克 苹果的应付款。
作业二：输入三个数a,b,c求出其中的最大数。
作业要求：
1、程序应书写正确，符合题目要求;
D=L*L/4-4*S
（4）如果D>=0，则 计算X1=(L/2+Sqr(D))/2 X2=(L/2-Sqr(D))/2 输出长和宽
If D>=0 Then
X1=(L/2+Sqr(D))/2
X2=(L/2-Sqr(D))/2
Print x1;x2
否则 输出“找不到这样的矩形！”
else print“找不到这样的矩形！”
亲爱同学们：
请用以下句式造句
如果……就……否则……
程序的选择结构
----VB中的IF条件语句
二、If语句的基本格式及执行过程
块语句结构： 关系表达式（＞，＜,<>，<=，>=）； 逻辑表达式（NOT,AND，OR)
If 条件 Then
语句组1 Else
Else和语句组 2可以省略
否
语句组2
End If
化简这个方程得
X^2-1/2*L*X+S=0
这是通过求根公式即可得出解答。
一、从制作矩形问题开始
1、设计算法
翻译
Байду номын сангаас
（1）输入铁丝的长度L；
Val(InputBox(“请输入铁丝的长度”))
（2）输入矩形的面积S；
Val(InputBox(“请输入矩形的面积”))
（3）计算判别式D=L*L/4-4*S；
Private Sub Command1_Click()
Dim h, w, b As Single
h = Val(InputBox("请输入你的身高："))
w = Val(InputBox("请输入你的体重："))
b = h - 100
If
Then Print "您的体重正常"
If w > 1.11 * b Then Print "您的体重偏重！"
判断条件： 年号（y）能被4整除，但不能被100整除；或者能被400整除
要求： 1、作业必须带有自己的个人标示 2、要包括两个按钮，一个计算体重一个判断闰年。
2、将工程文件和编译文件同时上交;
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
四、关系表达式
关系表达式：用关系运算符连接起来的式子。
关系运算符号有：
读等于
读赋值
注意：关系运算符中的=和赋值语句中的=代表不同的含义。
多重选择语句
例题二：输入身高h和体重w，判断体重状况
判断体重是否超标等的条件如下： 标准体重b（千克）＝身长（厘米）－100 正常体重 b-b×0.10 <=w<=b+b×0.10 偏重w>=b+b×0.11 偏瘦w<=b-b×0.11 （b表示标准体重）
结束如果
End if
（5）结束。
End
作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克 苹果的应付款。
作业要求：
1、程序应书写正确，符合题目要求，将计算矩形的长和宽及作业一均需要 交，界面含两个命令按钮;
2、将生成.exe文件上交;
小试牛刀(true or flase)
1、Not(3>7)的结果是？ Not(13>7)的结果是？
True
False
2、（3<8）And (5<10)的结果是什么？ （3<8）And (5>10)的结果是什么？
True
False
3、（0<5）Or (3<1)的结果是？ （5<0）Or (3<1)的结果是？
否
A>=0？
是
输出Y=-A
输出Y=A
一、从制作矩形问题开始
张军找来了一条长度为L的铁丝，希望用 来制作一个一个面积为S的矩形框。他问李 明：这个矩形的长和宽应当各是多少，才能 使制作出来的矩形框面积为指定的值呢？
一、从制作矩形问题开始
1、分析问题
设所求矩形的宽为X，根据题目的条件，矩形的周长是L，那么它 的长与宽的和就是L/2，长应为L/2 –X。根据矩形的面积公式，则可 以列出如下的方程：
True
False
五，逻辑运算的顺序
（1）当条件中只有逻辑运算符时，运算的顺序为：Not、 And、Or。
（2）当条件中既有算术运算符，又有关系运算符和逻辑 运算符时，运算顺序是：算术运算>关系运算>逻辑运算。
作业：P48 实践：判断某一年是否为闰年
①、普通年能整除4且不能整除100的为闰年。（如2004年就是闰年） ②、世纪年能整除400的是闰年。(如2000年是闰年，1900年不是闰年)
If w < 0.89 * b Then Print "您的体重偏瘦！"
If h <= 0 Or w <= 0 Then Print "输入错误，请重新输入"
End Sub
五，逻辑表达式
逻辑表达式：用逻辑运算符连接起来的式子。
逻辑运算符： Not(非) 取操作数相反的值。即当操作数为假（False）时，结果为真（True）; 当操作数为真（True）时，结果为假（False）。 And(与) 当两个操作数都为真时，结果才为真。 Or（或）当两个操作数都为假时，结果才为假。
语句组2
一行最多为 255个字符
行语句结构： If 条件 Then 语句组1 Else 语句组2
条件成立吗？
是 语句组1
练习一、阅读下列的程序，完成程序框图，并分别写出当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
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
界面要求：
作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克 苹果的应付款。
作业二：输入三个数a,b,c求出其中的最大数。
作业要求：
1、程序应书写正确，符合题目要求;
D=L*L/4-4*S
（4）如果D>=0，则 计算X1=(L/2+Sqr(D))/2 X2=(L/2-Sqr(D))/2 输出长和宽
If D>=0 Then
X1=(L/2+Sqr(D))/2
X2=(L/2-Sqr(D))/2
Print x1;x2
否则 输出“找不到这样的矩形！”
else print“找不到这样的矩形！”
亲爱同学们：
请用以下句式造句
如果……就……否则……
程序的选择结构
----VB中的IF条件语句
二、If语句的基本格式及执行过程
块语句结构： 关系表达式（＞，＜,<>，<=，>=）； 逻辑表达式（NOT,AND，OR)
If 条件 Then
语句组1 Else
Else和语句组 2可以省略
否
语句组2
End If