2、画出流程图,并在VB中选用恰当的循环结构实现

2、画出流程图,并在VB中选用恰当的循环结构实现
设有一张纸厚为0.1毫米,面积足够大
①问对折20次后,厚度可达到多少米?(注意单位)
②将它不断地对折,问对折多少次后,厚度可达到或
超过太阳到地球的距离?（1471亿米）

第一题：
Private Sub Command1_Click()
For u = 1 To 20
h = 0.0001 * (2 ^ u)
Next
Print 厚度为0.1毫米的纸,折叠20次后厚度为 & h & 米
End Sub
第二题：
Private Sub Command1_Click()
Do Until h >= 147100000
u = u + 1
h = 0.0000001 * 2 ^ u
Loop
Print 厚度为0.1毫米的纸,折叠 & u & 次后厚度超过或接近地球到太阳的距离!
End Sub
这是 答案 有疑问 再联系我!

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息