2、画出流程图,并在VB中选用恰当的循环结构实现
2、画出流程图,并在VB中选用恰当的循环结构实现
设有一张纸厚为0.1毫米,面积足够大
①问对折20次后,厚度可达到多少米?(注意单位)
②将它不断地对折,问对折多少次后,厚度可达到或
超过太阳到地球的距离?（1471亿米）
设有一张纸厚为0.1毫米,面积足够大
①问对折20次后,厚度可达到多少米?(注意单位)
②将它不断地对折,问对折多少次后,厚度可达到或
超过太阳到地球的距离?（1471亿米）
赞 米平 幼苗
共回答了10个问题采纳率：80% 举报
第一题：
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
这是 答案 有疑问 再联系我!
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
这是 答案 有疑问 再联系我!
1年前
8
可能相似的问题
-
1年前1个回答
-
求s3*3^2+3^3+.+3^20的算法,画出循环结构流程图
1年前1个回答
-
1年前1个回答
-
1年前1个回答