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循环结构

（https://www.wendangku.net/doc/463240737.html,/new/wt/wangluoke/index.htm或http://wga/new/wt/wangluoke /index.htm），集中了课本上关于“分支机构”的复习以及“循环机构”的For…Next的整体讲解、学习、练习、思考、作业的内容，以便学生对本次课的整体把握。

2、学生的计算机上面都装有Microsoft Visual Basic软件，可以把所制作的网页上的程序复制到本地计算机上面执行。

3、通过Top2000教学控制系统向全体学生转播自己的观点、依据、学习成果等。

六、教学过程设计

1、导言（教学目标）每个学生进入网页（http://wga/new/wt/wangluoke/index.htm）浏览复习提问中的背景知识以及三个问题；

2、播放《分支结构》的多媒体课件以供复习之用；

3、学生回答复习提问中的三个问题；

4、学生带着问题进行新课内容自主学习；

5、讲解新课，指出重点；

6、思考并回答新课中的三个问题；

7、进行思考练习阶段，要求学生先看懂程序，并可辅以下载运行得出结果；

8、思考题要求学生自主编写程序；

9、给出参考程序；

10、课后作业思考

11、下课

七、思考

对于适合的内容，可以说多媒体教学手段、网络环境教学手段都要比在原有普通教

学下的效果要好，但各个学校的网络条件也有差异，机房的合理利用也是值得考虑的问题。

VB对于编写简单的可视效果程序，应该来说完全可以完成，也因为配以可视化界面效果有亲切感，对于一个初学者来说，作为一门计算机入门语言，也应该是不错的。VB的循环结构作为程序设计的三大结构之一，其重要性是不言而喻的，学生如能熟练掌握，那么对于以后的编程就又多了一种非常有用的工具。

VB循环语句教案设计

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

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程序设计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中循环结构之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程序设计期末复习题

《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。

A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．Form.caption="欢迎您!" B．Form1.caption="欢迎您!" C．Form. print "欢迎您!" D．Form1.print "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．List1.AddItem"China" B．List1.AddItem"1,China" C．List1.AddItem"China",0 D．List1.AddItem"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（） A．4EF B．integer C．E-F D．E_F 15．如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。 A．PasswordChar B． Caption C．Text D．Locked

VB循环结构测试题及答案

循环结构测试题(四) 一：选择题 1：以下（）是正确的for….next结构。 （A）f or 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 (A) 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print text1.text; end sub (A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） * * * * * * * * * (B) * * * * * * * * * (C) * * * * * * * * * (D) * * * * * * * * * A B C D (D) A AB ABC ABCD

VB程序设计试题及答案(一)-vb程序设计答案

VB程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII 码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3

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实验报告 选择和循环结构程序设计

南京工程学院 电力工程学院 2010/ 2011 学年第 2 学期 实验报告 课程名称 VB语言程序设计 实验项目名称选择和循环结构程序设计 实验学生班级 实验学生姓名 同组学生姓名 实验时间 2011年3月21 日 实验地点电力工程基础实验室 实验报告成绩：评阅教师签字： 年月日 电力工程学院二OO七年制

说明 1. 实验报告为实验的重要考核依据之一，每个实验必须定一份实验报告. 本实验报告原则上要求手写。 2.本实验报告各项内容的具体格式、字数可由指导教师根据实验具体情况提出具体要求。各项内容可另附页，为便于归档，附页尺寸不得大于本实验报告尺寸，并注意粘牢于附页粘贴处。 3. 实验报告封面中的“实验名称”应为实验教学大纲上所列的规范名称，“实验地点”应写出实验室的具体名称。请确认无误后再填写。 4. 实验报告的建议格式为： 一、实验目的和要求； 二、主要实验仪器和设备； 三、本次实验内容 （一）实验项目名称（按本次实验各项目填写） 1、原理或接线图 2、实验步骤及注意事项 3、实验预习过程中所遇到问题 …… 四、实验记录及数据处理（主要内容包括实验具体实施步骤、 实验原始数据、计算过程与结果、数据曲线、图表等。具体 格式按指导教师要求） 五、实验结论（主要内容包括本实验小结、实验体会或疑 问等。具体格式按指导教师要求） 5. 实验成绩由实验预习、实验表现、实验报告三部分组成。其中前两项各占总成绩的30%。实验报告成绩依据报告的科学性、全面性、规范性及书写态度综合考核。实验报告采用百分制，占实验总成绩的40%，教师请阅本报告后需签字并给出实验报告百分制成绩。 6. 实验报告需按要求时间以班级为单位交给指导教师，最长时间不得超过两周，实验报告如有明显抄袭者或不交者，实验总评成绩按 0 分记。

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第四章选择结构和循环结构编程题

第四章编程题1.查询分数题 Private Sub Form_Load() x = Val(InputBox("请输入分数", "输入", 0)) Select Case x Case Is < 0 Label1.Caption = "输入有误" Case Is > 100 Label1.Caption = "输入有误" Case Is >= 90 Label1.Caption = "优秀" Case Is >= 80 Label1.Caption = "良好" Case Is >= 70 Label1.Caption = "一般" Case Is >= 60 Label1.Caption = "及格" Case Is < 60 Label1.Caption = "不及格" End Select End Sub 2.求最大公约数题 Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m < 0 Or n < 0 Then MsgBox "数据错误！" End End If p = m Mod n Do While p <> o m = n n = p p = m Mod n Loop Text3.Text = n End Sub

2.1最小公倍数 Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer, t As Integer m = Val(Text1.Text) n = Val(Text2.Text) t = m * n If m < 0 Or n < 0 Then MsgBox "数据错误!" End End If If m = 0 Or n = 0 Then Text3.Text = 0 Else Do p = m Mod n If p = 0 Then Exit Do End If m = n n = p Loop Until False Text3.Text = t / n End If End Sub 3.九九乘法表 Private Sub Command1_Click() Dim I As Integer, J As Integer, M As Integer, s As String For I = 1 To 9 s = "" For J = 1 To I M = I * J s = s & J & "*" & I & "=" & M & " " Next J List1.AddItem s Next I End Sub 4.求ABCD—CDC=ABC题Private Sub Command1_Click()

VB第5章 循环结构程序设计

教案

讲稿 第五章循环结构程序设计 [旧课复习]： 复习内容： 1.多分支选择结构语句 2.选择结构的嵌套 复习目的：学生回顾多分支选择结构的实现语句和嵌套语句的使用 复习时长：大约8分钟 [新课导入]： 导入方式：以日常生活中的实例让学生理解什么是循环结构 导入目的：增强学生的理解能力 导入时长：大约7分钟 [新课讲授]： 重点：Do…Loop和For…Next循环语句的使用 难点：多重循环语句的使用 方法：运用多媒体辅助教学，采用讲授法和案例教学法 5.1循环语句 循环结构是专门用于实现有规律的重复性操作的算法结构，是结构化程序设计的3种基本结构之一。所谓循环，是指在一定的条件下多次重复执行一组语句。 循环结构由两部分组成。 （1）循环体：即要重复执行的语句序列。 （2）循环控制部分：指定循环条件来控制重复次数的语句。正常情况下，循环次数必须是有限的。

5.1.1 Do…Loop语句 若事先不知道循环次数，只知道循环结束条件，可以使用Do…Loop循环。Do…Loop循环语句有前测型循环和后测型循环两种语法结构。 1. 前测型Do…Loop循环 前测型循环是先判断条件，根据条件成立与否决定是否执行循环体，这种情况下，循环体有可能一次都不被执行。前测型循环有两种语法格式： 格式1（当型前测型）： Do While〈条件〉 [〈语句列1〉] [ Exit Do ] [〈语句列2〉] Loop 格式2（直到前测型）： Do Until 〈条件〉 [〈语句列1〉] [ Exit Do ] [〈语句列2〉] Loop 说明： （1）当VB执行Do While…Loop循环时，先判断指定的条件，若条件为True，执行循环体，条件为False时退出循环；当执行Do Until…Loop循环时，先

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循环结构选择题共24页

一、选择题 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、负数

vb实验4 循环结构程序设计

安徽机电职业技术学院实训实验报告 系部电气工程系班级姓名_______________ 学号___________ 日期地点指导教师____________ 成绩 实验4：循环结构程序设计 【实验目的】 1、掌握三种循环结构用法，即For、Do…Loop与While…wend三种循环语句的使用； 2、加深理解循环的概念，掌握循环的规则及其执行过程； 3、学会如何控制循环条件，防止死循环或不循环； 4、掌握与循环有关的常用程序设计算法。 【实验内容】 1、完成For、Do、while语句循环结构的程序设计。 2、进行循环语句结构的程序阅读。 【实验环境】 实验软件：Windows 2000/XP操作系统+ V isual Basic6.0软件 【实验步骤】 一、用For、Do、While语句分别编写一个累加器程序，如输入10，则计算1+2+3+…… +10的和，如输入1000，则计算1+2+3+……+1000的和。 要求：完成界面设计，控件属性设置，编写程序代码，正确运行程序，将结果保存在D：盘自己的学号姓名文件夹下，并将代码记录下来： 二、编写程序，计算1！+2！+3！+...+10! 的结果。 提示：在设计累加和连乘问题时一定要注意存储总和及乘积的变量初值问题。 要求：完成界面设计，控件属性设置，编写程序代码，正确运行程序，将结果保存在D：盘自己的学号姓名文件夹下，并将代码记录下来：

三、 编写程序，能将输入的任意字符串反序输出，例如：输入“abcd ”，则输出“dcba ”。 要求：完成界面设计（可以参考右图），控件属性设置，编写程序代码，正确运行程序，将结果保存在D ：盘自己的学号姓名文件夹下，并将代码记录下来： 四、 程序阅读题。 要求：先手工写出下面程序段的运行结果，然后在VB 环境中运行下列程序。 Dim i% Do While i < 4 i = i + 1 y = String(i * 2 - 1, "*") Print Space(4 - i) & y Loop For j = 3 To 1 Step –1 Print Space(4 - j) & String(j * 2 - 1, "*") Next j 【思考与练习】 1、求斐波那契数列的前20项之和。 提示：斐波那契数列问题是一个著名的古典数学总问题。此数列前几项为： 1，1，2，3，5，8，13，21，34，55，89，…… 从数列中，可以看出这样的规律：从第三项开始，每一项都是由前两项相加得到的。 【实验小结】 简述你的实验心得，也可留下你的问题和建议，谢谢！

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、讲解新课，指出重点；