一张厚度为0.5mm的纸 折多少次可以达到或超过珠穆朗玛峰的高度8848.13m 用vb做

Question

如题所述

Answer 1

Dim a As Integer ''次数
Dim b As Currency

a = 0
While (b < 8848.13 * 1000)
a = a + 1
b = (2 ^ a) * 0.5
Wend

Print a

大约25本回答被网友采纳