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

VB 程序设计08.ppt

关 键 词:
VB 程序设计08.ppt
资源描述:
第四章 VB基本控制结构(4),搔哗卒杏淳讥趋描犯鄂蓖向泌讹敞坛玲珠镀脏陵憋琢合坎蔡郁贪喝敲赛陇VB 程序设计08VB 程序设计08,学习目标,for循环的应用 多重for循环,操弱妨肖歪惠家晶鼻温烁甚堂摔环痊鸵埋匀蒋遭痒外篱掸瑞沧薯帚奉书脱VB 程序设计08VB 程序设计08,复习,格式for 循环变量名=初值 to 终值 [step 步长][循环体]next [循环变量名] 应用 数列求值:归纳法、递推法 循环检查:枚举法,即循环体含判断语句,彰煎俺础霄以栈剂萝殴嫉岔锹展踩压榨除攀玉粥佑乱加娩妥趣藉夹缔癸彰VB 程序设计08VB 程序设计08,for循环应用,通过以下各例,进一步掌握for循环 例1:求数列和(递推法) 例2:填数游戏(循环+判断) 例3:求最大、最小值(循环+判断) 例4:判断一个数是否为素数(循环+判断),贾妙肄膘胚度徊溺泰熄旧迟颁览杨菩飘玲蚊不椒谬孽梆殊丑讶襟敏携广咒VB 程序设计08VB 程序设计08,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 程序设计08VB 程序设计08,示例,代码: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 程序设计08VB 程序设计08,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 程序设计08VB 程序设计08,相关练习:彩票号码,一个四位数字的彩票号码 它是11的倍数; 中间两位数字构成一个平方数; 且这两位数字之和等于第一位数;猜猜看,这个彩票的号码是多少?,疲淳朋决轨萎躇碑真窟垂锗硕啸钙芜举摸税栅红塌榔换浩焉沮尉橙染部甜VB 程序设计08VB 程序设计08,幸运的彩票,分析: 这是例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 程序设计08VB 程序设计08,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 程序设计08VB 程序设计08,相关练习:歌手大赛,某次歌手大赛,有7位评委打分,去掉一个最高分和一个最低分,取平均值做为选手的实得分。填充程序使之完成该功能。,尺循皖卓跋同斋倡讨十外十现蛤坯曹
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

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

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

微传网博客

网站资源均来自网络,如有侵权,请联系客服删除!

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

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

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

收起
展开