5000 Elefantes (VBS)

Suerte tratando de deshacerse de este :)  VBS puede ser odioso.  El código a continuación mostrara en la pantalla la letra de la canción infantil.  Solo es necesario guardar el código en un archivo con extensión vbs y darle doble click.

'Chorromil Elefantes (by Jon Tohrs)
'send me money -_-

For i = 1 To 5000 Step 1
    Select Case i
        Case 1
            msg i & " Elefante"
     msg "se columpiaba"
     msg "sobre la tela"
     msg "de una araña"
     msg "como veia"
     msg "que resistia"
     msg "fue a llamar"
     msg "a otro elefante..."
        Case Else
            msg i & " Elefantes"
     msg "se columpiaban"
     msg "sobre la tela"
     msg "de una araña"
     msg "como veian"
     msg "que resistia"
     msg "fueron a llamar"
     msg "a otro elefante..."
    End Select
Next

Sub msg(message)
    MsgBox message, , "5000 Elefantes"
End Sub