VB编程：假设纸的长度足够长，后度为0.1毫米，对折一次厚度增加1倍，.......

其实就是求对数，2的n次方等于珠峰的高度，求出n就可以了。
n=log(8848.13*10^5)/log(2),得出结果是29.720。。。后面省略。
代码就一行：
MsgBox Log(8848.13 * 10 ^ 5) / Log(2)

0.1不停倍乘，然后判断值大于8848.13就退出循环，显示循环的次数
m=1
do until m>88481300
m=m×2
i=i+1
loop
print i

30次 任何一张纸都不可能对折30次

dim i as integer
i=int(log(8848.13*1000/0.1)/log(2))+1
print "对折次数";i