VB中循环结构之Do While-Loop、Do Loop-While语句

课题：第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分钟）

课本41页:动手实践：编写一个计算细胞分裂时间的程序。

【知识点拨】

1) 设计窗体时考虑用到几种类型的控件对象？（3种）分别是什么控件？（按钮、文本框、标签）

2)给按钮的Click事件添加代码时注意书写格式：大小写、空格、和纯英文的标点符号。

3) 分析循环语句的结构特点和基本结构。

三、实践探究（25分钟）

1、编写一个计算细胞分裂时间的程序。

2、编程求最大公约数。

四、拓展提高

乙同学，也坚持每天写读书笔记300字，但是他对自己的要求要高一些，第二天总比前一天多写10个字，问乙同学多长时间读书笔记的字数可以超过30万字?怎么编程：

Dim a as single,d as Integer

Const s=300

a = 0

d = 0

Do While a <=300000

a=a+s+d*10

d = d + 1

Loop

Print a,d

218天 301930

五、小结：VB的程序设计思路是我们本节课的学习重点，学习VB程序解决问题的思维方。才是我们受益更多的大智慧。

安全提示：红灯停，绿灯行。非机动车走专用道。

课后

反思

VB循环结构测试题及答案

循环结构测试题(四) 一：选择题 1：以下（）是正确的for….next结构。 （A）for x=1 to step 10 (B) for x=3 to –3 step -3….. ….. next x next x (C ) for x=1 to 10 (D) for x=3 to step 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（） （A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do

I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（ ） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub (A) ABCD (B) ( C ) AABABCABCD * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C (D) A AB ABC

5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*” 。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41 print j,k 42 next k （A ） for I=1 to 4 n=1 for j=1 to I （B ） for I=1 to 4 for j=1 to I n=1 (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4

VB基本知识及选择、循环结构习题

一、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

VB循环语句教案设计

浙教版高一信息技术VB循环语句教学设计 省象山中学章婷红 315700 zthddsina. 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节容选自教育《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for 和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找

VB程序设计FORNEXT循环结构教学设计

《VB程序设计For…Next循环结构》教学设计 江苏省武进高级中学现代教育技术组吴涛 一、教学目标设计 本课内容的学习建立在学生已经学习过第五节《分支结构》的基础上，结合程序设计的三种基本结构，重点介绍循环结构For…Next展开的。在前面几节的学习中，问题比较简单，算法也不复杂，不画流程图也能比较清楚的描述出来。引入分支结构后，需要根据条件的真假，从两条路径中选择一条执行，算法逐渐复杂，流程图愈发显得重要，所以在介绍循环结构处理问题时时一定要配以流程图介绍。 本课内容设计很多程序的分析，以及讨论程序执行结果，如果在教室里面上，写板书的时间就浪费了，但如果用多媒体演示教学，学生只有简单的理性和感性认识，而学生的实践操作这一环就缺少了，相应认知效果就不明显了，利用网络课件，学生可以自己浏览学习，自主下载认知分析。所以本课必须以课本知识为依托，以网络课件为辅助，以问题为导思，来培养学生的创新精神，提高学生自主学习的能力。故制定具体的学习目标如下： 认知目标：1.掌握For-Next语句的格式和功能；2.理解For-Next语句的执行过程； 3.结合分支结构的内容学会使用For-Next语句实现计数循环。 能力目标：1.培养学生利用网络作为工具，并在网络环境下自主学习的能力；2.培养学生提出问题、分析问题、解决问题的综合能力和创造性思维能力。 二、本课内容及重点、难点分析 作为程序设计循环结构的For…Next语句，其格式、功能、执行过程、执行结果、并利用它来解决问题、编制简单程序都是本课内容。 学习重点：学会For…Next的格式及其含义，理解由For…Next编写的程序的过程、结果。 学习难点：For…Next的格式及其含义，由For…Next编写简单的程序。 三、教学对象分析 1、高二年级的学生已经在高一时学习过在网络环境下浏览、搜索、下载等知识，但很久不接触网络，操作已经生疏了，所以事先要对学生进行实际操作的针对性训练，能把网络上的文字数据下载到本地计算机上，如把VB程序段复制粘贴到VB程序环境中执行看结果等等。 2、分支结构的内容只有上过一次课，所以要求学生事先对上次课的内容做好充分

vb循环结构选择题

一、选择题 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、负数 B、负整数 C、正整数 D、正数 19、For…Next循环结构中next后的循环变量（A） A、可以省略 B、不可以省略 C、与for后的变量名可以不同 D、与for后的变量不是同一变量 20、For…Next中循环变量初值与终值间使用的关键字是（A） A、To B、In C、goto D、private 21、For…Next中循环变量初值与终值间使用的关键字是（A）

VB中循环结构之Do While-Loop、Do Loop-While语句

课题：第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循环结构测试题及答案

循环结构测试题（四）一：选择题 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

VB程序的基本结构——循环结构之For-Next语句

课题：程序的基本结构——循环结构之For-Next语句第课时课型：新授备课教师授课时间 教学目标 知识与技能 1、了解循环的概念，理解循环结构的基本思想 2、掌握For-Next语句的基本结构的写法循环变量，初值，终值和步长。 3、理解For-Next语句的执行过程 过程与方法 1.通过分析问题，能准确找出循环变量、确定循环结束条件。 2.能利用For-Next语句解决简单的问题。 情感态度与价值观 1.通过编写循环结构的程序，体会循环结构的执行过程。 2.通过利用循环思想解决问题，体会循环思想的重要性。 教学重点1、理解循环结构的基本思想 2、理解For-Next语句的执行过程 教学难点根据需要采用循环结构解决实际问题，并提炼出for语句的基本结构学生理解For-Next语句的执行过程 教学 准备 几个以For-Next语句组成的不同功能的程序 教学过程设计教学 内容师生教学活动设计 备注栏 （学生笔记栏） 一、设疑导入 同学们，请先看这个图形(在窗体左边输出显示 竖行排列的1，2，3，4，5)，如果用以前学过的程 序设计语言怎样来编写它的程序呢？ 生（稍做思考，然后回答)：使用Print语句 P rint“1” Print“2” Print“3” Print“4” Print“5” 师：同学们做得很好，，如果想要显示1-10，或是1-100的数字呢？怎么做，难道就这样顺序写下去吗？这样编写是不是太繁琐了。如果能让计算机去完成这部分重复的内容，而我们只要告诉计算机重复操作的次数就可以了，这个愿望能否实现呢？ 通过我们今天学习的FOR—NEXT循环语句，就可以很容易的实现这个想法。

VB循环结构程序设计答案

实验4循环结构程序设计 2014年月日 三、实验步骤及结果： （实验结果截图，代码拷贝过来。） 1容易题 （1）阶乘和 代码 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, n, s, a As Integer n = Val(TextBox1.Text) s = 0 求阶乘和！！！！ a = 1 For i = 1 To n a = a * i s = s + a Next Label2.Text = "1!+2!+3!+…+" & n & "!=" TextBox2.Text = s

End Sub End Class （2）奇数偶数之和

代码 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, n, i, j, k, t As Integer If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then m = Val(TextBox1.Text) n = Val(TextBox2.Text) If m > n Then t = m : m = n : n = t For i = m To n If i Mod 2 = 0 Then j = j + i Else k = k + i End If Next Label3.Text = "偶数的和为" & j Label4.Text = "奇数的和为" & k Else MsgBox("请输入合法的数据") End If

VB循环结构练习题

VB循环结构练习题 一、分析程序的运行结果（每题2分，共60分） 1、以下循环的执行次数是_____。 K=0 Do While k<=10 k=k+1 Loop 2、下列程序段的执行后输出的结果为_____。 I=4:A=5 Do I=I+1:A=A+2 Loop Until I>=7 Print "A=";A 3、下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9 Print Sum 4、下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b next a 5、下列程序段的运行结果是： Sub sele() Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop Print I End Sub 打印结果_____。 6、执行下面的程序段后，s的值为____。 S=5 For I=2.6 To 4.9 Step 2 s=s+1 Next I 7、下列程序段的执行后输出的结果为_______。K = 1 For I = 1 To 3 A = I ^ I ^ K Next I Print A 8、下列程序的执行结果是_____。 M1 = 1:m2 = 1

Do While m2<>6 m1 = m1*m2 : m2 = m2+1 Loop Print m1 9、下列程序的执行结果是_____。 Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I P = SUM End Function Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub 10、以下程序用来输出1到100所有奇数的和，请补充完该程序。Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0 For x=1 to 100 step____ s = s + x Next x Print s End Sub 11、下列程序的执行结果是_______。A = 75 If a>60 Then I = 1 ElseIf a>70 Then I = 2 ElseIf a>80 Then I = 3 ElseIf a>90 Then I = 4 End If Print I 12、下列程序段的运行后t的值为______。Dim t,k as single k=5 : t=1 do While k>=-1 t=t*k : K=K-1 loop 13、下面程序段的输出结果是_____。 P=0:s=0 Do p = p+2 s = s+p Loop While p<11 Print "s="&s 14、下面程序段的输出结果是______。 For X=1.5 To 5 Step 5

VB循环结构程序设计4

VB循环结构程序设计（二）：Do循环Do循环语句一般用于解决循环次数未知的应用问题，如求素数、求最大公约数问题等，是根据某一条件来决定是否指行循环体。 在本节课中，我们要学习如下内容： ⑴Do{While|Until}…Loop循环的语法及执行过程⑵Do…Loop{While|Until}循环的语法及执行过程 ⑶Do循环变量改变及循环条件的设置⑷两种Do循环语句的差异及执行流程 ⑹Do循环变量改变及循环条件的设置 （一）Do循环语句语法 1.语句形式一，先判断后执行； Do {While|Until} <条件> 语句块 [Exit Do] 语句块 Loop 2.语句形式一：先执行后判断 Do 语句块 [Exit Do] 语句块 Loop {While|Until} <条件> 功能：形式1为先判断后执行，有可能一次也不执行；形式2为先执行后判断，循环体至少执行一次；Do与Loop配对 While：当条件，即当条件为True时，执行循环体 Until：直到条件，即直到条件为True时退出循环，否则执行循环体 Exit Do：循环体遇到该语句时，退出Do…Loop循环执行Loop语句后语句 注意：要防止死循环，一般在循环体外设置循环变量，在循环体内用语句不断更改循环变量的值，从而有机会使循环条件成为真或假，退出循环。若出现死循环，可以使用Ctrl+Break键结束程序的执行。有时，根据需要，要人为设置死循环，如反复让计算机产生七个1-35这的随机数。这时，若用do While(条件)语句实现，可用如下语句： Do While .T … Loop （二）Do循环流程图 【举例1】求两数最大公约数、最小公倍数 Dim m, n, r, t As Integer m = Val(Text1.Text) ‘取两个数M,N n = Val(Text2.Text) … If m < n Then 指定M>N t = n n = m m = t End If

VB循环结构,教学设计

篇一：vb程序设计fornext循环结构教学设计 《vb程序设计for…next循环结构》教学设计 江苏省武进高级中学现代教育技术组吴涛 一、教学目标设计 本课内容的学习建立在学生已经学习过第五节《分支结构》的基础上，结合程序设计的三种基本结构，重点介绍循环结构for…next展开的。在前面几节的学习中，问题比较简单，算法也不复杂，不画流程图也能比较清楚的描述出来。引入分支结构后，需要根据条件的真假，从两条路径中选择一条执行，算法逐渐复杂，流程图愈发显得重要，所以在介绍循环结构处理问题时时一定要配以流程图介绍。 本课内容设计很多程序的分析，以及讨论程序执行结果，如果在教室里面上，写板书的时间就浪费了，但如果用多媒体演示教学，学生只有简单的理性和感性认识，而学生的实践操作这一环就缺少了，相应认知效果就不明显了，利用网络课件，学生可以自己浏览学习，自主下载认知分析。所以本课必须以课本知识为依托，以网络课件为辅助，以问题为导思，来培养学生的创新精神，提高学生自主学习的能力。故制定具体的学习目标如下： 认知目标：1.掌握for-next语句的格式和功能；2.理解for-next语句的执行过程； 3.结合分支结构的内容学会使用for-next语句实现计数循环。 能力目标：1.培养学生利用网络作为工具，并在网络环境下自主学习的能力；2.培养学生提出问题、分析问题、解决问题的综合能力和创造性思维能力。 二、本课内容及重点、难点分析 作为程序设计循环结构的for…next语句，其格式、功能、执行过程、执行结果、并利用它来解决问题、编制简单程序都是本课内容。 学习重点：学会for…next的格式及其含义，理解由for…next编写的程序的过程、结果。学习难点：for…next的格式及其含义，由for…next编写简单的程序。 三、教学对象分析 1、高二年级的学生已经在高一时学习过在网络环境下浏览、搜索、下载等知识，但很久不接触网络，操作已经生疏了，所以事先要对学生进行实际操作的针对性训练，能把网络上的文字数据下载到本地计算机上，如把vb程序段复制粘贴到vb程序环境中执行看结果等等。 2、分支结构的内容只有上过一次课，所以要求学生事先对上次课的内容做好充分 的复习。 四、教法设计 演示法：把制作的网络课件所在的网址告诉学生，引导学生通观本次课所有内容；并从旧知识中获得启迪、从而解决问题；复习、提问、新知识的讲解。 成果展示法：将学生通过对网页上程序下载到vb环境中执行的正确结果在全班展示，让学生获得成功的喜悦和认同，从而激发学生后续学习的热情。 五、网络教学环境设计 1、使用自己制作的主页―――vb循环结构 2、学生的计算机上面都装有microsoft visual basic软件，可以把所制作的网页上的程序复制到本地计算机上面执行。 3、通过top2000教学控制系统向全体学生转播自己的观点、依据、学习成果等。 六、教学过程设计 2、播放《分支结构》的多媒体课件以供复习之用； 3、学生回答复习提问中的三个问题； 4、学生带着问题进行新课内容自主学习； 5、讲解新课，指出重点；

VB操作题循环结构

VB8—循环结构 do操作题 【第1题】 打开文件“考生文件夹\560\工程1.vbp”，完善程序实现如下功能并保存： 今年儿子6岁，父亲36岁，母亲31岁。编程求几年后，父母亲年龄之和是儿子的7倍，将结果显示在label1中。 Private Sub Command1_Click() Dim n As Integer Dim x As Integer n = 0 Do n = ① x = (36 + 31 + 2 * n) / (6 + n) Loop ② x = 7 Label1.Caption = Str(③) End Sub 【第2题】 打开“考生文件夹\780\test3.vbp”，完善Command1_Click事件代码并保存。 实现功能：2008年末我国总人口为13.28亿，年平均增长0.63%，假设我国人口将继续以该速率增长。请问在哪一年我国人口将超过15亿？在窗体上输 出结果。 Private Sub Command1_Click() Dim y As Integer Dim p As Single y = 2008 p = 13.28 Do While ① ② p = p * (1 + 0.0063) Loop Print ③ End Sub 【第3题】 打开文件“考生文件夹\860\圆周率.vbp”，完善程序实现如下功能并保存： 公元5世纪，我国古代数学家祖冲之将圆周率π求到了小数点后7位。到17世纪，微积分被牛顿和莱布尼兹发现之后，大量计算圆周率π的公式被发现。莱布尼兹公式就是其中之一： 11111 1 4357911 π =-+-+- + 编写程序，利用以上公式计算π，直到最后一项的值小于0.0000001为止，输出π的值。 Private Sub cmdComputePi_Click() Dim pi As Double, t As Double Dim n As Long, sign As Integer pi = 0 n = 1 sign = 1 Do t = ① pi = pi + ② n = ③ sign = -sign Loop Until Abs(t) < 0.0000001 pi = ④ Print "pi:" & pi End Sub 【第4题】 打开“Z:\117\工程1.vbp”，完善Form_Click事件代码并保存。 实现功能：当单击窗体后，计算22＋42＋62＋…＋N<1500的N的最大值。 Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 s = 0 Do s = s + ① N = ② Loop Until s > 1500 Print "N=" & CStr(③) End Sub 【第5题】 打开“Z:\736\工程1.vbp”进行以下操作后并保存。该题求丢番图年龄问题：丢番图生命的1/6是童年，又过了生命的1/12长胡子，再过了生命的1/7结婚，