DEN PROGRAMÁTORA

Dim Zpráva As Variant, I As Integer, J As Integer, K As Integer, X As Integer, Y As Integer, Z As Integer
Dim Svět(20, 20, 20) As Double, Houska(10, 10, 10) As Double, Čaj(10, 10, 10) As Double

Private Sub Ráno_Click()
  For (I, J, K) = (1 To 20)
    If Me.Svět(I, J, K).Font.Color = RGB(64, 0, 0) Then Me.Svět(I, J, K).ClearContents
    ‘RGB(64, 0, 0) je hnědá
  Next (K, J, I)
  Zpráva = MsgBox(„Čau kámo ! Zase jsou venku ty sračky ! Už mě nebaví to čistit !“, 
                 vbExclamation, „Ráno“)
End Sub

Private Sub Snídaně_Click()
  For X = 1 To 10
    Me.Houska(X, 1, 1) = Me.Houska(X, 1, 1)  + 1
    Me.Čaj(1, X, 1) = Me.Houska(1, X, 1)  + 1
  Next X
  Me.Pusa.Enabled = True
End Sub

Private Sub Práce_Click()
  Zpráva = MsgBox(„Čau kámo ! Jdeme zapařit !“, vbExclamation, „Wowko“)
  Y = 1: Z = 1
  If Y = 0 Then Me.Hlava.Caption = „Měl bych jít do práce.“
  If Z = 0 Then Me.Ruce.Caption = „Měly bychom něco dělat.“
End Sub

Private Sub Večeře_Click()
  Do
    Me.Břicho.Caption = „Mám hlad !“
  Loop Until Me.Hlava.Enabled = False
End Sub

Private Sub Noc_Click()
  For (I, J, K) = (1 To 20)
    Me.World(I, J, K).Font.Color = RGB(64, 0, 0) ‘RGB(64, 0, 0) je hnědá
  Next (K, J, I)
  Zpráva = MsgBox(„Seru na vás !“, vbOKonly, „Svět“)
End Sub