VB程序设计:do循环实例_第1页
VB程序设计:do循环实例_第2页
VB程序设计:do循环实例_第3页
VB程序设计:do循环实例_第4页
VB程序设计:do循环实例_第5页
已阅读5页,还剩9页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、课前回顾:,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,练习(学业水平测试题),1、s=1+1/2+1/3+1/4+1/n,当n=?时,s第一次大于10。,请同学们仔细观察,用曾经学过的程序设计的方法能解决这两个问题吗?,想一想:,do循环语句: Do while 条件表达式 循环体 LOOP,如:

2、我从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,例1、s=1+1/2+1/3+1/4+1/n, 当n=?时,s第一次大于10,Do While 条件表达式 循环体 Loop Do While.Loop语句的功能: 当条件成立(为真)时,执行循环体;当条件不成立(为假时),终止循环,程序: S=0 n=0 do while ( ) n=n+1 s=s+1/n loop msgbox n,

3、特征:无法预先知道循环的次数,在递推过程中才能确定是否结束循环,s=10,利用DO循环写程序要点:,(1)首先要确定初值,(2)确定满足循环条件的表达式(逻辑型),(3)写循环体,在循环体中一定要有能改变循环条件变量的表达式,说明:For循环只能用在循环次数已知的情况;凡是用FOR循环的程序都可以用DO循环来写;而循环次数未知时,只能用DO循环。,上机实践:津津将10000元钱存入银行,银行的年利率为1分(即10%),如一直不取出,问按照利滚利的计算方法,至少经过多少年津津才能拿到150000元?,Dim s as single, year as integer s = 10000 year

4、= 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,枚举算法,水仙花问题:,春天是鲜花的季节,水仙花就是其中最迷人的代表,数学上有个水仙花数,他是这样定义的:“水仙花数”是指一个三位数,它的各位数字的立方和等于其本身,比如:153=13+53+33。现在要求输出所有在100和999范围内的水仙花数。,分析:,设三位数i,百位数为a,十位数为b,个位数为c 初始值i=1

5、00 枚举范围:i=999 满足条件:i=a3+b3+c3,思考:如何取出三位数的每位数字?,流程图,程序代码,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 = 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,列表框,列表框的功能:多列显示。

6、,列表框属性,Additem方法:增加新项目如: list1 . Additem str(4) removeitem方法:删除项目,小心:列表框第一个序号是 如: litst1.removeitem 4 clear方法:清除所有项目 如:list1.clear,控件方法使用格式:控件名.方法值说明:可以没有值,控件名称:image 图片框 功能:可以加载图片、显示文字、画图外,它还能与 Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组 属性:picture(加载图片) stretch(返回或设置一个值,该值用来指定一个图形是否要调整大小,以适应与 Image 控件的大小。True 表示图形要调整大小以与控件相适合。 False (缺省值)表示控件要调整大小以与图形相适。,image,什么是枚举?,现实世界中有一类问题可以采用搜索的方法,在搜索

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论