Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Chit Chat (http://www.go4expert.com/community/chit-chat/)
-   -   A Programmer's Reference for Excuses (http://www.go4expert.com/community/programmers-reference-excuses-t3681/)

pradeep 30Mar2007 13:53

A Programmer's Reference for Excuses
 
Code: VB

Private Function getProgrammerExcuse() As String
     
      Dim myExcuses(1 to 21) As String
     
      myExcuses(1)"That's Weird...",
      myExcuses(2) =     "It's never done that before.",
      myExcuses(3) =     "It worked yesterday.",
      myExcuses(4) =     "How is that possible?",
      myExcuses(5) =     "It must have a hardware problem.",
      myExcuses(6) =     "What did you type in wrong to get it to crash." ,
      myExcuses(7) =     "There is something funky in your data",
      myExcuses(8) =     "I haven't touched that module in weeks!" ,
      myExcuses(9) =     "You must have wrong version.",
      myExcuses(10) =     "It's just some unlucky coincidence." ,
      myExcuses(11) =     "I can't test everything!",
      myExcuses(12) =     "THIS can't be the source of THAT." ,
      myExcuses(13) =     "It works, but it's not been tested." ,
      myExcuses(14) =     "Somebody must have changed my code.",
      myExcuses(15) =     "Did you check for a virus on your system?",
      myExcuses(16) =     "Even though it doesnt work, how does it feel?" ,
      myExcuses(17) =     "You cant use that version on your system.",
      myExcuses(18) =     "Why do you want to do it that way?",
      myExcuses(19) =     "Where were you when the program blew up?",
      myExcuses(20) =     "I thought I fixed that.",
      myExcuses(21) =     "This is not a bug,its undocumented feature."
     
      Dim randomChoice As New Random(UBound(myExcuses))
      Dim iRandomChoice As Integer = randomChoice.Next()
     
      Return myExcuses(iRandomChoice)
     
     End Function



All times are GMT +5.5. The time now is 13:35.