选择结构程序设计初步课件.ppt

《选择结构程序设计初步课件.ppt》由会员分享，可在线阅读，更多相关《选择结构程序设计初步课件.ppt（21页珍藏版）》请在三一办公上搜索。

1、3.13 选择结构程序设计初步,1,谢谢观赏,2019-8-23,读程序：指出错误,Dim h As SingleDim w As SingleDim b As Singleb = w / hh = Val(Text1.Text)w = Val(Text2.Text)Label4.Caption = Str(b),2,谢谢观赏,2019-8-23,读程序：指出错误,Private Sub Command2_Click() Label4.Caption = 你好中国End Sub,为什么没有任何显示？,3,谢谢观赏,2019-8-23,区分输入输出语句,输入：H=val(text1.text)输

2、出：Label3.caption=str(c)Text1.text=str(c)List1.add str(c),4,谢谢观赏,2019-8-23,算法的三种基本结构,顺序结构选择（分支）结构循环结构,5,谢谢观赏,2019-8-23,分支结构,【方式 2】,【方式 3】,【方式 1】,6,谢谢观赏,2019-8-23,块if结构If 条件 then 语句系列1End if,行if结构If 条件 then 语句,If len(sfz) 18 Then msgbox (请正确输入！)End If,If h = 0 Then msgbox (请正确输入！),7,谢谢观赏,2019-8-23,思考,

3、什么情况下会出现：“块if没有end if”？什么情况下不能用“行if”？,If len(sfz) 18 Then msgbox (请正确输入！) exit SubEnd If,8,谢谢观赏,2019-8-23,块if结构If 条件 then 语句系列1Else 语句系列2End if,行if结构If 条件 then 语句系列1 else 语句系列2,If Mid(sfz, 17, 1) Mod 2 = 0 Then s = s + 女Else s = s + 男End If,If Mid(sfz, 17, 1) Mod 2 = 0 Then s = s + 女 Else s = s + 男,

4、9,谢谢观赏,2019-8-23,块if结构If 条件 then 语句系列1Elseif 条件 then 语句系列2Else 语句系列3End if,If fs = 90 Then Label6.Caption = 优秀！ ElseIf fs = 60 Then Label6.Caption = 及格！ Else Label6.Caption = 不及格！ End If,10,谢谢观赏,2019-8-23,思考：,小于90并且大于等于60的表达式要怎么写？,fs = 60 and fs90,90 fs = 60,11,谢谢观赏,2019-8-23,思考：,fs = 60要不要写成”fs = 6

5、0 and fs90”?,If fs = 90 Then Label6.Caption = 优秀！ ElseIf fs = 60 Then Label6.Caption = 及格！ Else Label6.Caption = 不及格！ End If,12,谢谢观赏,2019-8-23,鸡兔同笼问题的研究,问题描述：一笼子里关着兔子和鸡，兔子和鸡共有h只，腿一共有L条，请你求出兔有几只，鸡有几只。要求：如果求出来的鸡或兔子数量不是自然数，那么显示“请输入正确数值”，并把几个输入文本框内容清空，否则分别输出鸡和兔的数量。以对话框的形式提示信息：Msgbox “请输入正确的总数与腿数”,13,谢谢观

6、赏,2019-8-23,鸡兔同笼流程图,14,谢谢观赏,2019-8-23,判断一个数是自然数,判断一个数是否为非负数,判断一个数x是非负整数,判断一个数x为是否为整数,如果 int(x)=x ,则 x就是一个整数。,方法一：如果x=0,则 x就是一个非负数。方法二：如果 abs(x)=x ,则 x就是一个非负数,如果int(abs(x)=x,则x就是自然数,15,谢谢观赏,2019-8-23,VB常用数学函数,16,谢谢观赏,2019-8-23,关系运算符:返回的值为True或False,A=10,False,True,True,False,True,False,17,谢谢观赏,2019-8

7、-23,课堂练习,a.若小于18则为营养状况较差b.若在18-23.9之间则为标准c.若大于23.9者，即可诊断为肥胖症营养过剩。,计算结果,提示,18,谢谢观赏,2019-8-23,基本要求,采用“块if”的写法。If语句中，不能出现“:”。让代码的缩进符合要求。,19,谢谢观赏,2019-8-23,进阶要求,20,谢谢观赏,2019-8-23,块if结构If 条件 then 语句系列1Else 语句系列2End if,块if结构If 条件 then 语句系列1End if,行if结构If 条件 then 语句,行if结构If 条件 then 语句系列1 else 语句系列2,小结,21,谢谢观赏,2019-8-23,