作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/19 02:28:38
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
这是 答案 有疑问 再联系我!