select case语句
【学习目标】
（一）在知识与技能方面
1、掌握select case语句的格式、功能和执行过程。
2、理解表达式列表的3种形式（，和to与is）。
3、学会使用select case语句来实现选择控制结构，解决实际问题。
（二）在过程与方法方面
1、初步掌握程序调试运行的方法。
2、初步掌握优化程序的方法
（三）在情感态度与价值观方面
1、经历计算机解决问题的过程，体验成功的快乐。
2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。【重点难点】
1、select case语句格式
2、表达式列表的3种形式
3、用select case语句解决实际问题
【教法学法】
问题教学法、讲练结合法
【学时】1学时
【教学环境】网络电脑室
引导学生分析上面程序存在的问题：
1、第1个程序用了5个if语句且条件表达式太复杂，书写容易出错。
2、在第2个程序中，用了4个if语句来处理5种情况，同时用到了if语句的嵌套
3、由于有if语句的嵌套及if语句过多，造成了程序可读性差，经常会出现“end if”配对错误或缺少“end if”。
那么如果我们再多一些情况，它的缺陷就会更加明显。
【教师引导】
有没有更简单一点的语句来解决这个问题，尽量避免出现上面的错误？
【引入】本节课的学习内容Select Case语句即可解决这种多情况的问题。
二、Select Case语句的格式
Select Case
语句是多分支语句，又称为多情况语句。
【教师展示】
1、Select Case
语句的格式
功能：根据“测
试表达式”的
值，
选择第一个符
合条件的语句
块执行。
2、说明：
···“测试表达式”可以是数值型或字符型；
···“测试表达式”和“表达式列表”的类型必须相同；
···“表达式列表”形式有以下3种：3、表达式列表的3种形式
【师生共同分析】
（1）用逗号隔
开的若干表达式
如：判断10以内整数的奇偶性 x=inputbox("输入一个整数") if x=1 or x=3 or x=5 or x=7 or x=9 then
print x; "这是奇数"
end if
select case
x
case 1，3，
5，7，9
print x; "这是
奇数"
case 2，4，
6，8，10
print x; "这是
偶数"
end select
（2）表达式1 To
表达式
2x=inputbox("
输入一个整数
")
select case if x>=80 and x<90 then print x; "该生成绩为良"
end if
x
case 80
to 89
x; "该生成绩为
良"
case 70
to 79
x; "该生成绩为
中"
end select
（3）Is 关系表
达式
x=inputbox("
输入一个整数
")
select case
x if x>=90 then print x ; "该生成绩为优" end if if x<60 then print x ; "该生成绩为不及格" end if
case
is>=90
x ; "该生成绩
为优"
case
is>=80
x ; "该生成绩
为良"
case
is<60
x ; "该生成绩
为不及格"
end select
【学生练习】
把刚才举例的“分数”问题用Select Case 语句改写一下，然后请同学来展示一下自己
的成果，同时比较一下自己与老师所写的程
序有什么不同。
【交流讨论】
1、is关系表达式在程序中的顺序可以调转吗？
2、Select Case语句的“测试表达式”“表达式列表”与if语句中“条件表达式”有什么时候不同？
【师生共同分析】
1、一个If语句要表示一种情况，而一个Select Case语句可以表示多个情况。
2、case中有很丰富的表达列表，如：①case 1，3，5表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句，if中要实现必须要用逻辑表达式来连接。②Case 10 to 20很容易来表示一个取值范围，即10到20之间的任何一个值时执行下面的语句，在if中就是一种复杂的条件。③Case is<=10表示小于或等于10时执行下面的语句，比条件if语句表示更加方便。
四、Select Case语句的执行流程
【师生共同小结】 Select Case语句的执行过程是：
先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，
执行顺序如下：
当测试表达式的值为表达式列表1时，执行语句组1；
当测试表达式的值为表达式列表2时，执行语句组2；
……
当测试表达式的值为表达式列表n时，执行语句组n；
当测试表达式的值不是上述值时，执行Case Else下面的语句组n+1；
然后执行End Select下面的语句。
【学生观察】教师逐语句运行程序，让学生观察程序的执行流程，加深理解。
四、作业
【学生活动】
求分段函数的值
【教师点评】点拨纠错学生做作业存在的问题附加题：输入一个整数，判别奇偶.
四、课堂小结
1、对于多种情况的选择问题，我们利用多重选择语句来实现。
2、select case语句的基本结构
3、“表达式”与“表达式列表”的类型必须一致及表达式列表的3种形式
（1）用逗号隔开的若干表达式（2）表达式1 To 表达式2 （3）Is 关系表达式
4、select case语句的执行流程
VB条件语句和循环语句 测试习题(满分100分) 班级姓名 一、根据程序写运行结果 1．写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(text1.text) IF X<0 THEN Y=ABS(X) ELSE Y= -X END IF PRINT "Y=";Y End sub 运行结果： (1)在text1中输入99 输出 (2)在text1中输入-23 输出 2. 写出下列程序的运行结果。(5分) Private sub command1_click N=1 FOR X=3 TO 10 STEP 3 N=N*2 NEXT X PRINT "N=";N End sub 运行结果： 3．写出下列程序的运行结果。(5分) Private sub command1_click S=0 FOR X=10 TO 1 STEP 4 S=S+X NEXT X PRINT " S=";S End sub(5分) 运行结果： 4.写出下列程序运行结果。 (5分) Private sub command1_click FOR I= 1 TO 5 step 2 PRINT I， NEXT I End sub 运行结果： 5. 写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(text1.text) IF X/2=Int(X/2) THEN S=X+1 ELSE S=X-1 END IF PRINT "S=";S End sub 若在text1中输入以下数字，运行结果： (1)99 (2)98 二、根据题意，完善下列程序。(每空5分) 1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。 Private sub command1_click A=VAL(text1.text) B=VAL(text2.text) IF A>B THEN MAX=________ ELSE MAX= ENDIF PRINT "MAX="；MAX End sub 2.求和S=1+3+5+7+…+99 Private sub command1_click S=0 FOR I=1 TO 99 STEP S=________ NEXT I PRINT “S=”；S End sub 3.完善下列程序，使其能求出 2+4+6+……+100之和。 Private sub command1_click FOR I =____ TO 100 STEP _____ S= S+I ______ I PRINT S End sub
《FOR循环语句》 一．教学目标 在教学过程中，充分发挥学生的主体作用、调动学生的学习积极性，有效地培养学生的分析问题、解决问题的能力，主要体现下面三个目标： 1、知识目标:通过FOR/NEXT语句的学习,理解循环过程，能写出简单的循环程序。 2、能力目标:培养学生分析问题，解决问题的能力。 3、情感目标:激发学生学习热情，培养学生学习的积极性。 二．教材分析 本节课的教学内容是信息技术选修模块一《算法与程序设计》中的第2章第4小节《程序的循环结构》,由for/next循环语句的基本结构及其执行过程还有练习题目三部分组成，是程序设计中的重点也是难点,后续的算法的设计教学，都要以此为基础。本节内容注重实例分析,通过教师的引导,让学生感受和领悟循环结构的执行方式，解决实际问题。 三．教学重难点 重点：掌握FOR/NEXT循环语句的格式，并能运用它来编写程序。 难点：解决问题的思路和方法（算法）,流程图制作,确定循环变量和循环体。四．教学过程 【现实生活中的实例】 设问:1+2+3+4+...+98+99+100=? 【引入】 循环的概念 循环结构是程序设计中的一种基本结构。当程序中出现需要反复执行相同的代码时，就要用到这种结构。循环结构既可以简化程序，又可以提高程序的效率。 在VB中实现循环结构的语句常用的有For…Next语句和Do…Loop语句。 【新课】 1.格式 For 循环变量＝初值To 终值[Step 步长] 循环体 Next 循环变量 2.说明 ·循环变量：亦称为循环控制变量，必须为数值型。 ·初值、终值：都是数值型，可以是数值表达式。 ·步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值应小于终值；若为负，初值应大于终值。但步长不能是0。如果步长是1， Step 1可略去不写。其值可以是实数，VB自动调整为整数。 ·循环体：在For语句和Next语句之间的语句序列。
一、VB 基本知识及选择、循环结构习题 一、基本概念题 （1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。 %100 1E1 123D3 123,456 0100 “ASDF” “” #2004/10/7# 100# π &O78 &H123 True T -1123! # （2）下列数据哪些是变量，哪些是常量是什么类型的常量 Name “name” False ff “11/16/99” cj “120” n #11/12/2004# （3） 下列符号中，哪些可以是Visual Basic 的合法变量名 A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic 表达式： （1）5||z y x ++ （2）6)1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6）110ln 45sin 10++++y x e （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int * 100 + / 100 （3）#11/22/2004# - 10 （4）"ZXY" & 123 & "abc" （6）设a=7，b=3，c=4，求下列表达式的值： （1）a + 3 * c （2）a ^ 2 / 4 （3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5 （7）写出下列函数的值： （1）Int （2）Fix （3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计") （5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2) （7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3) （9）Left("Hellow VB!", 3) （10）Val("16个加23个") （11）Str （12）UCase("Visual Basic") 二、 选择题 （1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是 。 B. Sin(25) C. Sin(25o) D. Sin(25*180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10
注：被中括号(“[”、“]”)括起来的都是可选参数！ For Each ... Next 语句： 语句格式 For Each Variant In Collection Or Array [Statement(s)] [Exit For] [Statement(s)] Next [Variant] 参数解释 Variant: 如果In后面是一个集合(Collection)，Variant可以是任何数据类型的一个变量；如果In后面是一个数组(Array)，Variant就只能是一个Variant变量。 Collection: 可以是任何一个对象集合。 Array: 可以是任何一个数组(Type数组除外)。 Statement(s): 可以是任何一句或多句语句。 Exit For: 可以强制退出循环体。 For Each ... Next 语句的作用 集合/数组里面有多少对象/多少维，For Each ... Next语句就会执行多少次Statement(s)。 Do ... Loop 语句： 语句格式 Do [{While | Until} Condition] [Statement(s)] [Exit Do] [Statement(s)] Loop [{While | Until} Condition] 参数解释 While: 如果While在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为False，就退出循环体；否则，执行Statement(s)；如果While在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为False，就退出循环体；否则，继续循环。 Until: 如果Until在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为True，就退出循环体；否则，执行Statement(s)；如果Until在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为True，就退出循环体；否则，继续循环。 Condition: 可以是任何一个表达式。
浙教版高一信息技术VB循环语句教学设计 省象山中学章婷红 315700 zthddsina. 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节容选自教育《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for 和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找
循环结构测试题（四）一：选择题 1以下（）是正确的for….nex结构 (A)for x=1 to step 10 (B)for x=3 to -3 step -3 next x (C ) for x=1 to 10 re: … . Next x If I=10 then goto re 2:下列循环语句能正常结束循环的是( ( A)I=5 do I=I+1 Loop until I<0 (C)I=10 do I=I-1 Loop until I<0 3:下面程序段的运行结果为() for I=3 to 1 step -1 print spc(5-I); next x (D) for x=3 to step 3 next y ) (B) I=1 do I=I+2 loop until I=10 (D) I=6 do I=I-2 loop until
for j=1 to 2*1-1 print “ *' next j print n ext I ___________________ l l _________________________________________________ 4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* * ) * * * * *_* * * * * * * * * private sub text1_cha nge() * * print text1.text; end sub 2:下面程序段显示=i(②)个“ * ”。 for j=1 to 4 For I=1 to n 5n* pri nt n For n =2j to I Print Next j Next I 3:下列第40句共执行了（ ③）次，第41句共执行（④ ）次 (A) ABCD (B) (D) A (C )AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的C ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j FO F X 语句循环执 行 pri nt n 20次，循环变量 for k=( next i ① )to -5 step — for I=1 to 4 for j=1 to I n=1 n=n*j 的 初值应当是: print n n ext i (B) ABCD (D) N=1 J=1 Do while j<=4 n=n*j pri nt n j=j+1 loop
课题：第6课循环结构之Do While-Loop、Do Loop-While语句第课时课型：新授授课时间 教学目标 知识与技能 1、了解循环的概念，理解循环结构的基本思想 2、掌握Do While Loop、Do Loop Until语句的基本结构及区别 3、理解Do While Loop、Do Loop Until语句的执行过程 4、尝试采用循环结构编写简单的程序，解决实际问题 过程与方法通过讲解分析、实践探究、归纳，逐步深化对循环思想和执行过程的理。情感态度与价值观 通过学习运用循环结构处理解决问题，培养学生应用循环思想解决实际问题 的思路和能力。 教学重点1、理解循环结构的基本思想 2、理解Do While Loop、Do Loop Until语句的执行过程 教学难点根据需要采用循环结构解决问题，并提炼出Do While Loop、Do Loop Until语句的基本结构学生理解Do While Loop、Do Loop Until语句的执行过程 教学 准备 几个以Do While Loop、Do Loop Until语句组成的不同功能的程序 教学过程设计 教学内容师生教学活动设计 备注栏 （学生笔记栏） 一、设疑导入（3分钟） 同学们，上节课我们学习了For Next语句，并且用For Next语句编写了“显示乘法口诀表”我们都知道要让计算机重复做一件事时，可以使用循环结构。像我们上节课当中知道乘法表是从一一得一到九九八十一的循环次数。而在现实生活中却有很多问题是事先不知道循环次数的。例如：甲同学每天都坚持写读书笔记300字，问：甲同学多长时间可以写完读书笔记30 万字？心算：一天300，十天3000,100天30000,10000天30万字。可见一件小事要是坚持做，可以完成多么宏大的工程。乙同学，也坚持每天写读书笔记300字，但是他对自己的要求要高一些，第二天总比前一天多写10个字，问乙同学多长时间读书笔记的字数可以超过30万字?心算！@#￥%&*（乱了！）像这样的例子我们事先也不知道是多少天，算起来也烦心，但是如果交给VB 先生的话，就很简单。下面让我们进入今天的主题——循环结构之Do While-Loop、Do Loop-While语句。 二、探索新知（4分钟）
浙教版高一信息技术VB循环语句教学设计 浙江省象山中学章婷红 315700 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节内容选自浙江教育出版社《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要求是：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要内容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要求是学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找出反复执行的事件，并找到其通式和变化规则，写出循环体语句。这对学生来说是有一定难度的，需要老师慢慢引导点拨。 四、教学目标 （一）知识与技能： 1、理解循环语句的作用，掌握FOR语句的基本格式；能看懂循环结构流程图的执行流程； 2、能根据循环语句的代码写出运行结果，尤其要比较熟练掌握累加器的作用；
信息技术第二十课 教学内容：vb 第六课 教学目标：知识与技能：1、设计程序流程图并学会用vb 语言表达 2、学生掌握循环结构Do 语句的使用 3、掌握程序设计的步骤，具备程序设计思想 过程与方法：从折纸实验出发，学生在共同探究中逐步掌握程序设计 步骤，从肢解代码到分析代码最后设计代码，由浅及深， 最后一个动手实践，让学生在教师的引导下完整的实现 程序设计。 情感态度与价值观：本节课多次对学生情感进行教育，在课前导入后鼓励大 家每天提高一点点，慢慢的量变就会形成质变，探究循环结构多次师生合作，创建和谐的教学氛围，最后的学生动手实践，完整的进行程序设计，收获新知，培养学生的自我效能感。 教学方法：讲授法、任务驱动法 一、课前导入 1、教师展示ppt 中一张白纸，同学们猜猜一张白纸的厚度。 2、一张普通的办公用纸，它的厚度大约有0.05毫米，现在要讲此纸对折5折，纸张的厚度是多少？ 3、 （利用课前准备的白纸逐步引导，学生推导vb 语句） 赋值语句s=s*2 4、假如一位女同学的身高为1.6米，那么折叠多少层可以达到她的高度？ 学生竞猜，教师打开做好的vb 折纸器按照学生猜测的次数进行逐个尝试。 5、达到我国珠穆朗玛峰的高度至少要折叠多少次？ 学生竞猜，教师打开做好的vb 折纸器按照学生猜测的次数进行逐个尝试。 通过为数不多的折纸就可以达到很高，预期会大大出乎学生的意外，此刻介绍吉尼斯世界纪录上所达到的最多次数为13次，鼓励学生课下尝试。 6、展示 鼓励大家每天进步一点点。 二、庖丁解牛 1、古代高斯解决当时一道十分困难的数学题1+2+3+…+100=？ 2、提问：大家知道他是怎么解决这道问题的吗？ 3、今天我们通过vb 程序也可以很快的解决。 展示vb 程序窗体和相应的代码 Private Sub Command1_Click() Dim i As Integer, n As Integer i = 1 n = 0 Do While i <= 100 n = n + i i = i + 1 Loop 毫米6.12*05.05≈03.099.08 .3701.1365365= =
循环结构是指在一定条件下多次重复执行一组语句。VB中提供了两种循环语句，它们是For 语句和Do语句。 1. For循环语句 如果己知某一段代码需要重复执行的次数，可以使用For循环语句。该语句的一般形式如下： 该段代码的功能是在窗体上显示8行文本，如图3.16所示。如果不采用循环结构，则需要使用8条Print语句来实现相同的功能。 For语句中的循环变量必须是数值型，初值、终值以及步长则是具体的数值 For…next 步长用来指定循环变量每次的增量，当所有循环体中的语句都执行后，循环变量就会自动增加一个步长。默认的步长为1.For语句的执行流程如图3.17所示。
具体执行流程为： （1）将初值赋给循环变量。 （2）判断循环变量的取值是否在终值范围内否则结束循环，执行Next的下一条语句。 （3）将循环变量的取值自动增加一个步长，然后回转到步骤（2）继续执行。 若是则执行循环体内的语句，循环中可以在任何位置放置任意个Exit FOr语句，该语句的作用是退出循环，转到Next语句的下一条语句。Exit For语句经常在条件判断之后使用，例如在If…Then语句之后。 例如，修改上例如下：
实例3.3打印九九乘法表 本例讲解怎样打印九九乘法表，如图3.18所示。九九乘法表的打印看起来很烦琐，但是如果使用嵌套循环，则问题变得非常简单。 打开【代码】窗口，编写窗体的Click事件过程如下： 在该段代码中，首先使用Print方法打印出标题和一个空行。然后使用了一个两重的嵌套循环结构。关于Print方法的使用细节请参见下一章。 2.Do循环语句 如果不知道某一段代码需要重复执行的次数，可以使川Do循环语句0该语句有两种基本形式：
vb中FOR循环语句的教学 vb中FOR循环语句的教学 ——形式多样的多个圆的画法 一、基本说明 1、本教学案例参与人员基本信息 2、教学内容 1）教学内容所属模块：《算法与程序设计》 2）年级：高一二期 3）所用教材出版单位：上海科技教育出版社 4）所属的章节：第二章第四节 5）学时数： 45 分钟 二、教学设计 1、教学目标： l 从形式上大致弄清循环语句结构（for 和next 配套出现）。 l 让学生理解循环的含义和作用（是一次又一次的重复执行某关键操作，而不是一次性地同时完成大量关键操作）。 l 理解循环的执行过程，更进一步弄清循环语句结构。 l 掌握各基本概念及功能 l 体会循环变量给循环体带来的影响 l 最终能透彻理解循环语句，会使用FOR语句编写程序解决问题。
2、内容分析： 循环语句是程序设计的三大基本结构之一，是三个结构中最难的一个，在以往各届教学中学生很难于理解和掌握。由于本人所教5个班中有4个是交费班，学习能力和习惯都欠佳，要求教学者以深入浅出及趣味性的教学吸引学生。 重点：使学生理解循环语句的含义和执行过程，语句中的相关概念。 难点：FOR语句中循环变量的变化，循环次数的决定，循环变量给循环体带来的影响。3、学情分析： 大部分中学生对程序语句和算法的理解能力不强，更由于高中阶段其他课程的繁重课业负担使得学生们不会花多的精力和时间来学这门课。本节课之前学生已学了基本输入输出语句、条件语句、少量控件的使用，对循环语句还没有了解。教师应采用一种让学生很容易接受的方式来学习新知。 4、设计思路： 根据教学内容（FOR语句）讲解很枯燥，中学生不喜欢概念讲解及理论灌输的特点，采用画圆来形象地呈现循环的效果；首先避开语句的介绍，学生先操作体验FOR，对该语句有了感性认识后，教师根据学生的体验进行FOR语句的总结提升，使对该语句上升到理性认识；最后教师对完成的同心圆FOR语句提出进一步的设计要求，使学生在完成过程中更透彻地理解for语句。教学中沿着“体验-感觉-总结-拓展”的思路来学习新知，体现了新课程理念中“以人为本”的思想，注重以学生为主体，师生互动推动教学的进行，枯燥而难懂的内容变得生动形象，由浅入深，容易理解和掌握。 l 引入，知识迁移：画少量圆à画大量圆，用已有知识无法达到目标，引出本节课新的学习内容：FOR循环。
12. 学习VB循环语句之我见 VB 的循环语句有4 大类，共8 个小类，要全部掌握这些语句，可不是简单的事。 实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。 下面用计算1+2+3+...+100 来看看这8 个循环小类的特点： Private Sub Command1_Click() Dim I As Long, S As Long '一、例子①：For...Next 循环 For I = 1 To 100 S = S + I Next MsgBox "For...Next：1+2+3+...+100 = " & S '二、Do...Loop 循环 '例子②：在Do 和Loop 后面不使用任何关键字，在循环体内加入判断语句退出循环 I = 0: S = 0 Do I = I + 1 If I > 100 Then Exit Do S = S + I Loop MsgBox "Do...Loop：1+2+3+...+100 = " & S '例子③：在Do 后面使用While 关键字 'I 小于100 就进入循环 I = 0: S = 0 Do While I < 100 I = I + 1 S = S + I Loop MsgBox "Do While：1+2+3+...+100 = " & S
'例子④：在Loop 后面使用While 关键字 'I 不是小于100 就退出循环（不论I 的值是多少，循环体至少会执行一次）I = 0: S = 0 Do I = I + 1 S = S + I Loop While I < 100 MsgBox "Loop While：1+2+3+...+100 = " & S '例子⑤：在Do 后面使用Until 关键字 'I 大于100 就退出循环，注意S=S+I 和I=I+1 的位置与使用While 关键字时不同不同 I = 0: S = 0 Do Until I > 100 S = S + I I = I + 1 Loop MsgBox "Do Until：1+2+3+...+100 = " & S '例子⑥：在Loop 后面使用Until 关键字 'I 大于100 就退出循环（不论I 的值是多少，循环体至少会执行一次） I = 0: S = 0 Do S = S + I I = I + 1 Loop Until I > 100 MsgBox "Loop Until：1+2+3+...+100 = " & S '三、While...Wend 循环 '例子⑦：I 小于100 就执行循环，与例子③Do While I < 100 完全相同 I = 0: S = 0 While I < 100 I = I + 1 S = S + I Wend MsgBox "While...Wend：1+2+3+...+100 = " & S
一、选择题 1、无条件转移GoTo语句后面是（A） A、标号或行号 B、输出语句 C、输入语句 D、子过程 2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A） A、冒号 B、分号 C、逗号 D、空格 3、无条件转移GoTo语句后面的行号或标号在同一过程中（A） A、必须唯一 B、可以重复 C、以数字开头 D、以汉字开头 4、while循环结构中的条件表达式取值为（A） A、True B、False C、True或False D、0 5、while循环结构中的条件表达式取值为（A）时执行语句组 A、True B、False C、True或False D、0 6、while循环结构中与（A）匹配使用，不能单独出现 A、Wend B、end C、loop D、next 7、Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3 8、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3 9、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B） A、0 B、1
C、2 D、3 10、Do…loop循环结构中的Exit Do语句的功能是（B） A、退出整个程序 B、退出当层循环 C、退出最外层循环 D、退出所在子程序 11、Do…loop中使用while关键字时，条件为（B）执行循环体 A、False B、True C、0 D、假或真 12、Do…loop中使用until关键字时，条件为（A）执行循环体 A、False B、True C、0 D、假或真 13、Do…loop中使用while关键字时，条件为（A）终止循环 A、False B、True C、0 D、假或真 14、Do…loop中使用until关键字时，条件为（B）终止循环 A、False B、True C、0 D、假或真 15、For…Next循环结构中（C）用来控制循环变量 A、for B、step C、next D、to 16、For…Next循环结构中step用来控制（D） A、循环变量 B、循环变量初值 C、循环变量终值 D、循环变量增量 17、For…Next循环结构中循环变量初值大于终值时,步长为（A） A、负数 B、非负数 C、正整数 D、正数 18、For…Next循环结构中循环变量初值小于终值时,步长为（A） A、负数
1.While...Wend 语句 只要指定的条件为True，则会重复执行一系列的语句。 语法 While condition [statements] .. Wend 2.Do...Loop 2.1 第一种用法 用Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同If...Then condition 必须是一个数值或者值为True（非零）或False（零）的表达式。 在下面的Do...Loop 循环中，只要condition 为True 就执行statements。 Do While condition statements .. Loop 2.2 第二种用法 Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试condition。这种形式保证statements 至少执行一次： Do statements Loop While condition 注:其它两种演变形式类似于前两个，所不同的是，只要condition 为False 而不是True，它们就执行循环。 循环零次或多次 Do Until condition statements Loop 至少循环一次 Do statements Loop Until condition 3.For...Next 在不知道循环内需要执行多少次语句时，宜用Do 循环。但是，在知道要执行多少次时，则最好使用For...Next 循环。与Do 循环不同，For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下： For counter = start To end [Step increment] statements Next [counter] 参数Counter、Start、end 和increment 都是数值型的。 注意 increment 参数可正可负。如果increment 为正，则Start 必须小于等于end，否则不能执行循环内的语句。如果increment 为负，则Start 必须大于等于end，这样才能执行循环体。如果没有设置Step，则increment 缺省值为1。
VB 条件语和循环语句 测试习题(满分100分) 一、根据程序写运行结果 1．写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(Inputbox("X=" )) IF X<0 THEN LET Y=ABS(X) ELSE LET Y= -X END IF PRINT "Y=";Y End sub 运行结果： (1)99 (2)-23 2. 写出下列程序的运行结果。(5分) Private sub command1_click N=1 FOR X=3 TO 10 STEP 3 N=N*2 NEXT X PRINT "N=";N End sub 运行结果： 3．写出下列程序的运行结果。(5分) Private sub command1_click S=0 A=VAL(InputBox("A ") ) FOR X=10 TO 1 STEP 4 S=S+X NEXT X PRINT " S=" End sub (5分) 运行结果： 4.写出下列程序运行结果。(5分) Private sub command1_click FOR I= 1 TO 5step 2 PRINT I ， NEXT I End sub 运行结果：____,_____,_____ 5. 写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(Inputbox("X=" )) IF X/2=Int(X/2) THEN S=X+1 ELSE S=X-1 END IF PRINT "S=";S End sub 运行结果： (1)99 (2)98 二、根据题意，完善下列程序。(每空5分 ) 1.请设计一个程序，将从键盘上任意输入的 两个数中最大的那个选出来。 Private sub command1_click A=VAL(Inputbox("A=" )) B=VAL(Inputbox("B=" )) IF A>B THEN MAX=________ ELSE MAX=B ENDIF PRINT "MAX="； MAX End sub 2.求和 S=1+3+5+7+…+99 Private sub command1_click S=0 FOR I=1 TO 99 STEP 2 S=________ NEXT I PRINT “S=”； S End sub 3.完善下列程序，使其能求出2+4+6+……+100之和。 Private sub command1_click FOR I =____ TO 100 STEP _____ S= S+I ______ I PRINT S End sub 4．从键盘任意输入一个数，判断这个是否是偶数，如果是偶数输出“Y ”，否则输出“N ”。 Private sub command1_click