For-next循环
- 格式:pdf
- 大小:331.55 KB
- 文档页数:8
********************************************************************中华隐士黑客联盟主站:/规模最大、实力最强、信誉最好的网络技术培训站点专业的技术站点权威的技术培训最好的免费学习电脑技术天地真正的技术,就是要用实力来说话欢迎来到中华隐士黑客联盟。
注:本教程只做技术交流,请不要用作非法用途!中华隐士黑客联盟***********************************************************主题:VB系列培训–第十五课内容:For….Next 计数循环语句和Do…Loop条件循环语句在有的时候,我们需要编写一个语句,并且希望这些语句能够根据一定的状况,可以循环的执行,那么就可能用到今天这节课我们讲到的For…next,它的主要功能是:针对某个变量的取值范围,循环执行某些语句。
Inputbox 输入语句它的语法如下:(1)、For 变量(名称)= 初始值To 终止值要执行的语句Next举个例子:Dim n ‘定义一个变量nMsgbox “10”Msgbox “11”Msgbox “12”Msgbox “13”Msgbox “14”……如果这么写,也可以连续弹出些消息框,逐个显示10-20,但是比较繁琐,有没有好些的方法?答案是肯定的!看代码:Dim nFor n = 10 to 20Msgbox nNext ‘这么写的效果和原先的一样,含义也是:弹出一些消息框,消息框的内容是:10-20 . 那么有些人可能问,这种格局,到底是怎么运行的呢?下面我具体的用一个图来表示:首先我们知道:For 变量= 初始值to 终止值{这里就是循环执行的内容}当然,可以是多个。
Next 【最后用这个Next结束】那么计算机遇到这种格局的语句,是这样执行的。
第一步:为这个变量赋予初始值。
第二步:判断这个变量的当前值的范围是否在“初始值”和“终止值”之间。
For-next循环For... Next循环语句For…next循环简称为For循环。
它是⼀种指定循环次数(事先知道循环次数)的循环程序结构。
在这种结构中,使⽤了⼀个称为循环变量的特殊变量作为计数器,指定它的初始数值,然后每重复执⾏⼀次循环,循环变量就会⾃动增加或减少⼀个指定的数值(称为步长值),直到循环变量的改变达到最终的指定值,循环才停⽌执⾏。
1.For …Next语句的语法格式For <循环变量>=<初值> To <终值> [Step步长][语句块][Exit For]Next [循环变量]功能:⽤来控制重复执⾏⼀组语句。
指定循环变量以步长为增量,从初值到终值依次取值,并且对于循环变量的每⼀个值,把语句块执⾏⼀次。
说明:(1)关键字For和Next成对出现,For是循环语句的开始,Next是循环语句的终端,必须出现在For语句的后⾯。
在关键字For 和Next之间的语句块叫循环体,它们将被重复执⾏指定的次数,执⾏的次数由初值、终值、步长值决定。
(2)初值、终值和步长值都是数值表达式,步长值可以是正数,也可以为负数。
如果步长值为1,可以省略不写,即系统默认步长值为1。
(3)<循环变量>为必要参数,是⽤作循环计数器的数值变量,这个变量不能是数组元素。
在循环体内,⼀般不提倡再给循环变量另外赋值。
循环变量从初值开始,逐次按照步长值增加或减少⽽改变,直到超过终值,这时循环停⽌执⾏。
这⾥所说的“超过”有两种含义:即⼤于或者⼩于。
(4)<初值>和<终值>也都是必要参数。
当初值⼩于终值时,<步长值>必须是正数;反过来,如果初值⼤于终值,则步长值必须为负数。
(5)如果循环体中安排了Exit For 语句,当程序执⾏到该语句时直接跳出循环结构,不再执⾏循环体中Exit For的后续语句(如果有),⽽是转到Next后⾯的其他指令继续执⾏。
课题:循环结构及应用——For Next循环班级组别姓名教师评价:编制人:朱泽斌审核人:杨宇虹【学习目标】1、认识For…Next循环语句的基本结构2、学会应用For…Next循环语句解决学习生活中的一些简单问题重点:For…Next循环语句的基本结构难点:学会应用For…Next循环语句【预习案】【使用说明与学法指导】1.用20分钟左右的时间,阅读探究课本的内容,熟记基础知识。
自主高效预习,提升自己的阅读理解能力.2.完成教材助读设置的问题,然后结合课本的基础知识和例题,完成预习自测题.3.将预习中不能解决的问题标出来,并写到后面“我的疑惑”处.一、相关知识:1.循环结构三种不同的语句:________________、__________________、________________。
b5E2RGbCAP2.For Next循环也叫For循环或计数循环,一般应用于循环次数已知的循环。
二、教材助读:1、For Next循环格式:2、循环变量:三、预习自测:1.以下程序的输出结果是( >A、10,1 9,2B、9,8 7,6C、10,9 9,0 D、10,10 9,1main( >{int x=10,y=10,i;for(i=0;x>8;y=++i>printf("%d,%d",x- -,y>;}注解:循环执行2次,由x控制循环的执行次数;输出值为两次循环过程中x 每次的自减值和y在for语句的第三个表达式中得到的i自增变化后的值。
p1EanqFDPw2、以下程序的输出结果是( >A、#*#*#B、#####C、*****D、*#*#* main( >{ int i;for(i=1;i<6;i++>{ if(i%2>{printf("#">;continue;}printf("*">;}printf("\n">;}注解:循环控制变量i的值从1变化到5,i为1、3、5时,i%2为1,if语句的条件为真,则执行if后的子句,输出#,然后执行continue语句,终止本次循环的执行,进入下一轮循环,i为2、4时,i%2为0,if语句的条件为假,则if后的子句并不执行,直接输出*,所以最后的输出为#*#*#。
FOR---NEXT循环语句教案主讲: 常庆红教案【导入新课】编写一个程序:打印5行竖排的“*”。
如果是打印10行,100行甚至更多,那应该怎样实现?在窗体上输出1到10这十个数字。
如果是输出到100甚至更多,那应该怎样实现?在以上两个例子中,可以看到如果完成这个任务,有很多重复的语句,如何来减化这个程序并达到相同的效果呢?这就要用到一个新的知识,循环结构。
今天,这节课上我们讲解循环结构其中的For-Next循环结构语句。
【新课讲解】循环结构与循环结构语句1、For-Next循环结构语句(1)一般形式:For 循环变量=初值to 终值Step 步长值循环语句组Next 循环变量[格式说明]①For与Next必须成对出现,Next必须位于For语句之后。
②循环变量必须是数值型,且最好为整型变量。
③当步长值=1时,[Step 步长值]部分可以省略④Next后面的循环变量可以省略,For、Next后面的循环变量是同一个。
⑤For循环分递增循环和递减循环两种。
递增循环:当初值小于等于终值,步长值>0。
递减循环:当初值大于终值,步长值<0。
[格式举例] 例For I= 1 To 5Print “*” Next I(2今天先讲For 循环的递增过程,流程图如下:具体执行过程描述如下: ①将初值赋值给循环变量②判断循环变量的值是否小于等于终值若为真(True ),则执行循环语句,而后转到③执行若为假(False ),则转到④执行I 为变量1是初值,5是终值语句组③将变量的值加上步长值,而后返回②执行 ④循环结束,顺序执行Next 后面的语句 [程序举例]For/next 循环语句1、请同学们阅读下面程序,写出结果并上机验证,画出流程图,说明程序功能。
for i=1 to 3 step 1print i next i end执行执行停止执行<3=3>3234123123执行下一次循环否?i 与终值比较执行NEXT 之后i 的值循环开始时i的值第几次循环I =1Prnit iI=I+1I >= 3N Y[程序执行过程分析]For/next 循环语句1)如果把程序中的step 1改成step -1,应该如何修改程序。
循环的嵌套教学设计与反思【教学目标】1、能准确掌握“FOR - NEXT”循环结构的应用。
2、熟练掌握循环的嵌套,并能编写双重循环结构的程序。
【教学重点】循环嵌套语句的结构和使用。
【教学难点】for循环的嵌套执行过程。
一、知识点:与选择结构语句一样,循环结构语句也可以进行嵌套。
1、if语句的嵌套If 条件ThenIf 条件Then语句块1Else语句块2End ifElseIf 条件Then语句块3Else语句块4End ifEnd if例:将学生考试成绩的百分制转化为等级制。
成绩>=90分为A级,80分<=成绩<90分为B级,70分<=成绩<=80分为C级,60分<=成绩<70分为D级,成绩<60为F级。
Private Sub Form_Click( )Dim score as singleScore=V al(inputbox(“输入一个学生的成绩:”))If score>=90 ThenPrint “A”ElseIf score>=80 ThenPrint “B”ElseIf score>=70 ThenPrint “C”ElseIf score>=60 ThenPrint “D”ElsePrint “F”End ifEnd ifEnd ifEnd ifEnd sub2、For … Next 语句循环结构也称重复结构,它的作用是使一段程序能重复执行,被重复执行的部分称为循环体。
但重复一般都是有条件的,即在满足FOR语句中的条件下才执行循环体,否则退出循环体。
语句的格式:For 循环控制变量=初值to 终值[step 步长]循环体语句块Next [循环控制变量]说明:1、循环控制变量必须为整型;2、缺省步长为1 。
二、编写具有循环嵌套结构的程序[例1]:设计一个程序,打印如图1所示的图案。
*****师生共同分析,得出结论:重复输出星号,要用循环结构,循环变量的初值为1,终值为5。
excel循环语句Excel中常用的循环语句有以下四种:1. For...Next循环:按顺序循环执行指定次数的操作,常用于遍历数组或列表。
语法:```。
For 变量 = 开始值 To 结束值 [Step 步长]。
'执行的代码。
Next [变量]。
```。
示例:```。
Sub ForNextDemo()。
For i = 1 To 10。
Cells(i, 1).Value = i。
Next i。
End Sub。
```。
2. Do...Loop循环:根据指定的条件循环执行一组语句,常用于执行不确定次数的循环,有多种写法。
语法1:```。
Do While 条件。
'执行的代码。
Loop。
```。
语法2:```。
Do Until 条件。
'执行的代码。
Loop。
```。
语法3:```。
Do。
'执行的代码。
Loop While 条件。
```。
语法4:```。
Do。
'执行的代码。
Loop Until 条件。
```。
示例:```。
Sub DoLoopDemo()。
Dim i As Integer。
i=1。
Do Until i > 10。
Cells(i, 2).Value = i。
i=i+1。
Loop。
End Sub。
```。
3. While...Wend循环:根据指定的条件循环执行一组语句,常用于执行不确定次数的循环。
语法:```。
While 条件。
'执行的代码。
Wend。
```。
示例:```。
Sub WhileWendDemo()。
Dim i As Integer。
i=1。
While i <= 10。
Cells(i, 3).Value = i。
i=i+1。
Wend。
End Sub。
```。
4. For Each...Next循环:按顺序循环执行对象集合中的每个对象的操作,常用于遍历集合,如单元格、区域等。
语法:```。
For Each 对象 In 集合。
中职电子与信息:循环结构(for-next)—教案第一章:循环结构概述1.1 教学目标让学生了解循环结构的概念和作用让学生掌握for循环和while循环的基本语法让学生了解循环结构在程序设计中的应用场景1.2 教学内容循环结构的概念和作用for循环的语法和执行过程while循环的语法和执行过程循环结构的应用场景1.3 教学方法讲授法:讲解循环结构的概念、作用以及for循环和while循环的语法案例法:通过实例演示循环结构在程序设计中的应用互动法:引导学生参与讨论,解答学生提出的问题1.4 教学准备教学PPT编程环境(如Python、C语言等)实例程序代码1.5 教学过程导入:通过一个实例程序,让学生感受循环结构的作用新课:讲解循环结构的概念和作用,介绍for循环和while循环的语法实践:让学生编写简单的循环结构程序,巩固所学知识第二章:for循环2.1 教学目标让学生掌握for循环的基本语法和执行过程让学生了解for循环的常见应用场景2.2 教学内容for循环的基本语法和执行过程for循环的常见应用场景2.3 教学方法讲授法:讲解for循环的基本语法和执行过程案例法:通过实例演示for循环的应用互动法:引导学生参与讨论,解答学生提出的问题2.4 教学准备教学PPT编程环境(如Python、C语言等)实例程序代码2.5 教学过程导入:通过一个实例程序,让学生感受for循环的作用新课:讲解for循环的基本语法和执行过程,介绍for循环的常见应用场景实践:让学生编写使用for循环的程序,巩固所学知识第三章:while循环3.1 教学目标让学生掌握while循环的基本语法和执行过程让学生了解while循环的常见应用场景3.2 教学内容while循环的基本语法和执行过程while循环的常见应用场景3.3 教学方法讲授法:讲解while循环的基本语法和执行过程案例法:通过实例演示while循环的应用互动法:引导学生参与讨论,解答学生提出的问题3.4 教学准备教学PPT编程环境(如Python、C语言等)实例程序代码3.5 教学过程导入:通过一个实例程序,让学生感受while循环的作用新课:讲解while循环的基本语法和执行过程,介绍while循环的常见应用场景实践:让学生编写使用while循环的程序,巩固所学知识第四章:循环结构的嵌套4.1 教学目标让学生了解循环结构嵌套的概念和作用让学生掌握循环结构嵌套的语法和执行过程4.2 教学内容循环结构嵌套的概念和作用循环结构嵌套的语法和执行过程4.3 教学方法讲授法:讲解循环结构嵌套的概念和作用,介绍循环结构嵌套的语法案例法:通过实例演示循环结构嵌套的应用互动法:引导学生参与讨论,解答学生提出的问题4.4 教学准备教学PPT编程环境(如Python、C语言等)实例程序代码4.5 教学过程导入:通过一个实例程序,让学生感受循环结构嵌套的作用新课:讲解循环结构嵌套的概念和作用,介绍循环结构嵌套的语法实践:让学生编写使用循环结构嵌套的程序,巩固所学知识第五章:循环结构的应用5.1 教学目标让学生了解循环结构在程序设计中的应用场景让学生掌握循环结构在实际编程中的运用方法5.2 教学内容循环结构在程序设计中的应用场景循环结构在实际编程中的运用方法5第六章:循环控制语句6.1 教学目标让学生了解循环控制语句的概念和作用让学生掌握循环控制语句的语法和执行过程6.2 教学内容循环控制语句的概念和作用break语句和continue语句的语法和执行过程6.3 教学方法讲授法:讲解循环控制语句的概念、作用以及break语句和continue语句的语法案例法:通过实例演示循环控制语句在程序设计中的应用互动法:引导学生参与讨论,解答学生提出的问题6.4 教学准备教学PPT编程环境(如Python、C语言等)实例程序代码6.5 教学过程导入:通过一个实例程序,让学生感受循环控制语句的作用新课:讲解循环控制语句的概念和作用,介绍break语句和continue语句的语法实践:让学生编写使用循环控制语句的程序,巩固所学知识第七章:实际案例分析7.1 教学目标让学生了解循环结构在实际案例中的应用让学生掌握循环结构在实际编程中的运用方法7.2 教学内容循环结构在实际案例中的应用循环结构在实际编程中的运用方法7.3 教学方法案例法:通过实例分析,讲解循环结构在实际案例中的应用互动法:引导学生参与讨论,解答学生提出的问题7.4 教学准备教学PPT编程环境(如Python、C语言等)实例程序代码7.5 教学过程导入:通过一个实际案例,让学生感受循环结构的应用新课:讲解循环结构在实际案例中的应用,分析实际编程中的运用方法实践:让学生分析实际案例,掌握循环结构在实际编程中的运用方法第八章:编程练习与拓展8.1 教学目标让学生通过编程练习,巩固循环结构的知识让学生发挥创造力,进行循环结构的拓展应用8.2 教学内容编程练习题循环结构的拓展应用8.3 教学方法练习法:让学生通过编程练习,巩固循环结构的知识互动法:引导学生相互交流,分享循环结构的拓展应用经验8.4 教学准备教学PPT编程环境(如Python、C语言等)编程练习题及参考答案8.5 教学过程新课:布置编程练习题,引导学生进行练习实践:学生独立完成练习题,相互交流分享经验第九章:循环结构在工程中的应用9.1 教学目标让学生了解循环结构在工程中的应用让学生掌握循环结构在工程中的实际运用方法9.2 教学内容循环结构在工程中的应用循环结构在工程中的实际运用方法9.3 教学方法案例法:通过实例分析,讲解循环结构在工程中的应用互动法:引导学生参与讨论,解答学生提出的问题9.4 教学准备教学PPT实例程序代码9.5 教学过程导入:通过一个工程实例,让学生感受循环结构的应用新课:讲解循环结构在工程中的应用,分析实际编程中的运用方法实践:让学生分析实际案例,掌握循环结构在实际编程中的运用方法10.1 教学目标让学生回顾循环结构的知识点让学生评价自己的学习成果10.2 教学内容循环结构的知识点回顾学生学习成果的评价10.3 教学方法讲授法:回顾循环结构的知识点互动法:让学生评价自己的学习成果10.4 教学准备教学PPT10.5 教学过程新课:回顾循环结构的知识点实践:学生进行自我评价,分享学习经验重点和难点解析重点环节1:循环结构的概念和作用需要重点关注的内容:循环结构的基本概念,包括循环结构的作用和重要性。
asp中for循环的使用方法循环是指在指定情况下,多次重复执行一组语句。
最常用(for …next、do …loop),1、重复执行的语句叫循环语句。
循环语句可以分为三种类型:(1)、当条件不为假之前的时候重复执行语句。
(2)、当条件变为真之前重复执行语句。
(3)、按指定的次数重复执行语句。
2、For…Next 循环如果重复操作的次数固定,使用For…Next 循环是一个很好的选择,此外也将介绍语法很类似的For Each…Next循环,它适用在数组或集合的重复循环,(一)For…Next 在For…Next 循环的语法中使用初值、终值、步长以及循环变量来完成重复计数的工作。
当进入循环第一次执行时,循环变量便由初值开始累加一次步长,一直到等于或超过终值为止。
例如:初值为1,终值为10,步长为2,则循环将执行5 次,循环变量的值分别是1、3、5、7、9,第六次因循环变量累加到11,已经超过10 了,便不再执行循环。
3、For…Next 循环的语法如下:For 循环变量=初值To 终值Step 步长程序语句…[ Exit For]程序语句…Next说明:(1)、循环变量:这个变量通常是使用整数,但是必要时也可以是其他数值类型,他是一个数值变量。
(2)、初值:这是循环变量的初始值,为数值类型。
其值不一定是整数, 或小数,VB会自动给他取整数(3)、终值:循环变量的终值,为数值类型。
其值不一定是整数, 或小数,VB会自动给他取整数(4)、步长:循环变量每次的增加量,步长的数值类型应该和循环变量一样, 其值可以是正数(递增循环)或是负数(递减循环),当不能为0,如果没有特别指定,则步长默认为1。
(5)、循环体:在For语句和Next语句之间的语句,可以是一个或多个语句.(6)、Next:是循环终端语句,在Next后面的"循环变量"与For语句中的"循环变量"必须相同. 如:for i=0 to 10 Step 1Next执行过程:(1)、把初值1赋给循环变量i(2)、将i的值与终值10进行比较,若i10,则跳出循环,执行(5),否则执行循环体.(3)、i增加一个步长值,即i=i+1(4)、返回(2)继续执行(5)、执行Next语句后面的代码这个循环的作用是:根据FOR 语句中所的初值、终值和步长,来确定循环次数,反复执行循环体内各语句。
FOR-NEXT循环指令1、FOR-NEXT 指令用于重复执行程序段,FOR 指令和 NEXT 指令之间的指令为循环体。
FOR指令标记循环的开始,NEXT指令为循环体的结束指令。
2、每条 FOR 指令需要有一条 NEXT 指令与之成对出现。
3、可以嵌套,嵌套深度为 8 层。
其中:INIT,FINAL分别定义起始值和结束值。
使能输入EN有效,循环体开始执行,执行到NEXT指令时返回,每执行一次循环体,当前值计数器INDX增1,达到终止值FINAL时,循环结束。
使能输入无效时,循环体程序不执行。
每次使能输入有效,指令自动将各参数复位。
注意:使用 FOR 和 NEXT 指令可在重复执行分配计数的循环中执行程序段。
每条 FOR 指令需要一条 NEXT 指令。
应用例程 -- For Next 简单循环编程实例使用状态表监控程序的运行如下图所示如上表所示,VW100值为4, INDEX大于终止值,循环终止。
示例:5个变量进行求和后取平均值通过FOR-NEXT 指令,对5 个变量:VW100、VW102、VW104、VW106、VW108 进行求和,求和结果放到VW200 中,计算的平均值存放在VD210 中。
FOR-NEXT指令的循环次数如何计算?答:FOR-NEXT工作过程:启用FOR-NEXT指令,首先将INIT( 初始值) 复制到INDX(当前循环次数);每执行一次,INDX (当前循环次数) 加1;如果INDX 大于FINAL (终止循环次数),终止循环。
比如:INIT=1 FINAL=10,则循环体被执行10次,然后退出循环,退出循环后INDX=11 INIT=0,FINAL=10, 则循环体被执行11次,然后退出循环,退出循环后INDX=11FOR-NEXT指令执行时,主程序是否执行,对扫描周期的影响?答:程序自上而下循环扫描,当FOR-NEXT指令启用后,则循环体被循环执行,直至循环次数到达,循环结束,程序继续向下执行。
For... Next循环语句For…next循环简称为For循环。
它是一种指定循环次数(事先知道循环次数)的循环程序结构。
在这种结构中,使用了一个称为循环变量的特殊变量作为计数器,指定它的初始数值,然后每重复执行一次循环,循环变量就会自动增加或减少一个指定的数值(称为步长值),直到循环变量的改变达到最终的指定值,循环才停止执行。
1.For …Next语句的语法格式For <循环变量>=<初值> To <终值> [Step步长][语句块][Exit For]Next [循环变量]功能:用来控制重复执行一组语句。
指定循环变量以步长为增量,从初值到终值依次取值,并且对于循环变量的每一个值,把语句块执行一次。
说明:(1)关键字For和Next成对出现,For是循环语句的开始,Next是循环语句的终端,必须出现在For语句的后面。
在关键字For和Next之间的语句块叫循环体,它们将被重复执行指定的次数,执行的次数由初值、终值、步长值决定。
(2)初值、终值和步长值都是数值表达式,步长值可以是正数,也可以为负数。
如果步长值为1,可以省略不写,即系统默认步长值为1。
(3)<循环变量>为必要参数,是用作循环计数器的数值变量,这个变量不能是数组元素。
在循环体内,一般不提倡再给循环变量另外赋值。
循环变量从初值开始,逐次按照步长值增加或减少而改变,直到超过终值,这时循环停止执行。
这里所说的“超过”有两种含义:即大于或者小于。
(4)<初值>和<终值>也都是必要参数。
当初值小于终值时,<步长值>必须是正数;反过来,如果初值大于终值,则步长值必须为负数。
(5)如果循环体中安排了Exit For 语句,当程序执行到该语句时直接跳出循环结构,不再执行循环体中Exit For的后续语句(如果有),而是转到Next后面的其他指令继续执行。
(6)Next语句中的[<循环变量>]可以省略。
2. For... Next语句的执行过程:进入For...Next循环后,程序按照以下步骤执行:(1)若初值、终值和步长值为表达式,求出它们的值,并保存起来:(2)将初值赋给循环变量;(3)判断循环变量值是否超过终值(初值小于终值,且步长值为正时,指大于终值;初值大于终值且步长值为负时,指小于终值);超过终值时立即跳出循环,执行Next之后的语句。
否则继续执行循环体。
(4)遇到Next语句时,把循环变量的当前值加上步长值后再赋给循环变量。
(5)转到(3)。
执行的流程如图6-1所示。
3. For... Next循环的循环次数从图6-1可以看出,For循环是先检测,后执行的循环形式。
因此在下列2种情况下,循环体不会被执行:(1)初值小于终值,步长值为负数(2)初值大于终值,步长值为正数(3)如果初值=终值,不论步长值是正数还是负数,均执行一次循环体后跳出循环。
循环的次数可以用以下公式表示:循环次数 n = INT((终值 - 初值)/步长值 + 1)例如,初值等于1,终值等于10,步长值等于2,则循环次数n为:n = INT ((10 – 1)/2 + 1) = 5例6-1:课前思考解答方法:用For... Next语句实现分析:求从1到100共100个数的累加和,共需相加100次。
每次数字变化(增值)为1,我们可以用变量S来保存累加和,并赋初值为0;变量k作为循环变量并作为加数(加到s中的数),设置其初值为1,终值为100,步长值为1(可以省略)。
设计步骤(1)创建一个新工程,在窗体上添加如图6-2所示控件并设置控件属性,各控件属性如表6-1所示。
表6-1 各控件属性设置值控件名属性属性值Label1Caption“1+2+3+…+100 =”Text1Text“”(空白)Command1Caption“计算”图6-2 程序界面(2)编写程序代码。
双击界面上的命令按钮,打开代码设计窗口给命令控件Command1编写如下代码:Private Sub Command1_Click()s = 0For k = 1 To 100s = s + kNext kText1.Text = sEnd Sub(3)运行程序运行程序后,单击命令按钮“计算”,文本框Text1中显示出计算的结果5050,如图6-3所示。
6-3 计算结果例6-2:设计程序,计算级数13 + 23 + 33 + 43 +...,直到累加和超过200为止。
分析:本题也是一个求累加和的计算,但关键问题是不知道循环的次数到底是多少,无法设定循环变量的终值。
我们可以事先将循环变量的终值设定为一个比较大的数,在循环体中用一个分支语句来检测累加的结果,只要累加和大于200时,就可以跳出循环,显示计算结果。
(1)建立应用程序用户界面并设置各控件对象初始属性,如图6-4所示。
图6-4 程序用户界面(2)对命令按钮Command1编写Click事件代码:Private Sub Command1_Click()s = 0For k = 1 To 100s = s + k ^ 3If s > 200 ThenLabel2.Caption = "最后的项数是:" & kExit ForEnd ifNext kText1.Text = sEnd Sub(3)运行程序,结果如图6-5所示。
图6-5 程序运行结果例6-3:设计程序,求100——999之间所有的“水仙花”数。
所谓“水仙花”数就是指一个三位数,其各位数字的立方等于该数本身。
例如,153 = 13 + 53 + 33,故153就是“水仙花”数。
分析:求解该题的的关键是如何从一个三位数中分离出百位数、十位数和个位数来。
可以用以下方法进行分离:设该三位数为I,由a、b、c三个数字组成,则:(1)百位数a = INT(I/100),例如 INT(353/100) = 3(2)十位数b = INT((I-100*a)/10),例如 INT((353-100*3)/10) = 5(3)个位数c = I-INT(I/10)*10,例如 353-INT(353/10)*10 = 353-35*10=3(1)设计用户界面,如图6-6所示。
图6-6 程序界面(2)编写命令按钮Command1的Click事件代码如下:Private Sub Command1_Click()For i = 100 To 999 Step 1a = Int(i / 100)b = Int((i - 100 * a) / 10)c = i - Int(i / 10) * 10If i = a ^ 3 + b ^ 3 + c ^ 3 ThenPrintPrint " ";Print iEnd IfNext iEnd Sub(3)运行程序,结果如图6-7所示。
4. For...Next语句的嵌套单层循环可以解决一些简单的问题,但实际应用中有许多问题需要两层甚至更多层循环才能完成计算或处理。
在一个循环结构中还包含另一个循环结构称为循环的嵌套。
用For...Next语句构造循环嵌套结构,就是在For...Next语句中的循环体部分再安排另一层For ...Next语句。
嵌套的层数没有限制,但应满足以下规则:(1)每层循环必须有一个唯一的变量名作为循环变量名;(2)内层存循环必须完全放在外层循环的里面(外循环体内),内、外层循环不得相互交叉,如图6-8所示。
正确的循环嵌套错误的循环嵌套(内外层相互交叉)图6-8循环嵌套结构例6-4:设计一个程序,打印乘法九九表。
即打印1×1 = 1, 1×2=2,……9×9=81。
分析:先考虑怎样实现打印1×1 = 1, 1×2 = 2,……1×9 = 9。
这只要一个简单的For循环结构就可以实现:n=1for j=1 to 9s = n * jPrint s;Next j因为n被事先赋值为1,所以当循环变量j从1变到9时,打印的结果就是1×1 = 1, 1×2 = 2,……1×9 = 9。
要打印2×1 = 2, 2×2 = 4,……2×9=18,就要将程序一开头的 n赋值为2。
当需要打印整个九九表时,n的赋值就应从1开始,直到9为止依次改变。
对应每个不同的n 的数值,执行一次j从1到9改变的For 循环。
即n每次改变一个数值,j就从1变化到9,打印出n和j的乘积。
这就提示我们要用到双层结构的For 循环程序结构来解决这个问题:For n = 1 to 9For j = 1 to 9S = n * jPrint s;Next jNext n这个双层循环的执行过程是这样的:(1)把初值1赋给外层循环变量n (这个值一直保持到遇到外层循环的Next n后才改变)。
然后开始执行外循环的循环体,即外循环For 和Next之间的其他语句。
这时因为外循环的循环体正好又是一个For... Next语句构成的循环结构,称为内循环,于是在n=1时,j就要从1变化到9,反复执行9次,打印出1×1 = 1到1×9 = 9。
(2)当内层循环被执行完毕后(j>9),程序才能够执行(遇到)Next n语句,于是n增值为2。
现在n< 9,外循环的循环体还要被执行,这样就再次进入到内循环。
因为n=2,于是这次内循环计算和打印的就是2×1 = 2到2×9=18。
(3)内存循环执行完毕后,再次遇到Next n语句,n增值为3,因为这时n依然小于9,所以还要继续重复上述过程。
n的值由1依次变到9,最后一次打印出9×1 = 9到9×9 = 81。
当n再次增值时,就超过终值9(n > 9)了,于是外层循环结束,整个程序执行完毕。
这里应注意到,每次n改变时,内存循环变量j都被重新赋初值1。
设计过程。
(1)新建一个工程,在窗体上添加一个命令按钮控件Command1,并将其Caption属性设置为“开始计算”,如图6-9所示。
图6-9 程序界面设计(2)对命令按钮Command1编写Click 事件代码如下:Private Sub Command1_Click()PrintPrint " *";For i = 1 To 9Print Tab(i * 6); i;Next iPrintFor n = 1 To 9Print n; " ";For j = 1 To 9s = n * jPrint Tab(j * 6); s;Next jPrintNext nEnd Sub(3)运行程序,结果如图6-10所示。