《vb78-选择与循环结构》由会员分享，可在线阅读，更多相关《vb78-选择与循环结构（26页珍藏版）》请在金锄头文库上搜索。
1、2.0 讲解实例,计算两个数的和、差、积、商 。 判断一个数是奇数还是偶数 判断一个年份是闰年还是平年 输入一个月份，输出季节的名称 计算器的设计 求1100的和 计算斐波那契数列,2.4 程序的三种控制结构,顺序结构 条件分支 If If then else Select Case 循环结构 For Next Do While|Until Loop While|Until While For Each Next,顺序结构,顺序结构 顺序结构是一个常用的程序结构，由一系列的语句组成，按照顺序的先后从上至下执行。 Dim a As Integer Dim b As Integer Dim sum
2、 As Integer a = 10 b = 20 sum = a + b MsgBox(“a+b=“ & sum) 如以上语句按照程序编写的顺序从上到下执行，最后输出结果“a+b=30”。,IF分支结构,第一种是单分支结构 IF条件表达式 Then 语句1 End If If username = “wmxing“ And password = “123456“ Then MsgBox(“验证通过！“) End If,第二种是双分支结构 If 条件表达式 Then 语句1 Else 执行语句2 End If 它表示：如果 条件表达式 值为True，那么就执行 语句1，否则执行语句2。 Dim
3、 scroe As Integer = 60 score = txtScore.Text If scroe =60 Then MsgBox(“及格“) Else MsgBox(“不及格“) End If,If第三种结构的语法为,If 条件表达式 Then 语句1 ElseIf 条件表达式 Then 执行语句2 ElseIf 条件表达式 Then 执行语句3 Else 执行语句n End If Dim score As Integer score = txtScore.Text If score 85 Then MsgBox(“优秀“) ElseIf score = 60 Then MsgBox
4、(“及格“) Else MsgBox(“不及格“) End If,例：输入一学生成绩，评定其等级。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以为“不合格”,使用IF语句实现的程序段如下： If x=90 then MsgBox “优秀“ ElseIf x=80 Then MsgBox “良好“ ElseIf x=70 Then MsgBox “中等“ ElseIf x=60 Then MsgBox “及格“ Else MsgBox “不及格“ End If,Select/Case分支结构,Select Case testexpres
5、sion Case condition_1 statements_1() Case Else statements_n End Select 示例 Dim Color As String = “Red“ Select Case Color Case “red“ MsgBox(“You selected red“) Case “blue“ MsgBox(“You selected blue“) Case “green“ MsgBox(“You selected green“) Case Else MsgBox(“Unknown“) End Select,condition_1: 单值： 60 枚
6、举 : 2, 4, 6, 8 范围： 60 to 100,使用select case语句来实现的程序段如下： Select Case x Case 90 to 100 MsgBox（ “优秀”） Case 80 to 89 MsgBox（ “良好”） Case 70 to 79 MsgBox （“中等”） Case 60 to 69 MsgBox （“及格”） Case Else MsgBox （“不及格”） End Select,选择结构的嵌套 在IF语句的Then分支和Else分支中可以完整地嵌套另一IF语句或Select Case语句，同样Select Case语句每一个Case分支中都
7、可嵌套另一IF语句或另一Select Case语句。下面是两种正确的嵌套形式： （1）IF Then if Then Else End If . Else . IF Then Else End If End IF,（2）IF Then Select Case Case IF Then Else End If Case. End Select . End IF,注意： 只要在一个分支内嵌套，不出现交叉，满足结构规则，其嵌套的形式将有很多种，嵌套层次也可以任意多。 对于多层IF嵌套结构中，要特别注意IF与Else的配对关系，一个Else必须与IF配结，配对的原则是：在写含有多层嵌套的程序时，建议使
8、用缩进对齐方式，这样容易阅读和维护。,循环结构 For/Next 1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,For/Next循环For/Next循环,编程计算：S=1+2+3+100 ； sum = 0 For i = 1 To N sum += i Next,Sum = 0 For i=N to 0 Step -1 sum = sum + I Next,形式1：（当型循环） Do While|Until 语句块 Exit Do 语句块 Loop,DoLoop循环语句,形式2：(
9、直到循环） Do 语句块 Exit Do 语句块 Loop While|Until ,Do UntilLoop执行过程 DoLoop Until执行过程,说明： （1）当使用While构成循环时，当条件为“真” 则反复执行循环体，当条件为“假”，则退出循环。 （2）当使用Until 构成循环时，当条件为“假”，则反复执行循环体，直到条件成立，即为“真”时， 则退出循环。,（3）在循环体内一般应有一个专门用来改变条件表达式中 变量的语句，以使随着循环的执行，条件趋于不成立 （或成立），最后达到退出循环。 （4）语句Exit Do的作用是退出它所在的循环结构，它只能 用在DO/Loop结构中，并且
10、常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。,WhileWend语句 使用格式如下： While Exit While Wend 说明：该语句的功能与Do While .Loop实现的循环完全相同。,例：用While Wend语句 编程计算：S=1+2+3+100 ；,While/End While 循环,示例 Sum = 0 i = 0 While (i = N) Sum += i i = i + 1 End While,循环的嵌套多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循
11、环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：,（1）For I=. For J=. . Next J Next I,（2）For I=. Do While/Until . . Loop Next I,（3）Do While. For J=. . Next J Loop,（4）Do While/Until. Do While/Until . . Loop Loop,对于循环的嵌套，要注意以下事项： (1) 内循环变量与外循环变量不能同名； (2) 外循环必须完全包含内循环，不能交叉； (3) 不能从循环体外转向循环体内，也不能从外循环转向内循
12、环. 正 确 错 误,For ii =1 To 10 For jj=1 To 20 Next ii Next jj,For ii =1 To 10 For ii=1 To 20 Next ii Next ii,For ii =1 To 10 For jj=1 To 20 Next jj Next ii,For ii =1 To 10 Next ii For ii =1 To 10 Next ii,4.4.5 几种循环语句比较,4.4.6 循环结构与选择结构的嵌套,在循环结构中可以完整嵌套选择结构即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内
13、，一个循环结构不允许出现在两个或两个以上的分支内。,（1）For I= IF Then End IF Next I,（6） IF Then For I= End IF Next I,（5）Select Case For I= Case Case Next I End Select,（3）For I= IF Then Next I End IF,（2）IF Then For I= Next I End IF0,（4）For I= Select Case Case Case End Select Next I,例如：打印九九乘法表. Dim i, j As Integer Dim se As String Dim g As Graphics = Me.CreateGraphics Dim drawFont As New Font(“Arial“, 16) Dim drawBrush As New SolidBrush(Color.Black) For i = 1 To 9 For j = 1 To 9 se = i & “ & j & “=“ & i * j g.DrawString(se, drawFont, drawBrush, (j - 1) * 17 * 6, i * 17) Next j Next i,
