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

　　　　　　　　 ,. -‐'''''""¨¨¨ヽ
　　　　 　 　 (.＿＿_,,,... -ｧァﾌ|　　　　　　　　　　あ…ありのまま 今　起こった事を話すぜ！
　 　 　 　 　 |i i|　 　 }!　}} /／|
　　　　 　 　 |l､{　 　j}　/,,ｨ//｜　　　　　　　『Short型のSelect文のCaseに
　　　　　　　 i|:!ヾ､_ﾉ／ u {:}//ﾍ　　　　　　　　文字列をCIntした値が使われていた』
　　　　　　　 |ﾘ u' }　 ,ﾉ　_,!V,ﾊ |
　　 　 　 ／´fト､_{ﾙ{,ィ'ｅﾗ　, ﾀ人　　　　　　　　な…　何を言ってるのか　わからねーと思うが
　　　　 /' 　 ヾ|宀| {´,)⌒`/ |<ヽﾄiゝ　　　　　　　　おれも何をされたのかわからなかった…
　　　　,ﾞ　 ／ )ヽ iLﾚ 　u' |　| ヾｌﾄﾊ〉
　　 　 |／_／　 ﾊ !ニ⊇　'／:} 　V:::::ヽ　　　　　　　　頭がどうにかなりそうだった…
　　　 /／ 二二二7'T'' ／u'　__ /:::::::/｀ヽ
　　　/'´r　-―一ｧ‐ﾞＴ´　'"´ ／::::／-‐ 　＼　　　　暗黙の型変換だとかマジックナンバーだとか
　　 / // 　 广¨´ 　/'　　 ／:::::／´￣｀ヽ ⌒ヽ　　　　そんなチャチなもんじゃあ　断じてねえ
　　ﾉ ' /　 ノ:::::`ー-､___／:::::／/ 　 　 　 ヽ　　}
_／｀丶　/::::::::::::::::::::::::::￣`ー-{:::...　　　 　　　ｲ　 もっと恐ろしいものの片鱗を味わったぜ…

こんな。

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になってたのを修正。やっぱり、頭がどうかしてしまったようだ。