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

求折纸的次数 * * 一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度? 开始 h=0.1 n=0 h8848000 h=2*h n=n+1 结束 输出n结果 Y N 一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度? 设：h为纸的厚度，n为折纸的次数 开始 h=0.1 n=0 h8848000 h=2*h n=n+1 结束 输出n结果 Y N 一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度? 设：h为纸的厚度，n为折纸的次数 h = 0.1 n = 0 While h 8848000 h = 2 * h n = n + 1 Print n; 次; 厚度; h Wend L2.Caption = 需要折纸的次数为： n 一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度? 求解 退出 一张纸的厚度为0.1毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰(8848米)的高度? 设次数为：n 标签：L1 标签：L2 按钮：C1 按钮：C2 窗口：Form1 \ 宋体小五 求解 C1 按钮1 \ 宋体小五 退出 C2 按钮2 Text Font Cap