紧急求助一个VB程序设计~谢谢帮忙

来源：百度知道 编辑：UC知道 时间：2024/04/27 02:40:10
1、 设有一张厚为x毫米，面积足够大的纸，将它不断地对折。试问对折多少次后，其厚度可达珠穆朗玛峰的高度（8848米）。在窗体上设计相应的控件，编写程序实现上述功能
最好是用FOR或IF来解决~谢谢

设置控件:
一个COMMANDBUTTON控件,叫COMMAND1
一个LABEL控件,叫LABEL1
设置代码:
Private Sub Command1_Click()
Dim R, X
X = 0.01
While X < 8848000
X = X * 2
R = R + 1
Wend
Label1.Caption = R
End Sub
位置自定!

你要这个有什么用么？不理解？