版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、会计学1 嵌套循环嵌套循环 第1页/共22页 第2页/共22页 For 循环变量循环变量 = 初值初值 to 终值终值 step 步长步长 循环体循环体 Next 循环变量循环变量 第3页/共22页 第4页/共22页 2、编写程序,实现一行、编写程序,实现一行“*”的打印(如的打印(如 下):下): 第5页/共22页 提示:提示:把把每行每行看做一个看做一个“整体整体”, 问题就转化为:问题就变成打印问题就转化为:问题就变成打印4 个个“整体整体”,每打印完一个,需换,每打印完一个,需换 一行。一行。 即:即:For i=1 to 4 打印打印“一行一行*” Print Next i 第6页/
2、共22页 把把打印打印“一行一行*” ,用复习题,用复习题2所编写的代码所编写的代码 代替代替. 第7页/共22页 第8页/共22页 第9页/共22页 * * * * * * 第10页/共22页 2、在、在VB窗体上打印如下的图形(窗体上打印如下的图形(每行字符数不同每行字符数不同):): Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ For j=_ to _ Print “*”; Next j Print Next i End sub 第11页/共22页 3、在、在VB窗体上打印如下的图形(窗
3、体上打印如下的图形(每行字符每行字符 数不同,每行起始数不同,每行起始*位置不同位置不同):): * * * * 这里要用到一个这里要用到一个Tab函数,此函数用来控函数,此函数用来控 制输出字符的位置制输出字符的位置 跟刚才分析方法一样,建立变量间的关系跟刚才分析方法一样,建立变量间的关系 式,如下表:式,如下表: i起始*位置(n)j 141 232 323 414 根据此表,用数学中一次函数思想(根据此表,用数学中一次函数思想(i为自变量,为自变量,j为函数值,为函数值,n为函数值)来为函数值)来 建立建立j和和i关系表达式,关系表达式,n和和i的关系表达式。从而得到的关系表达式。从而得
4、到 j = i , n = 5 i 第12页/共22页 具体代码如下:具体代码如下: Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab(5 - i) For j=_ to _ Print “*”; Next j Print Next i End sub 第13页/共22页 Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab ( ) For j=_ to _ Print
5、 “*”; Next j Print Next i End sub 第14页/共22页 * * * * * * * * * * * * * * * * * * * * Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab ( ) For j=_ to _ Print “*”; Next j Print Next i End sub 2i-1 第15页/共22页 * * * * * * * * * * * * * * Private sub form_click( ) Dim i as
6、 integer Dim j as integer For i=_ to _ Print Tab ( ) For j=_ to _ Print “*”; Next j Print Next i End sub 第16页/共22页 Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab ( ) For j=_ to _ Print “*”; Next j Print Next i End sub 第17页/共22页 思考提示:思考提示: (1)如果我们以图形的第6行为X轴的话,图形的上 半部分是否是关于下半部分对称。 (2)由于图案上下对称,上下对应的起始位置和字 符个数完全一致,所以控制输出行数的循环变量是否 也可以对称呢? (3)以哪一行作为对称轴,外循环变量i的取值范围 应为多少? (4)第i行的起始位置还可以为tab (i+6)吗?要用到什 么函数?
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 大班数学课件-8的组成与分解
- 河南省驻马店市(2024年-2025年小学四年级语文)统编版能力评测((上下)学期)试卷及答案
- 【初中历史教案、学案、备课】第16课 明朝的科技、建筑与文学 学案
- 森林康养 课件
- 青海省黄南藏族自治州(2024年-2025年小学四年级语文)统编版随堂测试(上学期)试卷及答案
- 河北省石家庄市2023-2024学年二年级上学期语文期中试卷(含答案)
- 2024年碳碳复合材料刹车片项目发展计划
- 2025年九省联考新高考 政治试卷(含答案解析)
- 2023年铜仁市万山区委统一战线工作部招聘公益性岗位人员考试真题
- 北京市遴选和选调公务员考试试卷及答案
- 规划方案比较分析
- 校长学术报告
- 幼儿园世界地球日保护地球妈妈
- 供配电工程及配套设施 投标方案(技术方案)
- 全季酒店营销策略分析报告
- 变态反应性支气管肺曲霉病的个案护理
- 2024年湖南铁道职业技术学院高职单招(英语/数学/语文)笔试历年参考题库含答案解析
- EDI超纯水设备制作工艺
- 芳纶纸行业分析
- 网络安全技术与攻防演练
- 骨科器械的清洗与消毒操作
评论
0/150
提交评论