别说我闲,nothing啊, nothing ... ...

'本程序名为"Nothing之歌",代码中包含了整50个"Nothing"。
'打开Visual Studio 2008(必须！)，新建一个VB控制台工程,命名为"Nothing"(必须！)。
'然后将自动生成的代码用本代码替换,再修改工程的启动方式为"Sub Main",按下Ctrl+F5键运行

Option Strict Off          :Option Explicit On:   Option Infer On'VB我爱你!伟大
  <Serializable              , ComponentModel      . Editor ( ) > Class [Nothing]
   Shared  Sub               Main(ParamArray       ByVal [Nothing] As String() ) '的
   Call  Global             .Nothing.Nothing       .Nothing([Nothing] := If([Nothing] _
    Is Nothing ,            Nothing,Nothing        )) 'VB万             岁! 此刻VB已灵
    End Sub '魂            附体!已不是一个         VB在战斗              ！绝不是一个VB！
     Shared  Sub           [Nothing](ByVal         Optional               [Nothing] As _
     String    =           Nothing) '生命          不息，VB              不止!!VB哦耶!!
      If[Nothing]         Is Nothing Then          :For I = CDec(Nothing) To CLng( _
      Nothing   )         Step Nothing ^           Nothing: Do While Not Nothing IsNot _
      Nothing:Select     Case Math.Sin(            CInt(Nothing) Mod Nothing ^ Nothing)
       Case     not      Nothing   Like            Nothing :Try: With Nothing:SyncLock _
       Nothing  : If    Choose (Left (             Nothing,              Nothing ), _
        Nothing, Nothing ) Then : GoTo             [NoThing]              :End If : End _
        SyncLock: End With:Catch When              Nothing>>              Nothing=Nothing
         If TryCast(Nothing,[Nothing])             Is Nothing            Then:Continue _
         For:End If:End Try:Case Else              :[Nothing] += +-Nothing & -+Nothing _
          :End Select: Loop : Next :               Array.ForEach((((Math.Pow(Math.PI, _
          Math.PI) << 1)+ CInt(Math.               PI<<1))& Hex(AscW(vbCr)) & SByte. _
          MaxValue &CInt(Nothing)).               ToCharArray, New Action(Of Char) _
 _
 _
                                                           (AddressOf Global.Nothing. _
                Nothing.  Nothing)):ElseIf Nothing Is Nothing Then:
   [Nothing]:Console.Write ( ChrW ( Integer.Parse ([Nothing] , _
   Globalization.NumberStyles.HexNumber) + 103)):End If
        End Sub:End Class