石油历史走势分析:请VB高手帮忙一道初中的题目

来源:百度文库 编辑:高考问答 时间:2024/04/29 17:10:58
题目如下:
假设有一张足够大的纸,纸的厚度为0.1毫米,现将其对折,再对折,其厚度不断增加(折纸时,纸的厚度按愿厚度的确、2、4、8……的规律递增)。问要折多少次,才能使其厚度达到或超过8848米呢?试在横线上填写合适的语句或表达式,解决这个问题。
(然后是代码)
private sub form_click()
thickness = 0.1/1000
n=0
high=8848
Do While______________
n=_________
thickness=_________
Loop
Print"折";n;"次,厚度可达到";thickness:"高于珠峰"
请问横线上应该填什么?先谢了!!!!

private sub form_click()
thickness = 0.1/1000
n=0
high=8848
Do While thickness<high
n=n+1
thickness=thickness*2
Loop

private sub form_click()
thickness = 0.1/1000
n=0
high=8848
Do While thickness<high
n=n+1
thickness=thickness*2
Loop

好简单