版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、VB程序设计:do循环实例,课前回顾:,FOR语句格式: For 循环变量 = 初值 to step 循环体 Next 循环变量,x=0 For i=1 to 20 if (i mod 2=0) and (i mod 3=0) then x=x+i end if Next i Print x,S=0 For k= 3 to 5 S=s+3 Next k Print s,练习(学业水平测试题),VB程序设计:do循环实例,1、s=1+1/2+1/3+1/4+1/n,当n=?时,s第一次大于10。,请同学们仔细观察,用曾经学过的程序设计的方法能解决这两个问题吗?,想一想:,VB程序设计:do循环实
2、例,do循环语句: Do while 条件表达式 循环体 LOOP,如:我从0岁到1岁每天吃饭用while表示?,注意: 1、定义初值 2、确定条件表达式 3、写循环体(循环体中要有能改变循环条件的语句),i=0 do while i=364 吃饭 i=i+1 loop,For I=0 to 364 step 1吃饭next i,VB程序设计:do循环实例,例1、s=1+1/2+1/3+1/4+1/n, 当n=?时,s第一次大于10,Do While 条件表达式 循环体 Loop Do While.Loop语句的功能: 当条件成立(为真)时,执行循环体;当条件不成立(为假时),终止循环,程序:
3、 S=0 n=0 do while ( ) n=n+1 s=s+1/n loop msgbox n,特征:无法预先知道循环的次数,在递推过程中才能确定是否结束循环,s=10,VB程序设计:do循环实例,利用DO循环写程序要点:,(1)首先要确定初值,(2)确定满足循环条件的表达式(逻辑型),(3)写循环体,在循环体中一定要有能改变循环条件变量的表达式,说明:For循环只能用在循环次数已知的情况;凡是用FOR循环的程序都可以用DO循环来写;而循环次数未知时,只能用DO循环。,VB程序设计:do循环实例,上机实践:津津将10000元钱存入银行,银行的年利率为1分(即10%),如一直不取出,问按照利
4、滚利的计算方法,至少经过多少年津津才能拿到150000元?,Dim s as single, year as integer s = 10000 year = 0 Do While _ _ s = s * (1 + 0.1) Loop MsgBox year,分析: 第一年: S1=10000*(1+0.1) 第二年: S2=S1*(1+0.1) 第三年: S3=S2*(1+0.1) ,year = year + 1,S150000,VB程序设计:do循环实例,枚举算法,VB程序设计:do循环实例,水仙花问题:,春天是鲜花的季节,水仙花就是其中最迷人的代表,数学上有个水仙花数,他是这样定义的:
5、“水仙花数”是指一个三位数,它的各位数字的立方和等于其本身,比如:153=13+53+33。现在要求输出所有在100和999范围内的水仙花数。,VB程序设计:do循环实例,分析:,设三位数i,百位数为a,十位数为b,个位数为c 初始值i=100 枚举范围:i=999 满足条件:i=a3+b3+c3,思考:如何取出三位数的每位数字?,VB程序设计:do循环实例,流程图,程序代码,Private Sub Command1_Click() Dim I, a, b, c As Integer I = 100 Do While I = 999 a = I 100 b = I 10 Mod 10 c =
6、I Mod 10 If I = a 3 + b 3 + c 3 Then n = n + 1 List1.AddItem Str(I) End If I = I + 1 Loop Text1.Text = Str(n) End Sub,VB程序设计:do循环实例,列表框,列表框的功能:多列显示。,VB程序设计:do循环实例,列表框属性,Additem方法:增加新项目如: list1 . Additem str(4) removeitem方法:删除项目,小心:列表框第一个序号是 如: litst1.removeitem 4 clear方法:清除所有项目 如:list1.clear,控件方法使用格式:控件名.方法值说明:可以没有值,VB程序设计:do循环实例,控件名称:image 图片框 功能:可以加载图片、显示文字、画图外,它还能与 Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组 属性:picture(加载图片) stretch(返回或设置一个值,该值用来指定一个图形是否要调整大小,以适应与 Image 控件的大小。True 表示图形要调整大小以与控件相适合。 False (缺省值)表示控件要调整大小以与图形相适。,image,VB程序设计:do循环实例,什么是枚举?,现实世界中有一类问题可以采用
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 江西省上饶县中学2017-2018学年高二上学期期末复习政治试题
- 武汉市2024届高中毕业生四月调研考试(四调)历史试卷(含答案)
- 电子行业专题报告-存储专题跟踪:HBM引领AI存力扩容产品切换加剧产能紧缺
- 《认识液体导学案-2023-2024学年科学粤教粤科版》
- 《青贮饲料作业设计方案》
- 《空气知多少作业设计方案-2023-2024学年科学大象版》
- 《采集土壤导学案-2023-2024学年小学科学湘科版》
- 《月球上的环形山作业设计方案-2023-2024学年科学粤教版2001》
- 《鸟和哺乳动物导学案-2023-2024学年科学人教鄂教版》
- 《弯弯的月亮导学案-2023-2024学年科学青岛版2001》
- 猪胎盘的地方标准
- 测绘收费标准2002
- 中巴铁矿石谈判方案
- 水中氨氮方法验证报告
- 工业机器人技术与应用PPT完整全套教学课件
- 天津市混凝土搅拌站明细表
- 利安隆(内蒙古)新材料有限公司3000吨TMP扩建项目环评报告
- 新加坡公司章程
- 七类作业JSA分析记录表格模板
- 3500字颜体-楷书(2022年-2023年)字帖
- 七年级下《实数》作业设计
评论
0/150
提交评论