《天堂岛》收益时间对利润率的影响

今天闲的没事算了一下，因为表格上给的都是理想数据（即绿了就收，不睡觉的情况），可是每个人都要睡觉的不是（调好闹钟睡一会起来收一下的狂热玩家可以忽略此贴），所以我就用VB简单算了下。（众人：还真有这么无聊的人啊。。。）

下面是程序（设定8小时睡眠），我不是学计算机的，吧里学计算机的可以来看看，有没有什么明显的错误

Dim a, b, c, d

For a = 0.5 To 48 Step 0.5

b = 1

c = 0

Do

b = b + 1

c = c + a

d = c - (c 24) * 24

Loop Until d >= 16 Or d = 0

b = b - 1

If c Mod 24 = 0 Then c = c / 24 Else c = Int(c / 24) + 1

Text1.Text = Text1.Text & (b / c) & vbCrLf

10小时的。。。。。。