読者です 読者をやめる 読者になる 読者になる

あ…ありのまま 今 起こった事を話すぜ!

         ,. -‐'''''""¨¨¨ヽ
         (.___,,,... -ァァフ|          あ…ありのまま 今 起こった事を話すぜ!
          |i i|    }! }} //|
         |l、{   j} /,,ィ//|       『Short型のSelect文のCaseに
        i|:!ヾ、_ノ/ u {:}//ヘ        文字列をCIntした値が使われていた』
        |リ u' }  ,ノ _,!V,ハ |
       /´fト、_{ル{,ィ'eラ , タ人        な… 何を言ってるのか わからねーと思うが
     /'   ヾ|宀| {´,)⌒`/ |<ヽトiゝ        おれも何をされたのかわからなかった…
    ,゙  / )ヽ iLレ  u' | | ヾlトハ〉
     |/_/  ハ !ニ⊇ '/:}  V:::::ヽ        頭がどうにかなりそうだった…
    // 二二二7'T'' /u' __ /:::::::/`ヽ
   /'´r -―一ァ‐゙T´ '"´ /::::/-‐  \    暗黙の型変換だとかマジックナンバーだとか
   / //   广¨´  /'   /:::::/´ ̄`ヽ ⌒ヽ    そんなチャチなもんじゃあ 断じてねえ
  ノ ' /  ノ:::::`ー-、___/::::://       ヽ  }
_/`丶 /:::::::::::::::::::::::::: ̄`ー-{:::...       イ  もっと恐ろしいものの片鱗を味わったぜ…

こんな。

Module Arinomama

    Sub Main(args() As String)
        Dim hoge As Short = Short.Parse(args(0))
        Select Case hoge
            Case CInt("0")
                Console.WriteLine("zero!")
            Case CInt("1")
                Console.WriteLine("one!")
        End Select
    End Sub

End Module

まじで。
助けてドラえもん!!!

つーか、現場にはこんなコードがあふれかえってるんだよ! もうなんか、悲しい! このやりきれなさを俺は一体どうしたらいいのか!

うーん、サンプルコードがShortじゃなくてSingleになってたのを修正。やっぱり、頭がどうかしてしまったようだ。