正解： ② 断続平衡説

[ 進化の2つの捉え方 ]
★ 断続平衡説（Punctuated equilibrium）：環境の激変や隔離などをきっかけに、短い期間（地質学的スケールでの数万〜数十万年）に一気に新種が誕生し、一度安定するとその後は長期間（数百〜数千万年）ほとんど変化しないという考え方。
★ 漸変説（Gradualism）：ダーウィンが考えたような、世代を重ねるごとに「一歩一歩、絶え間なく、ゆっくりと」進化が蓄積していくという考え方。

Sub Main()
    Call CheckValue(10)
    MsgBox "完了"
End Sub

Sub CheckValue(num As Integer)
    If num > 5 Then
        Exit Sub
    End If
    MsgBox "チェック通過"
End Sub

正解： ② 「完了」だけが表示される

[ 処理のコントロール構造図 ]

Sub Main()
│ Call CheckValue(10) ───┐ 処理を移す
│ │
│ （戻ってきた！） ↓
│ MsgBox "完了" Sub CheckValue(num)
End Sub │ If 10 > 5 Then
│ Exit Sub ── 途中で脱出！
│ End If
│ MsgBox "チェック通過" (実行されない)
End Sub

Sub OperatorTest()
    Dim val1 As String
    Dim val2 As Integer
    
    val1 = "100"
    val2 = 200
    
    ' --- (1) & 演算子で結合 ---
    Dim result1 As String
    result1 = val1 & val2
    
    ' --- (2) + 演算子で結合 ---
    Dim result2 As String
    result2 = val1 + val2
    
    MsgBox result1 & " / " & result2
End Sub

正解： ② result1: "100200" / result2: 型違いによるエラー（または 300）

[ 演算子の構造的特徴 ]

■ ＆ 演算子（文字列結合の専門職）
右と左のデータが何であれ、「すべて文字列に強制変換してくっつける」という構造を持っています。文字列の "100" と 数値の 200 なら、200を文字に変えて "100200" にします。エラーが起きにくく安全です。

■ ＋ 演算子（本来は足し算の専門職）
片方が「数値型」である場合、VBAは構造的に「これは足し算（算術演算）だな」と解釈しようとします。そのため、もう片方の "100" も数値の 100 に自動変換して「100 + 200 = 300」として計算しようとします。

★ ここがトラップ！：
もし、val1 = "VBA" のように数値に変換できない文字だった場合、"VBA" + 200 は足し算が不可能なため、「型が一致しません（Runtime Error 13）」というエラーではじかれます。

Sub ClearTest()
    Dim myWB As Workbook
    Set myWB = Workbooks.Open("C:\Test.xlsx")
    
    ' --- (1) 参照をクリアする ---
    Set myWB = ( A )
    
    ' --- (2) クリアされたか判定する ---
    If myWB ( B ) Nothing Then
        MsgBox "変数はクリアされています。"
    End If
End Sub

正解： ④ (A) Nothing (B) Is

[ Nothingの構造的メカニズム ]

1. クリアは「Set 変数 = Nothing」
Nothing は「どこも指していない無の状態」を表す特殊なキーワードです。通常の変数でいう 0 や空文字（""）のような役割ですが、オブジェクト変数なので代入時には必ず Set が必要です。これによりメモリ上の参照（紐付け）が完全に切断されます。

2. 判定には「=」ではなく「Is」を使う
【超重要】 オブジェクトが Nothing かどうかを判定するとき、If myWB = Nothing と書くと実行時エラーになります。値の比較ではなく「同じ対象を指しているか（参照の比較）」を行うため、構造的に Is 演算子 を使用しなければなりません。

Sub ObjectTest()
    Dim mySheet As Worksheet

    ( A ) Worksheets("Sheet1")

    MsgBox mySheet.Name
End Sub

正解： ② Set mySheet =

[ 変数の構造的違い ]

■ 値の代入（Set不要）
Dim n As Integer
n = 100 ' 箱の中に直接「100」を入れる

■ オブジェクトの代入（Set必須）
Dim r As Range
Set r = Range("A1") ' 箱の中に「A1セルという実体への参照（リモコン）」を入れる

★ 理系NEOなポイント：
・参照（ポインタ）：オブジェクト変数は、実体そのものを箱に入れているわけではなく、実体を操作するための「リモコン」を箱に入れているような構造です。
・Nothing：オブジェクト変数を宣言した直後の初期状態は 0 ではなく Nothing です。Nothingの状態（リモコンがどこも指していない状態）でプロパティを操作しようとすると「オブジェクト変数が設定されていません」というエラーになります。

正解： ② 伴性遺伝

[ 伴性遺伝のポイント ]
★ X連鎖潜性遺伝：女性（XX）は正常なXが1つあれば発症しませんが、男性（XY）はXが1つしかないため、そこに変異があると形質が現れます。例：血友病、赤緑色覚多様性。
★ 保因者：女性で、片方のXに変異遺伝子を持っているが発症していない人を「保因者（キャリア）」と呼びます。
★ Y連鎖遺伝：Y染色体上にある遺伝子によるもので、父親から息子へ必ず伝わります。

正解： ② 限性遺伝

[ 遺伝形式の細かな違い ]
★ 限性遺伝（げんせいいでん）：特定の性別だけに現れる。例：乳汁分泌（雌のみ）、雄鳥の鶏冠（雄のみ）。
★ 伴性遺伝（ばんせいいでん）：性染色体（X, Y）上に遺伝子があり、性別によって現れる確率が異なる。例：赤緑色覚多様性。
★ 従性遺伝（じゅうせいいでん）：両性に出るが、性別によって優劣の関係が変わる。例：若ハゲ（男性で顕性、女性で潜性）。

Dim DataList() As Variant
ReDim DataList(2, 3) ' --- 縦3×横4の配列として定義
DataList(0, 0) = "TEST"

' --- ここからサイズ変更を試みる ---

正解： ② ReDim Preserve DataList(2, 5)

[ 二次元配列の構造イメージ ]

DataList( 1次元目 , 2次元目 )
              ↑         ↑
           変更不可   変更可能！

★ ①がダメな理由：最初の次元（行方向）を変えようとしているためエラーになります。
★ ②が正解の理由：最後の次元（列方向）のみを 3 から 5 に増やしているため、構造的に許可されます[cite: 1]。
★ ④について：エラーにはなりませんが、Preserve がないため「TEST」というデータは消えてしまいます[cite: 1]。

Sub ReverseArray()
    Dim myAry() As Variant
    Dim tmp As Variant
    Dim i As Long, n As Long

    myAry = Array("A", "B", "C", "D", "E") '要素数5(0 to 4)
    n = UBound(myAry)

    For i = 0 To ( A )
        tmp = myAry(i)
        myAry(i) = myAry(n - i)
        myAry(n - i) = tmp
    Next i
End Sub

正解： ③ n \ 2

[ 入れ替えの構造図 ]

対象：(0) (1) (2) (3) (4) ※n=4

1回目(i=0)：(0) と (4-0=4) を入れ替え
2回目(i=1)：(1) と (4-1=3) を入れ替え
ここで終了！

もし、さらに i=3 まで回すと、(3)と(1)を再び入れ替えてしまい、「元に戻ってしまう」 という現象が起きます。

★ 理系NEOなポイント：
・n \ 2：整数除算演算子 \ を使い、中心で止めます（4 \ 2 = 2。i=0から2まで回る）。
・一時変数 tmp：myAry(i) = myAry(n-i) とした瞬間に、元の myAry(i) は消えてしまいます。あらかじめ tmp に退避させておくのが、構造的なデータ保護の鉄則です。

Sub ArrayTest()
    Dim myAry() As Integer ' --- (1) 動的配列の宣言
    
    ReDim myAry(2) ' --- (2) サイズを3つ(0-2)に決定
    myAry(0) = 10
    myAry(1) = 20
    
    ReDim myAry(5) ' --- (3) サイズを6つ(0-5)に変更
    
    MsgBox myAry(0)
End Sub

正解： ① 0

[ ReDimの構造的プロセス ]

1. 宣言時：Dim myAry()
「動的配列を使うよ」という名前だけの登録です。中身は空っぽで、このまま myAry(0) = 1 と書くとエラーになります。

2. 初回ReDim：ReDim myAry(2)
ここで初めてメモリ上に 0, 1, 2 の3つの箱が作られます。

3. 二度目のReDim：ReDim myAry(5)
【重要】 単なる ReDim は、既存の配列を一度破棄し、新しいサイズの配列をゼロから作り直します。
そのため、それまでに代入していた「10」や「20」といったデータはすべて消え去り、数値型なら「0」にリセット（初期化）されます。