用VB求这种折纸的次数.ppt

《用VB求这种折纸的次数.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、求折纸的次数一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度?开始h=0.1n=0h<8848000h=2*hn=n+1结束输出n结果YN一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度?设：h为纸的厚度，n为折纸的次数开始h=0.1n=0h<8848000h=2*hn=n+1结束输出n结果YN一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度?设：h为纸的厚度，n为折纸的次数h=0.1n=0Whileh<884800

2、0h=2*hn=n+1Printn;"次";"厚度";hWendL2.Caption="需要折纸的次数为："&n一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度?求解退出一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度?设次数为：n标签：L1标签：L2按钮：C1按钮：C2窗口：Form1属性对象名称标题字体文本NameCaptionFontText窗口Form1求折纸的次数宋体标签1L1一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰

3、(8848米)的高度?宋体四号标签2L2设次数为：n宋体四号按钮1C1求解宋体小五按钮2C2退出宋体小五对象——属性方法对象名称启动单击NameLoad()Click()窗口Form1无标签1L1无标签2L2无按钮1C1无运行程序按钮2C2无END对象——方法h=0.1n=0Whileh<8848000h=2*hn=n+1Printn;"次";"厚度";hWendL2.Caption="需要折纸的次数为："&n运行程序