Per tutti i programmatori, un po di codice...divertente
Programming Nihilism
Dim Everything as Object
If Everything Is Nothing Then
MsgBox "This is a paradox of the Object-Oriented universe."
End If
--------------------------------------------------------------------------------
Sub and Function Names
Sub MachineGun ()
Sub Stitute ()
Sub Marine ()
Sub Human ()
Function Ality ()
--------------------------------------------------------------------------------
Declaration Statements
Dim Lotus(1 To 3)
Dim Wit, TheLights
Public Exposure
Dim Julian As Boolean, King As String, Kong As Long
Dim BaseballCards As New Collection
Dim Mouthful as Byte
Dim Dewey As Decimal
Dim DatingService As Single
Public Nudity As Graphic
Dim Trouble As Double
Static Cling, Electricity
Dim Rope as String
Dim Bones, Bones, DryBones
ReDim HisRights
--------------------------------------------------------------------------------
VBA Statements
If IsMissing(InAction) Then GoTo MilkCarton
If IsNull(Warranty) And Void Then BuyaNew1
Cocktail = Abs(Vodka)
SendKeys "Because I'm locked out"
Synergy = Whole > Application.Sum(ItsParts)
Brightness = Array("of", "light")
Yield = Right(OfWay, 2)
Perfect10 = DateValue(Tiffany)
If(IsEmpty(Head)) Then GoTo School
WoodenHouse = Log(Cabin)
Kill("SomeTime")
Heart = Val(Entine)
RaiseEvent Hell
Brittney = Space(Cadet)
Seek(AndYeShallFind)
Lonely = Left(Out, 1)
OnWithThe.Show
DeadActor = Dir("WoodKirby")
Call MeACab(Hansom)
Application.Run "Away".
GoodIdea.Copy
Wallpaper.Paste
Range("HomeOnThe").Activate
Lubricant = Shell("\Oil")
Mismatch = Round(Sqr(Peg), 0)
Actor = Val(Kilmer)
Map = Rand(McNally)
GoTo Jail
Do
Walk Backwards
Loop Until Christmas