第4章VB编程基础ppt课件.ppt

《第4章VB编程基础ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章VB编程基础（3）(P51-60)知识点回顾算法组成操作控制结构算法的三种基本结构顺序结构选择结构循环结构条件语句1语句2YN条件YN语句组条件语句组YN任务1计算函数M(x)的值。函数M(x)为：x≤ax>a问题：选择操作的实现通过语句或函数来实现。(P51页）1、利用语句来实现选择操作If条件语句SelectCase语句2、利用函数来实现IIf条件函数choose函数知识点回顾类型运算符关系运算符=,>=,<=,>,<,<>逻辑运算符And,or,not例如：（1）写出实数a,b,c能构成三角形的条件。（2）1

2、选择操作P51单分支条件结构（If...Then语句）双分支结构（If...Then...Else语句）多分支结构（If...Then...ElseIf语句）If语句的嵌套语法格式：（1）If条件表达式Then语句块（2）If条件表达式Then语句块EndIf单分支条件结构（If...Then语句）应用1计算函数M(x)的值。函数M(x)为：x≤ax>a应用2输入三个数a、b、c，求出其中最大数应用3输入三个数，将它们从大到小排序语法格式;(1）If条件1Then[程序段1]Else[程序段2]EndIf（2）If条件then语句1else语句2双

3、分支结构（If...Then...Else语句）应用1计算函数M(x)的值。函数M(x)为：x≤ax>a应用2从文本框中输入一个整数,单击”判断”按钮判断它能否同时被3,5整除,若能整除,则用消息框显示”能同时被3,5整除”,否则用消息框显示”不能整除”。问题有一个函数：x<11≤x<10x≥10If条件1Then[语句块1]ElseIf条件2Then[语句块2]…Else[语句快n]EndIf多分支结构（If...Then...ElseIf语句）思考将学生成绩分为优(90~100分)、良(80~89)、中(70~79)、及格(60~69)、不及格

4、五个档次，输入学生的成绩，输出对应的档次。PrivateSubCommand1_Click()Dimgrade!grade=Val(Text1.Text)Ifgrade>=90Andgrade<=100ThenText2.Text="优"ElseIfgrade>=80ThenText2.Text="良"ElseIfgrade>=70ThenText2.Text="中"ElseIfgrade>=60ThenText2.Text="合格"ElseText2.Text="不合格"EndIfEndSub应用1、输入一个整数I,判断其是否是水仙花数.所谓水水

5、仙花数是指一个三位整数各位数字之立方和等于该数本身.例如153=13+53+33,所以153是水仙花数.2、某商店对购货额为1000元以上的(含1000元下同),八折优惠;500元以上1000元以下的,九折优惠;200元以上500元以下的,九五折优惠;100元以上200元以下的,九七折优惠;100元以下的,不优惠.编写程序,输入购货额,计算优惠款,打印输出货款.If语句的嵌套思考求一元二次方程ax2+bx+c=0实根利用selectcase多分支操作语法结构是：SelectCase测试表达式(条件)Case表达式列表1[语句块1][Case表达式列

6、表2语句块2]……[CaseElse[语句块n]]EndSelect执行流程框图：表列表1块1CaseELSE默认块计算测试表达值表列表2表列表n块2块N（1）计算<测试表达式>的值（2）将<测试表达式>的值与Case语句中的<表达式列表>中的每一个值逐一进行比较。如果与其中的一个值相匹配，则执行该语句中的<语句块>。如果不止一个Case与<测试表达式>相匹配，则只对第一个匹配的Case执行与之相关联的<语句块>。如果在表达式列表中没有一个值与测试表达式相匹配，则执行CaseElse子句（此项是可选的）中的语句。最后执行EndSelect语句。表列

7、表取值的表示（1）具体常数例:"A”（2）一组枚举表达式(用逗号分隔)例如：2,4,6,8（3）表达式1To表达式2(连续的数据范围)例如：60To100（4）Is<关系运算符><表达式>例如：Is<60（5）以上的混合表示思考输入系数a,b,c,求二次方程ax2+bx+c=0实根要求：（1）利用多分支的IF语句实现（2）selectcase语句实现（3）对比两个语句的实现机制PrivateSubForm_Click()Dima!,b!,c!,d!,x1!,x2!a=Val(InputBox("请输入系数a"))b=Val(InputBox("请输

8、入系数b"))c=Val(InputBox("请输入系数c"))d=b^2-4*a*cIfd>0Thenx1=(-b+Sq