第3章结构化程序设计

Do While I<=5
Do While <条件>
2 True
关系语句实现的循环 Loop语句实现的循环
例3-5：编程求下式的值。 编程求下式的值。
四.循环语句
2、Do循环语句 Do循环语句 （2）Do Until… Loop
s = 1 + 2 + …… + 10
四.循环语句
2、Do循环语句 Do循环语句 （1）Do While… Loop
Do While <表达式 <表达式> 表达式> 语句块 [Exit Do] 语句块 Loop
4 False 语句1 …… 语句n 3 应有语句使条 件由True变 False. 1
求学生平均成绩的编程实现
算法描述 （1） “存放成绩和的变量sum”值赋0； （2）存放学生编号的变量I的值为1； 步继续处理， （ 3 ） 若 I<=5 ， 转第 （ 4 ） 步继续处理 ， 否则转第（ 否则转第（8）步； （ 4 ） 看到 （ 输入 ） 第 I个人的成绩存放 到变量cj中； 相加， （ 5 ） 把 sum的值和变量 cj相加 ， 再存放 到sum变量中； 变量中； （6）学生序号I的值加1； （7）转第（ 转第（3）步； （8）sum的值除以5存放到变量aver中； （9）输出平均值aver。
1
1
四、循环语句 循环语句
3．For…Next循环语句 Next循环语句
For 循环变量=初始值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量]
（1）初值、 初值、终值和步长均是一个数值型变量， 终值和步长均是一个数值型变量，可 以是正值、 、负值或零， 以是正值 负值或零，也可以是整数或小数。 也可以是整数或小数。 步 长为1时可以省略。 时可以省略。 （2）终止循环的条件是循环变量的值“超过”终值 ，若“步长”是正值， 是正值，则“超过”的含义是大于， 的含义是大于，若“ 步长”是负值， 是负值，则“超过”的含义是小于。 的含义是小于。 （3）循环次数=(循环终值-循环初值) / 步长+1
•试凑法(也称为穷举法) •公鸡最多买19只，母鸡最多33只
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Cock, Hen, Chicken As Integer '分别存放公鸡、 分别存放公鸡、母鸡和小鸡数 Dim i As Integer = 0 '存放第几种方案 For Cock = 1 To 19 '公鸡数从1到19 For Hen = 1 To 33 '母鸡数从1到33 Chicken = 100 - Cock - Hen '小鸡数为100减去公鸡数和母鸡数 If (Chicken Mod 3 = 0) Then '小鸡数应能被3整除 If (Cock * 5 + Hen * 3 + Chicken / 3 = 100) Then i = i + 1 '方案号加1 TextBox1.Text = TextBox1.Text + "方案" + CStr(i) + " 公鸡 : " _ + CStr(Cock) + " 母鸡: " + CStr(Hen) + " 小鸡: " + _ CStr(Chicken) + Chr(13) + Chr(10) End If End If Next Hen Next Cock End Sub
If… If…Then… Then…ElseIf与Select Case语句示例
If Score >= 90 Then Grade = "A" ElseIf Score >= 80 And Score <= 89 Then Grade = "B" ElseIf Score >= 70 And Score <= 79 Then Grade = "C" ElseIf Score >= 60 And Score <= 69 Then Grade = "D" Else Grade = "E" End If
… … I=10
I=1
功能： 功能：首先求解条件表达式， 首先求解条件表达式，如果为False 如果为False， False，则执行一次循环 体，然后再对条件表达式求值， 然后再对条件表达式求值，若为False 若为False， False，再次执行循环 体，不断重复该过程， 不断重复该过程，直到条件表达式的值为True 直到条件表达式的值为True时停止 True时停止
本章重点： 本章重点： 赋值语句
应用教程（第2版） （Visual Basic 2008版） 第三章 结构化程序设计语句 基 本 语 句
条件语句
If…Then…Else If…Then…ElseIf Select Case For…Next 循环语句 Do While|/Until…Loop Do…Loop While|/Until
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m As Single, d As Single, Amount As Single 'm是购物款， 是购物款，d是折扣， 是折扣，Amount是应付款 m = Val(TextBox1.Text) '获取输入的购物款 If m < 250 Then '算出折扣数 d=0 ElseIf m < 500 Then d = 0.05 ElseIf m < 1000 Then d = 0.075 ElseIf m < 2000 Then d = 0.1 Else d = 0.15 End If Amount = m * (1 - d) '算出应付款 TextBox2.Text = CStr(Amount) '显示应付款 End Sub End Class
Select Case Score Case Is >= 90 Grade = "A" Case 80 To 89 Grade = "B" Case 70 To 79 Grade = "C" Case 60 To 69 Grade = "D" Case Else Grade = "E" End Select
。
2
四.循环语句
2、Do循环语句 Do循环语句 （3）Do … Loop While Do 语句块 [Exit Do] 语句块 Loop While <条件表达式> 功能： 功能：先执行一次循环体， 先执行一次循环体，然后求解条件表达式， 然后求解条件表达式，如果为 True， True，则再执行循环体， 则再执行循环体，不断重复该过程， 不断重复该过程，直到条件表达 式的值为False 式的值为False时停止 False时停止。 时停止。
四.循环语句
2、Do循环语句 Do循环语句 （4）Do … Loop Until Do 语句块 [Exit Do] 语句块 Loop Until <条件表达式>
Do Sum+=i i+=1 Loop While i<=10 Do Sum+=i i+=1 Loop Until i>10
功能： 功能：先执行一次循环体， 先执行一次循环体，然后求解条件表达式， 然后求解条件表达式，如果为 False， False，则再执行循环体， 则再执行循环体，不断重复该过程， 不断重复该过程，直到条件表达 式的值为True 式的值为True时停止循环 True时停止循环。 时停止循环。
一、赋值语句
[格式1] 格式1]： 1]：变量名= 变量名=表达式 功能] 将表达式的值赋值给变量。 [功能 ]：将表达式的值赋值给变量 。 格式2] 2]： 对象. 属性名= [格式 2] ：对象 .属性名 =表达式 功能] 将表达式的值赋值给对象的属性。 [功能 ]：将表达式的值赋值给对象的属性 。 TextBox1.Text="欢迎您 欢迎您！ TextBox1.Text=" 欢迎您 ！" a=3.5 可在“=”赋值符号前加上其他运算符， 赋值符号前加上其他运算符，构成复合赋值运算 符，主要有： 主要有：+=、 +=、*=、\=、/=、 /=、^=等 ^=等。 Num*=I+J '等价于 '等价于 Num=Num Num=Num*(I+J) Num*(I+J)
Do While <条件>
2 True 语句1 4 False …… 语句n 3
Do Until <条件>
2 False 语句1 4 True …… 语句n 3
Loop
Loop
前测型循环（ 前测型循环（允许0 允许0次）
Do
语句1 …… 语句n
Do
语句1 …… 语句n
Loop While <条件>
Loop Until <条件>
二、If条件语句
2．多分支选择结构 If… If…Then… Then…ElseIf与Select Case语句
If （条件1） Then [Then 语句块1] ElseIf （条件2）Then [ElseIf 语句块2] …… ElseIf （条件n）Then [ElseIf 语句块n] Else [Else 语句块] End If Select Case 表达式 Case 值1 [满足值1的语句块] Case 值2 [满足值2的语句块] …… Case 值n [满足值n的语句块] Case Else [不满足以上值的语句块] End Select