VB.NET コンボボックスの値の比較を配列を使って書きたいです。

Question

前提・実現したいこと

コンボボックスがA1からA20とB1からB20という計40個存在あります。
コンボボックスの値は0～5まで存在します。
同じ数字のAとBを比較して両方とも0もしくは0以外であれば問題ありませんが、片方が0で片方が0以外の場合にFalseを返すようにしたいです。
現状Try CatchとIf、Else Ifを用いて20回比較しているのですが見た目が良くなく配列に格納してfor文で回せばより簡潔に既述できるのではないかと考えています。
ただ実際にどのように記述するのか見当がつかず、そもそもどのように配列に格納すればよいのかがわかりません。
何かひらめくきっかけ程度でも構いませんので、助言を頂けないでしょうか？
お手数をおかけしますがよろしくお願いします。

余談ですがプログラム歴は2か月程度の初心者です。
また実際のソースには自作メソッドが多数使用されていて、その都度説明するのも手間がかかるのでそういった箇所はほぼ同じようなものに置き換えています。

該当のソースコード

	
	Try
	
			' 同じ数字のコンボボックスAとBの値が片方0、片方0以外であればFalseを返す　'
        If ((ComboA_1.SelectedValue = 0) And (ComboB_1.SelectedValue <> 0)) OrElse ((ComboA_1.SelectedValue <> 0) And (ComboB_1.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_2.SelectedValue = 0) And (ComboB_2.SelectedValue <> 0)) OrElse ((ComboA_2.SelectedValue <> 0) And (ComboB_2.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_3.SelectedValue = 0) And (ComboB_3.SelectedValue <> 0)) OrElse ((ComboA_3.SelectedValue <> 0) And (ComboB_3.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_4.SelectedValue = 0) And (ComboB_4.SelectedValue <> 0)) OrElse ((ComboA_4.SelectedValue <> 0) And (ComboB_4.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_5.SelectedValue = 0) And (ComboB_5.SelectedValue <> 0)) OrElse ((ComboA_5.SelectedValue <> 0) And (ComboB_5.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_6.SelectedValue = 0) And (ComboB_6.SelectedValue <> 0)) OrElse ((ComboA_6.SelectedValue <> 0) And (ComboB_6.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_7.SelectedValue = 0) And (ComboB_7.SelectedValue <> 0)) OrElse ((ComboA_7.SelectedValue <> 0) And (ComboB_7.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_8.SelectedValue = 0) And (ComboB_8.SelectedValue <> 0)) OrElse ((ComboA_8.SelectedValue <> 0) And (ComboB_8.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_9.SelectedValue = 0) And (ComboB_9.SelectedValue <> 0)) OrElse ((ComboA_9.SelectedValue <> 0) And (ComboB_9.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_10.SelectedValue = 0) And (ComboB_10.SelectedValue <> 0)) OrElse ((ComboA_10.SelectedValue <> 0) And (ComboB_10.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_11.SelectedValue = 0) And (ComboB_11.SelectedValue <> 0)) OrElse ((ComboA_11.SelectedValue <> 0) And (ComboB_11.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_12.SelectedValue = 0) And (ComboB_12.SelectedValue <> 0)) OrElse ((ComboA_12.SelectedValue <> 0) And (ComboB_12.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_13.SelectedValue = 0) And (ComboB_13.SelectedValue <> 0)) OrElse ((ComboA_13.SelectedValue <> 0) And (ComboB_13.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_14.SelectedValue = 0) And (ComboB_14.SelectedValue <> 0)) OrElse ((ComboA_14.SelectedValue <> 0) And (ComboB_14.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_15.SelectedValue = 0) And (ComboB_15.SelectedValue <> 0)) OrElse ((ComboA_15.SelectedValue <> 0) And (ComboB_15.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_16.SelectedValue = 0) And (ComboB_16.SelectedValue <> 0)) OrElse ((ComboA_16.SelectedValue <> 0) And (ComboB_16.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_17.SelectedValue = 0) And (ComboB_17.SelectedValue <> 0)) OrElse ((ComboA_17.SelectedValue <> 0) And (ComboB_17.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_18.SelectedValue = 0) And (ComboB_18.SelectedValue <> 0)) OrElse ((ComboA_18.SelectedValue <> 0) And (ComboB_18.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_19.SelectedValue = 0) And (ComboB_19.SelectedValue <> 0)) OrElse ((ComboA_19.SelectedValue <> 0) And (ComboB_19.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        ElseIf ((ComboA_20.SelectedValue = 0) And (ComboB_20.SelectedValue <> 0)) OrElse ((ComboA_20.SelectedValue <> 0) And (ComboB_20.SelectedValue = 0)) Then
            Throw New Exception("例外です。")
        End If
        
        ' 入力OK '
        Return True

    Catch ex As BinalException

        ' エラー　'
        Return False

    End Try

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

VB.NET
VisualStudio 2005

Comments

[alg]

ソースコードは、マークダウンの「コードを入力」機能を利用してご提示いただくと、見やすくなります。よろしくお願いします。
https://teratail.com/help#about-markdown

[drylemonsplash]

ソースコードを見やすいように修正しました。
お手数をおかけして申し訳ありません。
よろしくお願い致します。

Answer 1

Private ComboA(19) As ComboBox

ComboA(0) = ComboA_1
ComboA(1) = ComboA_2

'もしくは
Private ComboA As ComboBox() = {ComboA_1,ComboA_2}

'もしくは
For i = 0 To 19
    ComboA(i) = Me.Controls($"ComboA_{i + 1}")
Next

みたいな感じで格納すればよろしいかと思います。

Comments

[drylemonsplash]

返信が遅くなり、申し訳ありません。

一番下の例は考え付きませんでした。
勉強になります。
実際に記述して確かめてみたいところなのですが、別件にて立て込んでいる為、時間が出来次第試します。

回答ありがとうございます。