程序的基本结构(高二备课).pptVIP

1、顺序结构 Private Sub command1_Click() Dim a As Single Dim b As Single Dim c As Single a = val(text1.text) b = val(text2.text) c = a a = b b = c text1.text=a text2.text=b End Sub 学习目标 掌握顺序结构、选择结构两种基本结构。 能够使用这两种基本结构编写简单的程序解决具体问题。 基本结构 任何正规的程序都可以分解为三种基本结构：顺序结构、选择结构和循环结构。 程序的基本结构 ①顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。 ②选择结构：根据不同的条件判断来决定程序执行走向的结构。程序中有分支，没有重复。 2、选择结构 单分支选择结构 Private sub cmdOK_click() Dim v as single v=val(InputBox(“输入速度(km/s)”)) If v=7.91 then lblshow.caption=“飞船成功飞升！” Else lblshow.caption= “飞船不能升空！” End if End sub 多分支选择结构， 形式为 If 条件1成立 Then 语句块1 ElseIf 条件2成立Then 语句块2 … [Else 语句块 n+1 ] End If 当程序出现多分支选择时，用If语句比较烦琐，而使用多分支选择Select Case语句就方便多了。 例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格” 活学活用 编写程序，输入一个分数，如果大于60则输出“合格”，否则输入“不合格” 。 总结 顺序结构、选择结构不同之处： 练习 * * 开始 输入a,b c = a a = b b = c 输出a,b 结束 复习 顺序结构 IF语句有：单分支选择结构， 形式为 If 条件成立 Then 语句块 End If； 双分支选择结构， 形式为 If 条件成立 Then 语句1 Else 语句2 End If； If x mod 2=0 then Print “偶数” Else print “奇数” endif 例如： if x mod 2=0 then print “偶数” end if 选择结构形式语句 开始 输入速度V V=7.91 输出“飞船成功飞行！” 输出“飞船不能升空！” 结束 Y N X=t/(s*s) ’s为身高，t是体重 If x23 then Str=“您的体形偏胖” Elseif x19.5 then str=“您的体形偏瘦” else str=“您的体形很完美” endif Select case month Case 1,3,5,7,8,10,12 print “大月” Case 2 print “平月” Case else print “小月” End select Select case x mod 2 Case 0 print “偶数” Case 1 print “奇数” End select 语法格式为： Select Case 表达式的值 Case 情况1 语句块1 [Case 情况2 语句块2] …… [Case Else 语句块n] End Select 使用IF语句实现的程序段如下： If x=90 then Print 优秀 ElseIf x=80 Then Print 良好 ElseIf x=70 Then Print 中等 ElseIf x=60 Then Print 及格 Else Print 不及格 End If 使用Select Case语句如下： Select case x Case is=90 Lblshow.caption=”优秀” Case is=80