VB选择结构.ppt

《VB选择结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、亲爱同学们：请用以下句式造句如果……就……否则……程序的选择结构----VB中的IF条件语句二、If语句的基本格式及执行过程块语句结构：If条件Then语句组1Else语句组2EndIf关系表达式（＞，＜,<>，<=，>=）；逻辑表达式（NOT,AND，OR)Else和语句组2可以省略行语句结构：If条件Then语句组1Else语句组2一行最多为255个字符条件成立吗？是否语句组1语句组2练习一、阅读下列的程序，完成程序框图，并分别写出当A=15和A=-9时程序的运行结果，说明程序的功能，并上机验证。PrivateSubComm

2、and1_Click()DimAASIntegerA=InputBox(“请输入A的值”)IfA>=0ThenPrint“Y=”;AElsePrint“Y=”;-AEndSubA>=0？是否输出Y=A输出Y=-A一、从制作矩形问题开始张军找来了一条长度为L的铁丝，希望用来制作一个一个面积为S的矩形框。他问李明：这个矩形的长和宽应当各是多少，才能使制作出来的矩形框面积为指定的值呢？一、从制作矩形问题开始1、分析问题设所求矩形的宽为X，根据题目的条件，矩形的周长是L，那么它的长与宽的和就是L/2，长应为L/2–X。根据矩形的面积公式

3、，则可以列出如下的方程：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))/2X2=(L/2-Sqr(D))/2输出长和宽否则输出“找不到这样的矩形！”结束如果（5）结束。Val(InputBox(“请输入铁丝的长度”))翻译Val(InputBox(“请输入矩形的面积”))D=L*L/4-4*SIfD>=0T

4、henX1=(L/2+Sqr(D))/2X2=(L/2-Sqr(D))/2Printx1;x2elseprint“找不到这样的矩形！”EndifEnd作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克苹果的应付款。作业要求：1、程序应书写正确，符合题目要求，将计算矩形的长和宽及作业一均需要交，界面含两个命令按钮;2、将生成.exe文件上交;3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。界面要求：作业一：某商场为了对苹果进行促销，规定购买2千克以上

5、可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克苹果的应付款。作业要求：1、程序应书写正确，符合题目要求;2、将工程文件和编译文件同时上交;3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。作业二：输入三个数a,b,c求出其中的最大数。四、关系表达式关系表达式：用关系运算符连接起来的式子。关系运算符号有：运算符号=>>=<<=<>含义等于大于大于等于小于小于等于不等于注意：关系运算符中的=和赋值语句中的=代表不同的含义。读等于读赋值多重选择语句问题一：今天上课吗？如果输入7的整数时，提示：恭喜你，今

6、天可以休息了！如果输入小于0或者大于7的整数时，提示：不好意思，输入错误！如果输入大于等于1与小于7的整数时，提示：oh,mygod！今天还要上课！例题二：输入身高h和体重w，判断体重状况判断体重是否超标等的条件如下：标准体重b（千克）＝身长（厘米）－100正常体重b-b×0.10<=w<=b+b×0.10偏重w>=b+b×0.11偏瘦w<=b-b×0.11（b表示标准体重）PrivateSubCommand1_Click()Dimh,w,bAsSingleh=Val(InputBox("请输入你的身高："))w=Val(Inp

7、utBox("请输入你的体重："))b=h-100IfThenPrint"您的体重正常"Ifw>1.11*bThenPrint"您的体重偏重！"Ifw<0.89*bThenPrint"您的体重偏瘦！"Ifh<=0Orw<=0ThenPrint"输入错误，请重新输入"EndSub五，逻辑表达式逻辑表达式：用逻辑运算符连接起来的式子。逻辑运算符：Not(非)取操作数相反的值。即当操作数为假（False）时，结果为真（True）;当操作数为真（True）时，结果为假（False）。And(与)当两个操作数都为真时，结果才为真。Or（或

8、）当两个操作数都为假时，结果才为假。小试牛刀(trueorflase)1、Not(3>7)的结果是？Not(13>7)的结果是？TrueFalse2、（3<8）And(5<10)的结果是什么？（3<8）And(5>10)的结果是什么？TrueFalse3、（0<