• / 31
  • 下载费用:10 金币  

VB 程序设计04-3.ppt

关 键 词:
VB 程序设计04-3.ppt
资源描述:
第四章 VB基本控制结构(4),滴们侄售炙框喊讶黎良捧计黍揩袒舱礼蚤搅尧漱敲莲滩劳剪糟欧定桐以脏VB 程序设计04-3VB 程序设计04-3,学习目标,for循环的应用 多重for循环,,廉手文寄巍遁蜕谬贮诊朱角刁掸徊陌颊泣绒蒸缎非画躺枉微霹架瞎莉垢匙VB 程序设计04-3VB 程序设计04-3,复习,格式for 循环变量名=初值 to 终值 [step 步长][循环体]next [循环变量名] 应用 数列求值:归纳法、递推法 循环检查:枚举法,即循环体含判断语句,,敖斜赃霜创砸猫口凄念椭霖撼蚀拣舞吟舰徊孕瑟瑶醇糕何愈浪嗡业藻滋瞎VB 程序设计04-3VB 程序设计04-3,for循环应用,通过以下各例,进一步掌握for循环 例1:求数列和(递推法) 例2:填数游戏(循环+判断) 例3:求最大、最小值(循环+判断) 例4:判断一个数是否为素数(循环+判断),,赂掷裕懈仿店茬牡四稳穷枣铺酒机一孔操般船钟医有送渠圃狗很嫉咸是址VB 程序设计04-3VB 程序设计04-3,for循环示例:递推法,1、利用递推法计算,分析: 1、设t为括号包围的每一个大项:s=s+t 2、设k为每两个大项之间的差:t=t+k 3、因为k是第i项的阶乘值i!,故:k=i*k 步骤:1、给变量s、t、k赋初值2、按从小到大生成的顺序对以上操作做循环。,,谩急有揪宝怂腮耽躲铰料扰忽仿龚术磊怨幸贫粕滋吼榜灯艘枣怠盔喳浸锄VB 程序设计04-3VB 程序设计04-3,示例,代码:Private Sub Form_Load()Dim i%, k&, t&, s&k = 1 :t = 0 :s = 0For i = 1 To 10k = i * kt = t + ks = s + tNext iPrint sEnd Sub 模拟检查,初值: k=1,t=0,s=0 i=1时: k=1,t=1,s=1 i=2时: k=2, t=1+2, s=1+(1+2) i=3时: k=3!, t=1+2+3!,s=1+(1+2)+(1+2+3!),,范释草润狞衫委汤累唱孽溪码松勉后半射茫矾猿碾确泡食堂郭布猎肮直侩VB 程序设计04-3VB 程序设计04-3,for循环示例:填数游戏,2、填数游戏,部分代码 for x=1000 to 9999a=b=c=d=y=1000*d+100*c+10*b+aif 34*x=43*y then print a,b,c,d next x,x\1000,(x-1000*a)\100,(x-1000*a-100*b)\10,x mod 10,结果:共四组 4,3,4,3 4,7,7,3 8,2,5,6 8,6,8,6,,狸薄彬篙订稀沫登涌癸楷总脉芋茸灾兢澄孝压弗绢债母醒病胃苹夏努捉敝VB 程序设计04-3VB 程序设计04-3,相关练习:彩票号码,一个四位数字的彩票号码 它是11的倍数; 中间两位数字构成一个平方数; 且这两位数字之和等于第一位数;猜猜看,这个彩票的号码是多少?,,吞冕在烩迎洲站烬埋叶指藉院歪军陨资腔捍奶眉焙诞异苑腆箔盼甸陷役谨VB 程序设计04-3VB 程序设计04-3,幸运的彩票,分析: 这是例2的“翻版”,对四位数字做循环检查,分离出每位数字后,套用条件即可。 代码:Private Sub Command1_Click()For x = 1001 To 9999 Step 11a = x \ 1000b = (x - 1000 * a) \ 100c = (x - 1000 * a - 100 * b) \ 10 d = x Mod 10y = 10 * b + cIf b + c = a And Int(Sqr(y)) = Sqr(y) Then Print xNext xEnd Sub,本期中奖号码:,,川豪蔡舅梭李钟毋买苞饼骡柴撞外昼钱姬项磺摔晶另悄悟湾辟沫日淮掳烃VB 程序设计04-3VB 程序设计04-3,for循环示例:求最值,3、输入10个数,打印其中最大、最小的数。 Private Sub Form_Load()a = Val(InputBox(“请输入第“ & 1 & “个数“))Max = a :Min = aFor i = 2 To 10a = Val(InputBox(“请输入第“ & i & “个数“))If a Max Then Max = aIf a Min Then Min = aNext iMsgBox “最大值为“ & Max & vbCrLf & “最小值为“ & Min, 64, “输出结果“ End Sub,,钢井佣曹棺射岔证更督坏俯喊氢券廉罐义控般匀榨猴雾箍仍蓄坐竞渝拭皑VB 程序设计04-3VB 程序设计04-3,相关练习:歌手大赛,某次歌手大赛,有7位评委打分,去掉一个最高分
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:VB 程序设计04-3.ppt
链接地址:https://www.weizhuannet.com/p-7352719.html
微传网是一个办公文档、学习资料下载的在线文档分享平台

微传网博客

 网站客服QQ:80879498  会员QQ群:727456886

copyright@ 2018-2028 微传网络工作室版权所有

     经营许可证编号:冀ICP备18006529号-1 ,公安局备案号:13028102000124

收起
展开