無差別に技術をついばむ鳥

'例外処理がある時
Imports System
Public Class Program
    Public Sub Foo(ByVal i As Integer)
        If i < 0 Then
            Throw New ArgumentOutOfRangeException("マイナスは許さん！")
        End If
    End Sub

    Public Sub Bar(ByRef str As String)
        If str = Nothing Then
            Throw New ArgumentNullException("ちゃんと指定しろ！")
        ElseIf str.Length = 0 Then
            Throw New ArgumentOutOfRangeException("1文字以上指定しろ！")
        End If
    End Sub
End Class

Module Module1

    Sub Main()
        Dim foo As Program = New Program()
        Dim i As Integer = 10
        Dim str As String = Nothing
        '途中省略
        Try
            foo.Foo(i)
            foo.Bar(str)
        Catch e As ArgumentException
            Console.WriteLine(e.Message)
            Console.WriteLine(e.StackTrace)
        End Try
    End Sub

End Module
'読みやすい。はっはっはっは(^▽^)


'例外処理が無い時
Imports System
Public Class Program
    Public Sub Foo(ByVal i As Integer)
    End Sub

    Public Sub Bar(ByRef str As String)

    End Sub
End Class

Module Module1

    Sub Main()
        Dim foo As Program = New Program()
        Dim i As Integer = 10
        Dim str As String = Nothing
        '途中省略
        If i < 0 Then
            Console.WriteLine("マイナスは許さん！")
        End If
        If str = Nothing Then
            Console.WriteLine("ちゃんと指定しろ！")
        ElseIf str.Length = 0 Then
            Console.WriteLine("1文字以上指定しろ！")
        End If
    End Sub

End Module
'読みづらい・・・σ(´〜｀)ξ