求解一道vb已知珠穆朗玛峰海拔高度是8848米,设想有一张足够大的纸,其厚度为0.05毫米.试编写程序,谢进行折叠几次能有珠穆朗玛峰的厚度

Question

求解一道vb
已知珠穆朗玛峰海拔高度是8848米,设想有一张足够大的纸,其厚度为0.05毫米.试编写程序,谢
进行折叠几次能有珠穆朗玛峰的厚度

Answer 1

Private Sub Form_Load()
Dim I As Long
Dim Y As Double
Y = 0.05
I = 0
Do While Y < 8848
Y = Y * 2
I = I + 1
Loop
MsgBox I
End Sub