




已阅读5页,还剩49页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
第5章,循环结构程序设计,采用循环程序可以解决一些按一定规则重复执行的问题。例如,统计一个班几十名学生,甚至全校几千名学生的学期成绩,如求平均分、不及格人数等本章主要内容,第5章循环结构程序设计,Do.Loop,For.Next,退出,循环出口语句(Exit),循环语句,多重循环,列表框与组合框,常用算法,程序举例,循环是指在指定的条件下多次重复执行一组语句被重复执行的一组语句称为循环体VB提供的循环语句有For.NextDo.LoopWhile.WendForEach.Next最常用的是For.Next和Do.Loop语句,For.Next循环主要是用在知道循环次数的情况下;若事先不知道循环次数,可以使用当型循环Do.Loop1.For.Next循环语句(计数控制)For循环变量初值To终值Step步长值循环体Next循环变量2.DoWhile.Loop语句(条件控制)DoWhile|Until条件循环体Loop,5.1循环语句示例求S=1+2+3+8,s=0Fork=1To8s=s+kNextkPrints=;s程序运行结果如下:s36,n=1:s=0DoWhilen=8s=s+nn=n+1LoopPrints=;s,例5.2,K为循环变量,专设变量n来控制循环,例5.2求S=1+2+3+8,把结果显示在窗体上。s=0累加器初值为0Fork=1To8s=s+k累加器,在原有和的基础上每次加一个数NextPrints=;s程序执行结果是:s36分析,算法:通常采用重复运算来解决问题累加、累乘等如用级数/41-1/3+1/5-1/7+来求设置循环变量使每次运算变量值有所不同控制循环计数控制或条件控制,循环结构程序的实现,求S=1+2+3+8s=0Fork=1To8s=s+kNextkPrints=;s把长式子改为8次加,采用Print直接在窗体上输出结果,程序代码:PrivateSubForm_Load()Showt=1Forc=1To8t=t*cNextcPrintT=;tEndSub程序运行结果是:T40320语句t=t*c称为乘法器。先将t置1(不能置0)。在循环程序中,常用累加和累乘来完成各种计算任务,例5.3求T=8!=1238,例5.3,例5.3T=8!=1238,把结果显示在网页上。t=1累乘器初值为Forc=1To8t=t*c累乘器,在原有积的基础上每次乘一个数NextPrintT=;t程序执行结果是:T40320分析,采用Print直接在窗体上输出结果,程序代码如下:PrivateSubForm_Load()ShowDimpiAsSingle,cAsInteger,sAsIntegerpi=0s=1s表示加或减运算Forc=1To10000Step2pi=pi+s/cs=-s交替改变加、减号NextcPrint=;pi*4EndSub程序运行结果是:3.141397,例5.4用/41-1/3+1/5-1/7+级数求的近似值(取前5000项来进行计算),例5.4,Fort=1To3Ift=1Thena=3Ift=2Thena=2Ift=3Thena=1Printa;NexttPrinttA.3334B.1234C.3214D.1114,下列程序的运行结果是?,想一想,思考题,C,运行下面程序后,循环体执行了_次。i=0:n=1DoWhilei32i=(i+1)*(i+1)n=n+1LoopPrintnA.2B.3C.4D.5,请回答问题,想一想,思考题,C,s=ABCDEFGHIJ:c=Fork=2ToLen(s)Step3a=Mid(s,k)c=c+Left(a,1)NextkPrintcA.BDFB.CFIC.BEHD.BEI,下列程序的运行结果是?,想一想,思考题,C,采用DoWhile.Loop语句采用Print直接在窗体上输出结果,程序代码:PrivateSubForm_Load()DimnAsInteger,sAsLongShown=1:s=0DoWhilen=0Thenn=n+1Print(;n;),c,b,aEndIfNextb,aEndSub,执行下列程序段后,变量t的值是_。t=0Forx=2To3n=1DoWhilen0s=xModn取余数x=Int(x/n)求商y=Mid(Ch,s+1,1)+y换码,反序加入LoopText2.Text=yEndSub,PrivateSubCommand2_Click()结束EndEndSub,示例:(142)10=(8E)16,例5.19,(1)创建应用程序的用户界面(2)设置对象属性组合框的Style属性为0,TabIndex(键序)为0两个标签;四个命令按钮;一个文本框Text1,用来显示当前的选修课总课程数,例5.20编制程序,把一批课程名放入组合框中,再对组合框进行项目显示、添加、删除、全部删除等操作,例5.20,(3)编写程序代码PrivateSubForm_Load()Combo1.AddItem电子商务Combo1.AddItem网页制作Combo1.AddItemInternet简明教程Combo1.AddItem计算机网络基础Combo1.AddItem多媒体技术Combo1.Text=置空值Text1.Text=Combo1.ListCount表项个数EndSubPrivateSubCommand1_Click()”添加”IfLen(Combo1.Text)0ThenCombo1.AddItemCombo1.TextText1.Text=Combo1.ListCountEndIfCombo1.Text=Combo1.SetFocusEndSub,PrivateSubCommand2_Click()“删除”DimindAsIntegerind=Combo1.ListIndexIfind-1Then-1表示无表项Combo1.RemoveItemind删除已选定的表项Text1.Text=Combo1.
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025管理人员安全培训考试试题答案B卷
- 2025年超声波大口径井径检测设备合作协议书
- 2025-2030中国摄像头电池盖行业市场发展趋势与前景展望战略研究报告
- 2025-2030中国手机充电线行业市场现状供需分析及市场深度研究发展前景及规划可行性分析研究报告
- 2025-2030中国微创外科行业市场发展趋势与前景展望战略研究报告
- 2025-2030中国干料旋转拨杆液位开关行业市场发展趋势与前景展望战略研究报告
- 2025-2030中国婴儿硅胶奶嘴行业发展分析及投资前景预测研究报告
- 2025-2030中国多通道网络(MCN)行业市场发展趋势与前景展望战略研究报告
- 2025-2030中国城市交通控制行业市场发展现状及发展趋势与投资前景研究报告
- 2025-2030中国双波长红外辐射灯行业市场发展趋势与前景展望战略研究报告
- 高中历史双向细目表
- 苏教版四年级下册数学期中复习
- 2023年深圳市医疗保障局光明分局公开招聘一般类岗位专干1人模拟检测试卷【共1000题含答案解析】
- 常用消毒剂分类及消毒方法演示文稿
- GB/T 1174-1992铸造轴承合金
- GB 4789.3-2016食品安全国家标准食品微生物学检验大肠菌群计数
- 化学反应的限度和化学反应条件的控制 课件
- GA 526-2010监室门
- 精益六西格玛绿带
- 马克思个人介绍
- 全国青少年机器人技术等级考试:二级培训全套课件
评论
0/150
提交评论