VB教程---循环结构
更新时间:2023-09-04 03:26:01 阅读量: 教育文库 文档下载
VB基础教程
循环结构在Visual Basic程序的三种结构中,循环结构是 一种重要结构。 循环的本质:不断地重复某种动作。 循环的本质对计算机程序而言,循环必须具备两个重要因素: 对计算机程序而言,循环必须具备两个重要因素:教 学 课 件
1. 在一定的条件下,重复执行一组语句 2. 必然出现不满足条件的情况,使循环终止
VB基础教程
思考题编写程序实现计算:0+1+2+3+4+…+n的值 前后两项之差都 为1,是一个等 差数列 Sum=0 Sum=sum+1 Sum=sum+2 Sum=sum+3 … Sum=sum+n i是从1到n递增 1的数列 重复执 行n次教 学 课 件
Sum=sum+i i=i+1
VB基础教程
一、循环程序设计结构VB中提供了两种类型的循环语句:一种是计数循环语 句;另一种是条件循环语句。Visual Basic 支持的循环结 构有:教 学 课 件
重点掌握: Do…Loop、 For.Next、 While…Wend等前三 种循环
☆ For...Next结构 ☆ Do…Loop 结构 ☆ While…Wend ☆ goto
VB基础教程
1、For…Next循环结构 For…Next循环结构语法格式:For 循环变量 = 初值 To 终值 [Step 步长]循环变量获得初值
<循环体> [ Exit For ] <循环体> Next [循环变量]
循环变量在终值内
F
T循环体
教 学 课 件
Exit For
循环体 循环变量增加步长
记住了
For循环的执行过程
VB基础教程
编程计算:S=1+2+3+…+100 Dim S%, i% S=0 For i=1 to 100 S=S+i Next i Print i,S ,注意执行过程!! 注意执行过程!! 循环结束后循环变量i的值为多少 循环结束后循环变量 的值为多少
教 学 课 件
思考: 思考 求100以内的奇数和、偶数和怎样改程序? 求10!怎样改程序?
VB基础教程
说明① 格式中的参数说明:循环的初值、终值和步长都是数值表达式, 循环的初值、终值和步长都是数值表达式,其值不一定是 初值 都是数值表达式 整数,可以是实数。 整数,可以是实数。 增量参数可正可负。如果增量为正, 增量参数可正可负。如果增量为正,则初值必须小于等于 终值,否则不能执行循环体内的语句;如果增量为负, 终值,否则不能执行循环体内的语句;如果增量为负,则 初值必须大于等于终值。如果没有设置step step, 初值必须大于等于终值。如果没有设置step,则增量默认 为1。 当初值等于终值时,不管步长是正数还是负数,都执行一次循环体。 当初值等于终值时,不管步长是正数还是负数,都执行一次循环体。
教 学 课 件
②循环次数由初值、终值和步长决定,计算公式为: 循环次数由初值、终值和步长决定,计算公式为: 循环次数=INT((终值 – 初值)/步长 ) ((终值 初值) 步长 步长+1) 循环次数 (( 语句和Next语句必须成对出现,不能单独使用。 语句必须成对出现, ③ For语句和 语句和 语句必须成对出现 不能单独使用。 Next是循
环终端语句,在Next后面的循环变量与 是循环终端语句, 后面的循环变量与For中的循 是循环终端语句 后面的循环变量与 中的循 环变量必须相同。当循环是单层循环时, 环变量必须相同。当循环是单层循环时,Next后面的循环变量 后面的循环变量 可以不写。 可以不写。
VB基础教程
④ 如果要在循环变量到达终值前退出循环,可用Exit For语句来实现。 如果要在循环变量到达终值前退出循环,可用Exit For语句来实现。 语句来实现 该语句可以在For循环中出现多次,且位置不限。 For循环中出现多次 该语句可以在For循环中出现多次,且位置不限。
如:前例中加入条件“当sum超过 前例中加入条件“ 超过400时跳出循环”。 时跳出循环” 超过 时跳出循环 For i=1 to 500 step 100 S=S+I If s>400 then Exit for Next i Print i,S
教 学 课 件
VB基础教程
2、Do…Loop循环结构 Do…Loop循环结构Do…Loop循环用于事先不知道循环次数的循环结 构。此种语句四种语法格式: ⑴ . Do While … Loop 语句 ⑵ . Do Until …Loop 语句先判断条件值,如果为真,执行循环体, 先判断条件值,如果为真,执行循环体,否则退出 先判断条件值,如果为假,执行循环体, 先判断条件值,如果为假,执行循环体,直到为真时退出 先执行循环体,后判断条件值,为真继续循环, 先执行循环体,后判断条件值,为真继续循环,否则退出 先执行循环体,后判断条件值,为假继续, 先执行循环体,后判断条件值,为假继续,直到为真退出
教 学 课 件
⑶ . Do … Loop While 语句 ⑷ . Do … Loop Until 语句
VB基础教程
⑴. Do While … Loop语句语法格式: Do While 〈条件表达式〉 〈循环体〉 [Exit Do] 〈循环体〉 Loop Dim S%, i% S=0 i=1 Do while s<=400 S=S+i i=i+1 Loop Print " S=",S
(2) Do Until …Loop语句 语句 语法格式: Do Until〈条件表达式〉 〈循环体〉 [Exit Do] 〈循环体〉 Loop Dim S%, i% S=0 i=1 Do until s>400 S=S+i i=i+1 Loop Print " S=",S
教 学 课 件
Dim S%, i% S=0 For i=1 to 100 S=S+I If s>400 then Exit for Next i Print " S=",S
VB基础教程
说明: ① 条件表达式可以是一个逻辑表达式,也可 以是一个关系表达式,其值应是逻辑型。 ② Do While/Until和Loop应成对出现。 ③ 循环体中要有控制循环的语句,以避免出 现死循环。 ④ 由于该循环的特点是先判断条件,然后再 决定是否要执行循环体里的语句。所以,这 种循环可以一次也不执行循环体。 ⑤ Exit Do 表示当遇到该语句时,强制退出循 环,执行Loop后的下一条语句
教 学 课 件
VB基础教程
(3)Do … Loop While语句 ) 语句 语法格式: 语法格式: Do 循环体〉 〈循环体〉 [Exit Do] 循环体〉 〈循环体〉 Loop While〈条件表达式〉 〈条件表达式〉
⑷ . Do …Loop Until语句 语句 语法
格式: 语法格式: Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop Until〈条件表达式〉
教 学 课 件
注意: 注意: ① 至少要执行循环体一次。② 与Do While循环的区别: Do While循环先测试条件是否成立, 只有 循环先测试条件是否成立, 循环先测试条件是否成立 成立才执行循环; 而该循环先执行循环体, 成立才执行循环 ; 而该循环先执行循环体 , 后测试条件是否成立。 后测试条件是否成立。
VB基础教程
的有效值。 例:输入有效位数,按下述公式计算圆周率∏的有效值。 输入有效位数,按下述公式计算圆周率 的有效值
m=val(text1.text) pai=2:p=0 Do t=s:p=spr(2+p):pai=t*2/p Loop Until abs(t-s)<0.1^m
教 学 课 件
VB基础教程
3、While…Wend循环结构 、 循环结构 语法格式: 语法格式:While 〈条件表达式 ) 等价于 循环体 Wend教 do While(条件表达式) 学 ) 课 循环体 件
LOOP
功能: 功能:当While的条件表达式的值是True时执行循环体内的 代码,直到While后的条件表达式的值为False。 说明: 说明:它与Do …Loop语句的差别是: While …Wend语句中不能使用Exit语句跳出循环。
VB基础教程
几种循环语句比较For....to Next 循环类型 循环控制条 件 循环变量初 值 使循环结束 使用场合 当型循环 循环变量大于 /小于 终值 在 FOR 语句中 For 语句中无 需专门语句 循环次数容易 确定 Do while/ until .... Loop 当型循环 条件成立 /不成立 do .... Loop While /until ... 直到循环 条件成立 /不成立
教 学 课 件
在 DO 之前 必须用专门语句 条件件易给出
在 DO 之前 必须使用专门语句 条件件易给出
VB基础教程
练习: 练习: 1、求100~200之间不能被 整除的数。 、 之间不能被3整除的数 之间不能被 整除的数。 2、判断一个数是否为质数。 、判断一个数是否为质数。 解1: value=val(Text1.text) For counter = 2 To value - 1 If value Mod counter = 0 Then Exit For Next If counter = value Then Print "质数"
教 学 课 件
解2: Value = Val(Text1.Text) Counter = 2 Do Until Value Mod Counter = 0 Or Counter = Value Counter = Counter + 1 Loop If Counter = Value Then Print "质数
VB基础教程
3、输入两个正整数,求它们的最大公约数。 、输入两个正整数,求它们的最大公约数。 输入两个自然数m, 输入两个自然数 n r=m mod n 若r=0,则n为m的最大公约数 , 为 的最大公约数 若r<>0,则m=n,n=r , , 重复执行第二步 m m = Text1.Text n = Text2.Text Do t = m Mod n m = n: n = t Loop Until n = 0 Print m n
教 学 课 件
4、验证哥德巴赫猜想:任意一个大于等于6的偶数都可以分解为两个质数之和。 基本思想:n为大于等于6的任一偶数,可分解为n1和n2两个数, 分别检查n1和n2是否为素数,如都是,则为一组解。 如n1不是素数,就不必再检查n2是否素数。先从n1=3开始,
检验n1和n2(n2=N-n1)是否素数。然后使n1+2 再检验n1、n2是否素数,… 直到n1=n/2为止。
VB基础教程
循环的嵌套——多重循环结构 二、循环的嵌套 多重循环结构1、如果在一个循环内完整地包含另一个循环 结构,则称为多重循环,或循环嵌套, 2、嵌套的层数可以根据需要而定,嵌套一层 称为二重循环,嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套, 下面是几种常见的二重嵌套形式:教 学 课 件
VB基础教程
(1)For I=…. ….. For J=…. …. Next J ….. Next I (3)Do While…. ….. For J=…. …. Next J ….. Loop
(2)For I=…. ….. Do While/Until …. Loop ….. Next I (4)Do While/Until…. ….. Do While/Until …. Loop ….. Loop
教 学 课 件
VB基础教程
例题:在窗体上输出 以内质数。 例题:在窗体上输出100以内质数。 以内质数Private Sub Command1_Click() Dim value As Integer Dim counter As Integer Dim num As Integer Me.Cls For value = 2 To 100 For counter = 2 To value - 1 If value Mod counter = 0 Then Exit For End If Next If counter = value Then Print value; Tab; num = num + 1 If num Mod 3 = 0 Then Print End If Next Print Print "100以内的质数有" & num & "个" End Sub
教 学 课 件
正在阅读:
VB教程---循环结构09-04
傅雷家书的摘抄加赏析11-20
湘教版高中地理习题 - 地理要点解读(转换修正版)05-24
网络流行语用文言文回击05-11
广元市高中2011届高三第一次诊断性测试英语试题及答案04-05
盐城市公安消防支队文件01-31
部门日常管理05-12
2014年高考研究所语文试题及答案03-08
七年级数学上说课稿北师大版{全部}06-02
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 循环
- 结构
- 教程
- 融资担保有限公司年度工资制度与绩效考核实施细则
- 新员工入职登记表
- 4种动物药炮制后微量元素及临床作用改变
- 1994考研数学一真题及答案详解
- 江南大学阶段性机考应用写作第2阶段测试题
- KH100系列仪表通信协议(V0.2)
- 人教版小学数学三年级上册《分数的初步认识》教学案例
- 人教版六年级上unit 1 How can I get there【第六课时】
- 新编阿拉伯语第一册第十九课
- 房地产客户分类
- 切罗基部族诉乔治亚州
- 西门子电磁流量计中文操作说明书
- 新生儿医院感染相关因素分析
- 设备管道保温施工方案
- 电力工程总承包合同范本
- 如何增加铸铝转子的接触电阻
- 筛板精馏塔精馏实验报告
- 拆解 爱普生epson me1+ 打印机 清洗打印头
- 金融加速器理论视阈下的中小企业融资结构优化
- 大学英语全新版第三册第四单元答案