今天闲的没事算了一下,因为表格上给的都是理想数据(即绿了就收,不睡觉的情况),可是每个人都要睡觉的不是(调好闹钟睡一会起来收一下的狂热玩家可以忽略此贴),所以我就用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小时的。。。。。。