程序的循环结构for循环课件.ppt

上传人:飞****2 文档编号:79039604 上传时间:2023-03-19 格式:PPT 页数:15 大小:100.50KB
返回 下载 相关 举报
程序的循环结构for循环课件.ppt_第1页
第1页 / 共15页
程序的循环结构for循环课件.ppt_第2页
第2页 / 共15页
点击查看更多>>
资源描述

《程序的循环结构for循环课件.ppt》由会员分享,可在线阅读,更多相关《程序的循环结构for循环课件.ppt(15页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、FOR循环语句循环语句.输出输出1至至10之间所有整数的平方根之间所有整数的平方根Private Sub Command1_Click()Form1.ClsPrint 1,Sqr(1)Print 2,Sqr(2)Print 3,Sqr(3)Print 4,Sqr(4)Print 5,Sqr(5)Print 6,Sqr(6)Print 7,Sqr(7)Print 8,Sqr(8)Print 9,Sqr(9)Print 10,Sqr(10)End Sub如果要输出110000之间所有整数的平方根,程序要怎么写?.输出输出1至至1000之间所有整数的平方根之间所有整数的平方根Private Sub

2、Command1_Click()Form1.ClsPrint 1,Sqr(1)Print 2,Sqr(2)Print 3,Sqr(3)Print 4,Sqr(4)Print 5,Sqr(5)Print 6,Sqr(6)Print 7,Sqr(7)Print 8,Sqr(8)Print 9,Sqr(9)Print 10,Sqr(10)End SubPrivate Sub Command1_Click()Form1.ClsFor i=1 to 1000 step 1 Print i,Sqr(i)Next iEnd Sub.FOR循环的格式循环的格式lFor 循环变量=初值 to 终值 step 步

3、长l语句组(循环体)lNext 循环变量 l例如:lFor i=1 to 100 step 1l print ilNext i.For循环的执行过程循环的执行过程l演示:单步运行与监视窗口变量值查看l.For语句的循环特点语句的循环特点控制循环体执行多次循环变量在每次循环执行的结束时自动修改.阅读程序写结果阅读程序写结果lFor A=1 to 100l print AlNext AlS=1lFor A=1 to 10l S=s*AlNext AlFor A=100 to 1 step-1l s=s+AlNext AlFor A=1 to 10l A=A+1l print AlNext A.fo

4、r循环解题的关键循环解题的关键l找出问题中重复部分l重复做的事情是什么?.求求s=1+2+100的值的值lS=0lS=s+1lS=s+2llS=s+100lS=0lFor i=1 to 100l s=s+IlNext i要求24.+100的值,应该要如何修改以上程序?重复部分重复做:把I累加到S。.作业作业1l任务1:输出1-100之间所有完全平方数(完全平方数是这样一种数:它可以写成一个正整数的平方。例如,36是6 6,49是7 7)。.作业作业2l任务2:编一个程序,输入N(N10),求N!12N的值。.求所有水仙花数求所有水仙花数l如果一个三位数,它的每位数字的立方和等于这个三位数,则称

5、它为水仙花数。例如:15313 53 33,所以153是一个水仙花数。.人工找出水仙花的过程人工找出水仙花的过程l100是水仙花数?l101是水仙花数?ll999是水仙花数?.求所有水仙花数算法求所有水仙花数算法开始I1000?结束是否I100求出I的个位a,十位b和个位ca3+b3+c3=I?是输出III+1循环结构.求水仙花数的程序求水仙花数的程序lDim I as integer,a as integer,b as integer,c as integerlFor i=100 to 999l a=i 100l b=(i mod 100)10l c=(i mod 100)mod 10l if a3+b3+c3=i then print IlNext I 求i的三个位数字.

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 教育专区 > 教案示例

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁