[物理]第5讲 程序的基本结构.pptVIP

内 容 5.1 顺序结构 5.2 选择结构 5.3 循环结构 5.4 辅助控制语句 5.1 顺序结构 5.1.1 赋值语句 5.1.1 赋值语句 5.1.1 赋值语句 5.2 选择结构 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.1 If语句 5.2.2 Select Case语句 5.2.2 Select Case语句 5.2.2 Select Case语句 5.2.2 Select Case语句 5.2.2 Select Case语句 5.2.2 Select Case语句 5.3 循环结构 5.3.1 For…Next循环 5.3.1 For…Next循环 5.3.1 For…Next循环 5.3.1 For…Next循环 5.3.1 For…Next循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.3 Do…Loop循环 5.3.5 循环的退出 5.4 辅助控制语句 5.4.1 GoTo 语句 5.4.1 GoTo 语句 5.4.1 GoTo 语句 5.4.1 GoTo 语句 [ Case 表达式列表2 语句块2 … Case 表达式列表n 语句块n] [Case Else 语句块n+1] End Select Select Case语句的功能是： 进入Select Case语句先计算测试表达式的值，然后依照这个值去依次向下与各Case子句后面表达式列表中的值比较，若有相匹配的就执行相对应的语句，之后转去执行End Select下面的语句。当有多个相匹配的Case子句存在时，只执行首先遇到的Case子句，其后的均不再执行。 如果没有一个相匹配的Case子句存在，再看是否存在Case Else子句，若存在就转去执行它下面的语句，然后执行End Select下面的语句。否则就直接执行End Select下面的语句。 Select Case语句的执行流程如图5-5所示。 图5-5 Select Case语句执行流程图 【例5-6】用Select Case语句来实现例5-7。 程序代码如下： Private Sub Form_Click() Dim score As Integer score = Val(InputBox(输入成绩)) Select Case score Case 90 To 100 Print score=; score, 优秀 Case 80 To 89 Print score=; score, 良好 Case 70 To 79 Print score=; score, 中等 Case 60 To 69 Print score=; score, 及格 Case 0 To 59 Print score=; score, 不及格 Case Else MsgBox 输入成绩错误！ End Select End Sub 在实际工作中，常遇到一些操作过程不太复杂，但又需要反复进行相同处理的问题。比如，显示一个多行的重复图形；统计本单位所有人员的工资；求全班同学各科的平均成绩等。这些问题的解决逻辑上并不复杂，但如果单纯用顺序结构来处理，那将得到一个非常乏味且冗长的程序。 要想方便地解决这类问题，最好的办法就是用循环语句。所谓循环就是重复地执行一组语句。 For…Next循环适用于循环次数已知的循环，属于计数循环。 For循环的一般格式如下： For 循环变量=初值 To 终值 [Step 步长] [循环体] Ne