VB.NET If文条件分岐を行うサンプル

VB.NETのIf文のサンプルです。条件で処理を分岐する時に使用します。

If文	If文とは / If文のサンプル / String型の値の比較 / ネスト構造 if文の中にif文
	値の一部で比較する(like演算子) / null(nothing)を比較
	比較演算子
論理演算子	論理積(And) AかつB / 論理和(Or) AまたはB / 論理否定(Not) Aではない
	排他的論理和(Xor)

If文とは

If 条件式 Then
　　処理
End If

' ElseIfとElseを書く場合
If 条件式 Then
　　処理
ElseIf 条件式 Then
　　処理
Else
　　処理
End If

条件が合致する場合、配下の処理が実行され、if文の処理は終了します。
条件が合致することをtrue(真)ともいいます。
条件が合致しない場合、配下の処理は実行されず、その下(ElseIf/Else)に進みます。
条件が合致しないことをfalse(偽)ともいいます。
ElseIfは、複数記述できます。省略可です。
Elseは、１つのみ記述できます。省略可能です。elseの処理は、どの条件も合致しなかったときに実行されます。

If文のサンプル

Module Module1
    Sub Main()
        Dim a As Integer = 1

        If a = 0 Then
            Console.WriteLine("0")

        ElseIf a = 1 Then
            Console.WriteLine("1") '1が表示される 

        Else
            Console.WriteLine("other")

        End If
    End Sub
End Module

5行目からif文が始まります。
8行目のElseIf(if文)はtrueになるのでその配下の処理が実行されます。
9行目の処理が実行されif文を抜けます。

String型の値の比較

Public Shared Operator =(a As [String], b As [String]) As Boolean

string型の値の比較は、==で可能です。

Module Module1
	Sub Main()
		Dim a As String = "test"
		Dim b As String = "test"

		If a = b Then
			Console.WriteLine("true") 'trueが出力される
		End If

	End Sub
End Module

String型の値を比較するときも比較演算子の=で可能です。
Stringクラスにメソッドがあります。
https://docs.microsoft.com/ja-jp/dotnet/api/system.string.op_equality?view=netcore-3.1

ネスト構造 if文の中にif文

Module Module1
    Sub Main()
        Dim a As Integer = 1
        Dim b As Integer = 1

        If a = 1 Then
            If b = 1 Then
                Console.WriteLine("1") ' 1が出力される
            End If
        End If

    End Sub
End Module

7行目は、if文の中にif文を記述しています。ネストの構造です。入れ子ともいいます。
6,7行目は、trueになり文字列が表示されます。

値の一部で比較する(like演算子)

like演算子とアスタリスク(*)で、前方一致、部分一致、後方一致の比較ができます。

Module Module1
	Sub Main()
		Dim str1 As String
		str1 = "みかん"

		If str1 Like "み*" Then
			Console.WriteLine("OK") 'OKが表示される
		End If

		If str1 Like "み*ん" Then
			Console.WriteLine("OK") 'OKが表示される
		End If

		If str1 Like "*かん" Then
			Console.WriteLine("OK") 'OKが表示される
		End If

		If str1 Like "みかん*" Then
			Console.WriteLine("OK") 'OKが表示される
		End If
	End Sub
End Module

アスタリスク(*)は、0以上の任意の文字を表します。

null(nothing)を比較

Module Module1
    Sub Main()
        Dim a As String = Nothing

        If a Is Nothing = True Then
            Console.Write("true") ' trueが出力される
        End If

        If IsNothing(a) Then
            Console.Write("true") ' trueが出力される
        End If

        If a IsNot Nothing = True Then
            Console.Write("true3") '出力されない
        End If

        If String.IsNullOrEmpty(a) Then
            Console.Write("true") ' trueが出力される
        End If
    End Sub
End Module

5行目は、Is Nothingでnullを比較しています。
9行目は、IsNothingでnullを比較しています。
13行目は、Nothingの否定です。IsNotを使用します。
17行目は、IsNullOrEmptyで比較しています。nullと空文字のときにtrueになります。

以下は、MicrosoftのNot演算子のリンクです。
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/operators/not-operator

比較演算子

比較演算子は、2つの値を比べて条件を満たしていればtrue,そうでない場合はfalseを返します。

等しくないとする場合は、<>とします。

比較演算子	説明
a = b	aとbの値は等しい
a <> b	aとbの値は等しくない
a > b	aはbより大きい
a >= b	aはbより大きいまたは等しい
a < b	aはbより小さい
a <= b	aはbより小さいまたは等しい

以下は、Microsoftの比較演算子 (Visual Basic)のリンクです。
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/operators/comparison-operators

論理積(And) AかつB

If 左の条件式 And 右の条件式 Then

If 左の条件式 AndAlso 右の条件式 Then

論理演算子のAndとAndAlsoは、左の式と右の式が両方ともtrueの場合、trueになります。それ以外はfalseです。
AndAlsoは、左の式がfalseの場合、右の式は判定(評価)されません。これを短絡評価(ショートサーキット評価 : Short-Circuit Evaluation)といいます。パフォーマンスの向上を図れます。

Module Module1
    Sub Main()
        Dim a As Integer = 1
        Dim b As Integer = 1

        If a = 1 And b = 1 Then
            Console.WriteLine("True") 'Trueが出力される
        Else
            Console.WriteLine("False")
        End If

        If a = 1 AndAlso b = 1 Then
            Console.WriteLine("True") 'Trueが出力される
        Else
            Console.WriteLine("False")
        End If
    End Sub
End Module

6,12行目は、左の式と右の式が共にtrueなので、trueになります。
12行目は、左の式がfalseの場合、右の式は判定されません。

論理和(Or) AまたはB

If 左の条件式 Or 右の条件式 Then

If 左の条件式 OrElse 右の条件式 Then

論理演算子のOrとOrElseは、左の式または右の式のどちらかがtrueの場合、trueになります。
OrElseは、左の式がtrueの場合、右の式は判定(評価)されません。これを短絡評価(ショートサーキット評価 : Short-Circuit Evaluation)といいます。パフォーマンスの向上を図れます。

Module Module1
    Sub Main()
        Dim a As Integer = 1
        Dim b As Integer = 2

        If a = 2 Or b = 2 Then
            Console.WriteLine("True") 'Trueが出力される
        Else
            Console.WriteLine("False")
        End If

        If a = 2 OrElse b = 2 Then
            Console.WriteLine("True") 'Trueが出力される
        Else
            Console.WriteLine("False")
        End If
    End Sub
End Module

6,12行目は、左の式はfalseですが右の式がtrueなのでtrueになります。
12行目は、左の式がtrueの場合、右の式は判定されません。

排他的論理和(Xor)

If 左の条件式 Xor 右の条件式 Then

左の式がtrueで右の式がfalseの場合、trueになります。
左の式がfalseで右の式がtrueの場合、trueになります。
左の式と右の式が両方ともtrueの場合、falseになります。
左の式と右の式が両方ともfalseの場合、falseになります。

Module Module1
    Sub Main()
        Dim a As Integer = 2
        Dim b As Integer = 2

        If a = 2 Xor b = 3 Then
            Console.WriteLine("True") 'Trueが出力される
        Else
            Console.WriteLine("False")
        End If

        If a = 3 Xor b = 2 Then
            Console.WriteLine("True") 'Trueが出力される
        Else
            Console.WriteLine("False")
        End If

        If a = 2 Xor b = 2 Then
            Console.WriteLine("True")
        Else
            Console.WriteLine("False") 'Falseが出力される
        End If

        If a = 3 Xor b = 3 Then
            Console.WriteLine("True")
        Else
            Console.WriteLine("False") 'Falseが出力される
        End If
    End Sub
End Module

6行目は、左の式がtrueで右の式がfalseなので、trueになります。
12行目は、左の式がfalseで右の式がtrueなので、trueになります。
18行目は、左の式と右の式が両方ともtrueなので、falseになります。
24行目は、左の式と右の式が両方ともfalseなので、falseになります。

論理否定(Not) Aではない

If Not (条件式) Then

条件式がfalseの場合にtrueになります。
条件式がtrueの場合にfalseになります。

Module Module1
	Sub Main()
		Dim a As Integer = 1

		If Not (a = 2) Then
			Console.WriteLine("True") 'Trueが出力される
		End If

		If Not (a = 1) Then
			Console.WriteLine("True")
		Else
			Console.WriteLine("False") 'Falseが出力される
		End If

		If a <> 2 Then
			Console.WriteLine("True") 'Trueが出力される
		End If
	End Sub
End Module

5行目は値の比較でfalseになり、それを否定するのでtrueになります。
9行目は値の比較でtrueになり、それを否定するのでfalseになります。
15行目の<>でも否定になります。

以下は、Microsoftの論理演算子のリンクです。
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/operators-and-expressions/logical-and-bitwise-operators