Date: 08/16/06 (Code WTF)    Keywords: no keywords

Слишком банально, но не могу удержатся... Индия не перестает удивлять:

Dim arrUserName(12)

arrUserName(0) = "survey"
arrUserName(1) = "survey"
arrUserName(2) = "survey"
arrUserName(3) = "survey"
arrUserName(4) = "survey"
arrUserName(5) = "survey"
arrUserName(6) = "survey"
arrUserName(7) = "survey"
arrUserName(8) = "survey"
arrUserName(9) = "survey"
arrUserName(10) = "survey"
arrUserName(11) = "survey"
arrUserName(12) = "survey"
arrUserName(13) = "survey"
arrUserName(14) = "survey"
arrUserName(15) = "survey"
arrUserName(16) = "survey"
arrUserName(17) = "survey"
arrUserName(18) = "survey"
arrUserName(19) = "survey"
arrUserName(20) = "survey"
arrUserName(21) = "survey"
arrUserName(22) = "survey"
arrUserName(23) = "survey"
arrUserName(24) = "survey"
arrUserName(25) = "survey"
arrUserName(26) = "survey"
arrUserName(27) = "survey"
arrUserName(28) = "survey"
arrUserName(29) = "survey"
arrUserName(30) = "survey"

Source: http://community.livejournal.com/code_wtf/47131.html