第3章结构化程序设计语句.

i=i+1
Else Exit For
End If
Next If (i < count) Then
Console.WriteLine(count & "不是素数")
Else Console.WriteLine(count & "是素数") End If
3.2 练习
输出1到100之间的素数。（答案： 答案为2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 ）
练习
输入三个数，按升序输出。 (答案3-3)
求一个三位数的各位数字和。 例如：123的各位数字和＝1＋2＋3＝6。 判断某一年是否是闰年。（回家作业）
3.1.3 Select Case语句
[格式]：Select Case <表达式> Case <表达式列表1> <语句块1> Case <表达式列表2> <语句块2> … Case <表达式列表n> <语句块n> [Case Else <语句块n+1>] End Select
例题2的答案
Dim i, count As Integer count = 0
For i = 1 To 100 Step 2 count = count + i Next Console.WriteLine("从1到100的奇数 相加的结果为：" & count)
作业
我国古代数学家在《算经》中出了一道题： “鸡翁一，值钱五；鸡母一，值钱三；鸡 雏三，值钱一。百钱买百鸡，问鸡翁、母、 雏各几何？”意为：公鸡每只5元，母鸡 每只3元，小鸡3只1元。用100元买100只 鸡，问公鸡、母鸡、小鸡各多少？
3.1 理论介绍
3.1.1流程图
真 成绩>60
条件用菱形表示
假
是及格的成绩
是不及格的成绩 状态用矩形表示
练习：写出以下的流程图
1、男的，举左手；女的，举右手。
2、成绩大于60分，及格；小于60分，不及格。 3、函数 -1 (x<0)

y=
{
0 (x=0)
1(x>0） 4、判断某一年是否是闰年。（作业）
6．For…Next循环语句
[格式]：For <循环变量> =<初值> To <终值 > [Step <步长>] <循环体> Next <循环变量>
赋初值
For I = 1 to 100 step 2
dosth Next
练习：
用FOR语句重写1相加到100。 用FOR语句写1到100的奇数和。（讲解） 用FOR语句写1到100的偶数和。 输出1到100是3的倍数的数。（同时用到 了for与if语句）
3.3 上机练习重应用
3.3.1 上机练习一：求解一元二次方程的程 序
章节练习：
编程实现折半查找。
3.2Biblioteka Baidu作业
3.2.1 典型实例一：超市购物打折程序 【实例题目】 某超市为了促销，按购买货物的款数多少分别给予不同的 优惠折扣，具体折扣情况如下： 购物不足250元的，没有折扣； 购物满250元（含250元，下同）不足500的，减价5%； 购物满500元，不足1000的，减价7.5%； 购物满1000元，不足2000的，减价10%； 购物满2000元，减价15%。 请编写一个程序，用来根据输入的购物款计算出应付款。
函数 -1 (x<0) （点击代码）

y=
{
0 (x=0)
1(x>0）
请同学完成将x>0和x=0的判断嵌套在x>=0的分支中。
Dim x, y As Integer x = -10 If x <> 0 Then If x > 0 Then y=1 Else y = -1 End If Else y=0 End If Console.WriteLine("y = " & y)
4．用If…Then…ElseIf…Else…End If语 句实现多分支选择结构
[格式]：If <表达式1> Then <语句块1> ElseIf <表达式2> Then <语句块2> … ElseIf <表达式n> Then <语句块n> Else <语句块n+1> End If
【例3-4】 编写一个求成绩等级的程序。 要求输入一个学生的考试成绩，输出其分 数和对应的等级。共分五个等级：小于60 分的为“E”；60~69分为“D”；70~79分 为“C”；80~89分为“B”；90分以上为 “A”。
3.1.2 If条件语句
1．用If…Then…End If语句实现单分支选择结构 [格式1]：If <表达式> Then <语句块> End If [格式2]：If <表达式> Then<语句>
【例3-1】 编写一个程序实现如下功能：输入两 个数a和b，如果a比b小则交换它们的值。
2．用If…Then…Else…End If语句实现双分支 选择结构
【例3-5】 用Select Case语句重写例3-4。 练习：输入1~9,其中如果是1~3,输出 “小”;4~6,输出“中”;7~9输出“大”。
3.1.4 循环语句
1． “当型” While循环语句
含义：当满足某一条件时进行循环。 [格式]： While <表达式> <循环体> End While
Dim i, count As Integer i = 1 : count = 0 Do count = count + i i=i+1 Loop While I <= 100 Console.WriteLine("1加到100结果是" & count)
4．Do Until…Loop循环语句 [格式]：Do Until <表达式> <循环体> Loop 5．Do…Loop Until循环语句 [格式]：Do <循环体> Loop Until <表达式>
[格式]：If <表达式> Then < 语句块1> Else <语句块2> End If
练习
输入参数“男”，输出“先生你好！请举 左手”。输入参数“女”，输出“女士你 好！请举右手”。(3-2) 成绩大于60分，及格；小于60分，不及格。
3.嵌套控制结构
嵌套是指把一个控制结构放入另一个控制结构之内。
第3章 结构化程序设计语句
本章要点： 赋值语句的作用及其使用 If…Then…Else…End If语句的作用及其使用 If…Then…Else If…Else…End If语句的作用及 其使用 Select Case语句的作用及其使用 While循环语句的作用及其使用 四种Do…Loop循环语句的作用及其使用 For…Next循环语句的作用及其使用 Exit Do和Exit For语句的作用及其使用
2． “直到型”(DO型) Do While…Loop循环语
句
[含义] ：重复执行循环体，一直到指定的条件为假时 为止。 [格式]：Do While <表达式> <循环体> Loop 3．Do…Loop While循环语句 [格式]：Do
<循环体> Loop While <表达式>
练习：
Do While…Loop循环语句重写1加到100。
练习
高斯小时候曾很快就算出1加到100，你能 用计算机实现一次吗？（你的答案输出为： 1加到100结果为。。。）
Dim i, count As Integer i = 1 : count = 0 While i <= 100 count = count + i i=i+1 End While Console.WriteLine("1加到100结果是" & count)
3.1.5 Exit DO、Exit While和Exit For语句
例子：
求一个数是否素数。（素数就是大于1， 只能被1和它本身整除的正整数）。
Dim i, count As Integer
i = 1 : count = 23
For i = 2 To count If (count Mod i <> 0) Then