山东省实验中学高一信息技术程序的基本结构课件新人教版

程序的基本结构 学科网
顺序结构 选择结构（分支结构） 循环结构
顺序结构
顺序结构程序的执行是从第一个可执行语句开 始，一个语句接一个语句地依次执行，直到程序结 束语句为止。顺序结构程序中的任何一个可执行语 句，在程序运行过程中，都必须运行一次，而且也 只能运行一次。
顺序结构的图示：
例：两个数的交换
分析问题： 设买苹果的重量为x千克，应付款为y元，
如果x>=2，则y=1.5*x*0.8；否则y=1.5*x。
设计算法： ①输入 x的值 ②如果 x>=2 ， 则y=1.5*x*0.8 ③否则 y=1.5*x ④输出 y的值
编写程序：
Private Sub Form_Click() Dim x As Single, y As Single x = InputBox( 请输入购买苹果的重量)
有一分数序列： 2/1,3/2,5/3,8/5,13/8,21/13, … 编写程序求出这个数列的前 20 项之和。
Dim a As Integer, b As Integer, t As Integer, i As Integer
Dim s As Single
a=2
学科网
b=1
s=0
For i =1 To 20
MsgBox CStr(y) & 年是闰年, vbOKOnly, 计算闰年 Else
MsgBox CStr(y) & 年是平年, vbOKOnly, 计算闰年 End If
Select Case语句的格式是：
Select Case <变量名> Case <情况1> 语句组1 [Case <情况2> 语句组2 Case <情况3> 语句组3 …… Case Else 语句组n]
End Select
输入一个成绩，如果90分以上，则输出“优秀”；80-89， 则输出“良好”；70-79，则输出“中等”；60-69，则输 出“及格”；60分以下则输出“不及格”，请编写程序。
Dim x As Single X = Inputbox(“请输入学生成绩” )
Select case X Case Is>=90 Print ”优秀” Case 80 to 89 Print ”良好” Case 70 to 79 Print ”中等” Case 60 to 69 Print ”及格” Case else Print ”不及格”
If x >= 2 Then y = 1.5 * x * 0.8
Else y = 1.5 * x
End If Print 应付款; y; 元 End Sub
随机产生一个100以内的自然数，判断其 奇偶性。
Randomize
学科网
Dim i As Integer i = CInt(Rnd * 100 + 1) If i Mod 2 = 0 Then
Dim a As Integer, b As Integer, max As Integer a=InputBox( “输入 a 的值：” ) b=InputBox( “输入 b 的值：” ) If _____ Then
max= _____ Else
max= _____ End If Print max
Private Sub Form_Click() Dim a As Single Dim b As Single Dim c As Single a = InputBox( 输入的a值：) b = InputBox( 输入的b值：) c=a a=b b=c Print 交换后a=; a, b=; b End Sub
练习 1、编程计算 1+2+3+…+100 的值
Dim s As Integer ,i As Integer s = ____ For i =____ To ____ Step ____
s=s+i Next i Print s
思考：计算1到100之间所有奇数（偶数）的和呢？ 计算1-2+3-4+5-6+…+99-100的值呢？ 计算100！？
上机作业：P33 实践(2)
提示：
? 用交互函数 InputBox() 接受用户输入出生日期 ? 用日期函数 Date()取出系统的当前日期
选择结构
选择结构程序就是在程序运行中对程序的走 向进行选择，以便决学科网 定执行哪一种操作。最常用 的语句有If语句和Select Case语句。
选择结构的图示：
注意：
① For 语句与 Ne学科x网 t 语句必须成对出现，而且 它们中间的“循环变量”必须是同一个变量， 如本例中均为 i ； ②循环变量的初值、终值、步长都是数值型； 初值和终值只用于限定循环控制变量的取值的 范围；步长值可正可负，省略[Step 步长]时， 默认步长为1。
完善程序：比较两个数的大小，并输出最大数。
Print 数 & Str(i) & 是偶数 Else
Print 数 & Str(i) & 是奇数 End If
ห้องสมุดไป่ตู้年判断程序
Dim y As Integer y = Val(InputBox( 输入年份)) If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then
s = s + a/b
t=a
a=a+b
b=t
Next i
Print “这个数列的前 20 项之和：” , s
End select
循环结构
For…Next循环语句格式： For 循环变量＝初值 To 终值 [Step 步长]
[循环体] Next [循环变量]
功能：当循环控制变量的值在初值和终值所 限定的范围内时，执行循环体。
执行流程图：
循环变量＝初值
Y
循环变量是否超出终值
N
循环体
循环变量＝循环变量＋步长
一般语法是： If <条件> Then <语句>
或 If <条件> Then <语句> Else <语句> End If
可以在Else里再嵌套If语句，如： If <条件> Then
<语句> Else
If <条件>Then <语句> Else <语句> ………
End If End If
例：某商场为了对苹果进行促销，规定 购买2千克以上可以在原价每千克1.5元 的基础上打8折。请设计一个程序计算 购买x千克苹果的应付款。