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
我编的程序不知道对不对，求教！

这是脑筋急转弯吗？

爬到井口(=12m)算出来了吗？

这种问题，用计算机，应该是用死算结果来。当然，如果更复杂的问题，那肯定是就优化算式来做。
对于这个问题，我们用计算机来计算是利用 计算机运算速度快，可以详细的列出每一步的结果。
对于引导小孩子来说，我们应该是用计算机计算详细的每一次的结果，然后得出最终结果，
再引导小孩子如何列算式来计算出结果。

-----死算的程序-------
'大概就是这样的。在浏览器写的代码，慢慢看。
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

不是脑筋急转弯，是要用VB编一道程序来计算

谢谢指教！