早教吧 育儿知识 作业答案 考试题库 百科 知识分享

VB编程:假设纸的长度足够长,后度为0.1毫米,对折一次厚度增加1倍,现在对折纸张,直到总厚度超过珠穆朗玛峰高度为止(8848.13米),求对折次数?复制就能用!

题目详情
VB编程:假设纸的长度足够长,后度为0.1毫米,对折一次厚度增加1倍,现在对折纸张,直到总厚度超过珠穆朗玛峰高度为止(8848.13米),求对折次数?复制就能用!
▼优质解答
答案和解析
private sub command1_click()
m=0.1
do until m>88481300
m=m*2
i=i+1
loop
msgbox "对折次数:" & i
end sub
看了 VB编程:假设纸的长度足够长...的网友还看了以下: