粤教版信息技术选修1 2.2程序的顺序结构课件（共16张ppt）

课件16张PPT。程序的三种结构 顺序结构 选择结构 循环结构顺序结构的主要的三种语句形态赋值语句 输入（函数） 输出（过程）输入数据的两种方式1. 利用文本框输入的方式 如：r=val(text1.text) 2. 利用弹出对话框的方式输入 如：R=Inputbox(“输入圆的半径”）输出数据的两种主要方式1. 利用改变对象属性的方法 如： Text1.text=str(x*3.1416*r) label1.caption=“春节快乐” 2. 利用消息对话框的方法 如：Msgbox(“Hello”)格式1 (单分支结构) : IF <表达式> Then 语句块 End If 例：有两个数x 和y，比较它们的大小，若x小于y,则交换x和y 值，使得x大于y。 Private sub form_click( ) x = inputbox (“请输入x”) y = inputbox (“请输入y”) If x < y Then t = x x = y y = t End if print “x”; x , ”y”;y End sub 格式2 (双分支结构) :IF <表达式> Then <语句块1> Else <语句块2> End If 例：输出x、y两个数中值较大的一个。 Private sub form_click( ) x = inputbox (“请输入x”) y = inputbox (“请输入y”) If x > y Then print x else print y end if End sub 练习题：1.分析下面一段VB程序，该程序运行后y的值是（ ） x = 3 IF x > 3 Then y = x * x Else y = 2 * x End if A. 2 B. 3 C. 9 D.6 2. 若整形变量a的值为2，b的值为3，则在下列程序段运行后整形变量c的值为（ ） If a > 5 Then If b < 4 Then c = a – b else c = b – a Else If b > 3 Then c = a * b else c = a mod b End If A. 2 B. -1 C. 1 D. 6 求下列程序运行结果： Private Sub Command1_click ( ) Dim m , n As Integer m = 10 If m > = 8 then n = 6 * m Else n = 2 * m End if Print “n = ” ; n End sub 输出：2. Private Sub Command1_click ( ) Dim a , b ，m As Integer a = 3 ：b = 2 ：c = 1 (在VB中，将多个语句合在一行上的并行符是 ：) If a < b then m = a Else m = b End if If c < m Then m = c End if Print “m = ” ; m End sub 输出：m = 1 3. Private Sub Command1_click ( ) If （ 3- 2 ） > 2 then a = 10 Else If （10 / 2） = 6 Then a = 20 Else a = 30 End if End if Print a End sub 输出：30 格式3 (双分支结构) : IF 条件1 Then 语句块1 Else If 条件2 Then 语句块2 …… [ Else 语句块 n+1 ] End If 程序运行到Else If 语句时，依次判断条件，如果找到一个满足的条件，则执行它下面的语句块，然后跳到End If，执行后面的程序。如果列出的条件都不满足，则执行Else 语句后面的语句块；如果列出的条件都不满足，又没有Else 子句，则直接跳过End If ,不执行任何语句块。例题分析： 输入一学生的成绩，评定其等级。方法是： 90－100分为“优秀”，80－90分为“良好”，70－79分为“中等”，60－69分为“及格”，60分以下为“不及格”。 Private Sub Form _ click ( ) Dim x as single x = inputbox(“请输入要评估的成绩”) If x > = 90 Then Print “优秀” Else If x > = 80 Then Print “良好” Else If x > = 70 Then Print “中等” Else If x > = 60 Then Print “及格” Else print “不及格” End If End sub 当对一个表达式的不同取值情况作不同处理时，除了可以用ElseIf 语句外，还可以用Select Case 语句，有称为情况语句来实现，具体格式如下： Select Case 测试表达式 case 表达式列表1 语句块1 case 表达式列表2 语句块2 …… case 表达式列表n 语句块n [ case else 语句块n + 1] End select 下面用Select Case 语句来改写成绩鉴定程序,代码如下: Private Sub Form _ click ( ) Dim x as single x = inputbox(“请输入要评估的成绩”) Select Case x Case Is > = 90 Print “优秀” Case Is > = 80 ... ...