VB.NETで変数を複数判定する際のif文の書き方で困っています。

Question

前提・実現したいこと

プログラミング初心者です。
現在VB.NETで簡単なシステムを開発しています。
if文で整数型の配列（0～3の数字がランダムで入る）を宣言し、その配列の指定した要素数に格納されている数字が全て等しいときにある処理を行いたいです。

発生している問題・エラーメッセージ

・判定する数字のどれかに0が格納されている場合、等しくなくてもTrueの判定になってしまいます。
・配列内の数字が全て等しいにも関わらず、Falseの判定になってしまいます。

このようになってしまう原因と、これと同じ処理を行う場合にもっと良い書き方があれば教えていただきたいです。

該当のソースコード

	'判定したい配列
	Dim arr(0 To 4) As Integer
	
	'指定した数
	Dim num As Integer = 4
	
	Dim equ As Boolean = False 

	'配列に数字を格納（デバッグのため手動で格納）
	arr(0) = 3
	arr(1) = 1
	arr(2) = 0
	arr(3) = 1
	arr(4) = 2

	Select Case num

            Case 2

                If arr(0) = arr(1) Then

                    equ = True

                End If

            Case 3

                If arr(0) = arr(1) = arr(2) Then

                    equ = True

                End If

            Case 4

                If arr(0) = arr(1) = arr(2) = arr(3) Then

                    equ = True

                End If

            Case 5

                If arr(0) = arr(1) = arr(2) = arr(3) = arr(4) Then

                    equ = True

                End If

        End Select


	'指定した要素数に格納されている数字が全て等しい時
        If equ = True Then

            '指定した要素の数字が全て等しかったときに行いたい処理

        End If

試したこと

配列内の数字をいろいろと変えてみましたが解決しませんでした。

補足情報（FW/ツールのバージョンなど）

開発環境
VisualStudio 2017
.NET FrameWork 4.6.1

Answer 1

If x = y = z Then という条件式の評価は、まずx = yが評価され結果(真偽値)が返され、次いで真偽値(True=-1/False=0)とzが評価されるためです。

複数の変数が同値であることを条件としたいなら、If x = y AndAlso x = z Thenの様に書きましょう。

ただ今回のケースの場合、先頭の要素と一致するかループしならが確認するべきです。
そうすれば要素数ごとにSwitch文で分岐する必要はなくなります。（＝要素数ごとにテストする必要がなくなるということでもあります。）

For i = 1 To 4
    If arr(0) <> arr(i) Then
        equ = False
        Exit For
    End If
Next

さらにLINQを使えば１行で書けます。

Dim equ = arr.Skip(1).All(Function(v) v = arr(0))

Comments

[rioayaha]

なるほど！Falseで返された0と一致してしまうためif文の中を通過してしまうのですね！
確かにSelect Caseですべての条件を記述する書き方はスマートではないため、教えていただいたFor文での判定を採用させていただきます。
回答していただきありがとうございました。