注册 登录
编程论坛 VB6论坛

VB编程:一只青蛙掉到井底,每天向上爬4米向下掉3米,井深12米,求出青蛙几天能够爬出来

xiaoqing2014 发布于 2014-03-08 14:45, 3516 次点击
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
Print i
End sub
我编的程序不知道对不对,求教!
5 回复
#2
w3609894262014-03-08 14:47
这是脑筋急转弯吗?
#3
owenlu19812014-03-08 15:07
爬到井口(=12m)算出来了吗?
#4
风吹过b2014-03-08 18:28
这种问题,用计算机,应该是用死算结果来。当然,如果更复杂的问题,那肯定是就优化算式来做。
对于这个问题,我们用计算机来计算是利用 计算机运算速度快,可以详细的列出每一步的结果。
对于引导小孩子来说,我们应该是用计算机计算详细的每一次的结果,然后得出最终结果,
再引导小孩子如何列算式来计算出结果。

-----死算的程序-------
'大概就是这样的。在浏览器写的代码,慢慢看。
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 是半天计数
do
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) " 天,青蛙出来了。"      '最终的提示
End sub
#5
xiaoqing20142014-03-09 14:23
回复 2楼 w360989426
不是脑筋急转弯,是要用VB编一道程序来计算
#6
xiaoqing20142014-03-09 14:23
回复 4楼 风吹过b
谢谢指教!
1