关于VB程序设计问题

首先纸的厚度肯定位偶数

假设纸厚为4424米，那只需要对折1次，也是最少的1次
依次类推，当对折2次，达到8848的厚度，那纸的厚度为8848/4=2212米
3次为8848/8等于1106
4次纸厚位8848/16=553
5次8848/32=276.5
7次8848/64=138.25
8次8848/128=69.125

同上,差不多的```

Private Sub Form_Load()
Form1.Show
Dim I As Integer
Dim X As Single
I = 0
X = InputBox("请输入纸的厚度：", "输入")
While Not 2 ^ I >= 884800 / X
I = I + 1
Wend
Print "至少对折" & I & "次"
Print "对折后的高度为" & 2 ^ I * X / 100 & "米"
End Sub

Private Sub Form_Load()
Form1.Show
Dim I As Integer
Dim X As Single
X = InputBox("请输入纸的厚度：", "输入")
For I = 1 To 1000
If 2 ^ I >= 884800 / X Then Exit For
Next
Print "至少对折" & I & "次"
Print "对折后的高度为" & 2 ^ I * X / 100 & "米"
End Sub