井口到井底青蛙共3米，一只青蛙每天往上爬一...

来源：蜘蛛抓取(WebSpider) 时间：2011-10-10 13:33 标签： 井底青蛙
欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 1871 人关注过本帖
标题：VB编程:一只青蛙掉到井底,每天向上爬4米向下掉3米,井深12米,求出青蛙几天能 ...
来　自：浙江杭州
等　级：新手上路
帖　子：17
结帖率：100%
&&问题点数：0&&回复次数：5&&&
VB编程:一只青蛙掉到井底,每天向上爬4米向下掉3米,井深12米,求出青蛙几天能够爬出来
VB编程:一只青蛙掉到井底,每天向上爬4米向下掉3米,井深12米,求出青蛙几天能够爬出来
Private sub command1_click(）
Dim a,b,c,i As Integer
a=4:b=3:c=12
i=(c-a)/(a-b)+1
我编的程序不知道对不对，求教！
搜索更多相关主题的帖子:
等　级：职业侠客
帖　子：228
专家分：301
这是脑筋急转弯吗？
等　级：贵宾
威　望：13
帖　子：211
专家分：1130
爬到井口(=12m)算出来了吗？
等　级：版主
威　望：164
帖　子：3802
专家分：23118
这种问题，用计算机，应该是用死算结果来。当然，如果更复杂的问题，那肯定是就优化算式来做。
对于这个问题，我们用计算机来计算是利用 计算机运算速度快，可以详细的列出每一步的结果。
对于引导小孩子来说，我们应该是用计算机计算详细的每一次的结果，然后得出最终结果，
再引导小孩子如何列算式来计算出结果。
-----死算的程序-------
'大概就是这样的。在浏览器写的代码，慢慢看。
Dim a As Integer,b As Integer,c As Integer,i As Integer
dim k as integer,j as integer
a=4:b=-3:c=12:i=0&&&&&&&&&&&&&&'三个初始值
k=a:j=1&&&&&&&&&&&&&&&&&&&&&&&&'K为每次移动的距离，第一次为 a,第二次是 b ，依次循环 。 J 是半天计数
i=i+k&&&&&&&&&&&&&&&&&&&&&&&&&&'青蛙移动，然后提示。在 BASIC 中， ? 表示 print ,VB6 里也不例外。
? &第 & & int(j/2+.5) & 天，青蛙到了 & & i & & 米处。&
j=j+1&&&&&&&&&&&&&&&&&&&&&&&&&&'半天计数
if k=a then k=b else k=a&&&&&& '这是一种判断方式
'if j mod 2=0 then&&k=b else k=a&&&&&&'这是另一次判断方式 ，两种改变方式用一种就可以了。
loop while i&=12&&&&&&&&&&&&&&&'青蛙没出来，继续循环
? &第 & & int(j/2+.5) & 天，青蛙出来了。&&&&&&&'最终的提示
授人于鱼，不如授人于渔
早已停用QQ了
来　自：浙江杭州
等　级：新手上路
帖　子：17
回复 2楼 w
不是脑筋急转弯，是要用VB编一道程序来计算
来　自：浙江杭州
等　级：新手上路
帖　子：17
回复 4楼 风吹过b
谢谢指教！
版权所有，并保留所有权利。
Powered by , Processed in 0.051146 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved

我要回帖

更多关于 井底青蛙 的文章

 

随机推荐