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