程序中的循环.ppt

《程序中的循环.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第五讲程序中的循环问：纸的厚度为0.06mm，珠穆朗玛峰的高度约为8844000mm，假如纸的面积足够大，将它不断对折，对折多少次后厚度可达到珠穆朗玛峰的高度？一、“纸对折”程序Leth=0.06'将纸的厚度存入变量hLetn=0'变量n统计对折的次数Leth=h*2'对折一次后纸厚度加倍Letn=n+1'对折次数增加1Print"对折";n;"次"'输出对折次数Print"厚度为";h/1000;"米"'输出纸的厚度PrivateSubCommand1_Click()Leth=0.06'将纸的厚度存入变量hLetn=0'变

2、量n统计对折的次数Fori=1To100Leth=h*2'对折一次后纸厚度加倍Letn=n+1'对折次数增加1NextiPrint"对折";n;"次"'输出对折次数Print"厚度为";h/1000;"米"'输出纸的厚度EndSub二、循环语句在程序中重复执行某程序段称为循环。被重复执行的程序段称为循环体。1、计数循环语句For<循环变量=初值>To<终值>[Step步长][循环体]Next[循环变量]PrivateSubCommand1_Click()Leth=0.06'将纸的厚度存入变量hLetn=0'变量n统计对折的次

3、数DoWhileh<8844000Leth=h*2'对折一次后纸厚度加倍Letn=n+1'对折次数增加1LoopPrint"对折";n;"次"'输出对折次数Print"厚度为";h/1000;"米"'输出纸的厚度EndSub2、条件循环语句DoWhile<条件>[循环体]Loop三、VB中的定时器DimiAsInteger'存放秒值变量Rem“开始”按钮对象中的程序PrivateSubCommand1_Click()i=Text1.Text'文本框对象中输入的秒值放入i变量Timer1.Enabled=True'使定时器开始

4、工作进行循环EndSubRem定时器对象中的程序PrivateSubTimer1_Timer()i=i-1'秒数递减Text1.Text=i'将递减后的秒数值显示在文本框中Ifi=0ThenTimer1.Enabled=False'当秒值递减到0时关闭定时器，停止循环EndSubPrivateSubCommand2_Click()EndEndSub