生活点滴 (十月-1)

Wednesday, October 08, 2008 | 蓝天 at 5:22 PM |

这个星期做早班,一连五天的程序如下：

Dim x as string; x = '星期' & i
Dim i as integer; i = 1
While x <= '星期5'
  Select Case Time:
      Case 5am
          爬起身准备
      Case 6.30am
          出门
      Case 7am
          开始工作
      Case 8m
          早餐
      Case 12pm
          午餐
      Case 4pm
          放工
      Case 6pm
          晚餐
      Case 8pm
          追《花好月圆》
      Case 11pm
          培养情绪gao gao chu
  End Select


  If Time > 23.59pm then
        i= i+1
  End
  x = '星期' & i

End While

Msgbox ("令人兴奋的weekend又到了!!!")