用VB求这种折纸的次数

,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,求折纸的次数,一张纸的厚度为,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,属性,对象,名称,标题,字体,文本,Name,Caption,Font,Text,窗口,Form1,求折纸的次数,宋体,标签,1,L1,一张纸的厚度为,0.1,毫米，如果可以折纸要折多少次才能将纸的厚度超过珠穆琅雅峰,(8848,米,),的高度,?,宋体四号,标签,2,L2,设次数为：,n,宋体四号,按钮,1,C1,求解,宋体小五,按钮,2,C2,退出,宋体小五,对象,属性,方法,对象,名称,启动,单击,Name,Load(),Click(),窗口,Form1,无,标签,1,L1,无,标签,2,L2,无,按钮,1,C1,无,运行程序,按钮,2,C2,无,END,对象,方法,h=0.1,n=0,While h 8848000,h=2*h,n=n+1,Print n;,次,;,厚度,;h,Wend,L2.Caption=,需要折纸的次数为：,&n,运行程序,