Sub Main()
  Dim x As Integer ' プロシージャ内のローカル変数

  For x = 1 To 10
    Dim y As Integer ' ブロック内のローカル変数

    y = x - 10
  Next

  ' この部分は宣言されているブロックの外なので変数yは参照できない

  For x = 1 To 10
    Dim y As Single ' ブロック内のローカル変数

    y = CSng(x)
  Next

  ' この部分は宣言されているブロックの外なので変数yは参照できない
End Sub

Sub Main()
  Dim x As Integer = 1 ' プロシージャ内のローカル変数

  If x = 3 Then
    Dim y As Integer = 2 ' Ifブロック内のローカル変数

    Console.WriteLine(y)
  Else
    Dim y As Integer = 3 ' Elseブロック内のローカル変数

    Console.WriteLine(y)
  End If

  ' この部分は宣言されているブロックの外なので変数yは参照できない
End Sub

Sub Main()
  Dim x As Integer = 1 ' プロシージャ内の変数x

  If x = 3 Then
    Dim y As Integer ' Ifブロック内の変数y

    For y = 2 To 5
      Dim z As Integer = y * 3 ' 入れ子になったブロック内の変数z

      Console.WriteLine(z)
    Next

    ' この部分は宣言されているブロックの外なので変数zは参照できない
  Else
    Dim y As Integer ' Elseブロック内の変数y

    For y = 1 To 3
      Dim z As Integer = y * 2 ' 入れ子になったブロック内の変数z

      Console.WriteLine(z)
    Next

    ' この部分は宣言されているブロックの外なので変数zは参照できない
  End If

  ' この部分は変数yも変数zも参照できない
End Sub

For x As Integer = 0 To 9
  ' Forステートメント(変数が宣言されているブロック)の内側では変数xを参照できる
  Console.WriteLine(x)
Next

' Forステートメント(変数が宣言されているブロック)の外なので変数xは参照できない

For x As Integer = 1 To 2
  For y As Integer = 1 To 3
    Dim i As Integer ' 初期値を指定せずに宣言したブロック内の変数

    i = i + 1

    Console.WriteLine(i)
  Next
Next

1
2
3
4
5
6

For x As Integer = 1 To 2
  For y As Integer = 1 To 3
    Dim i As Integer = 0 ' 初期値を指定して宣言したブロック内の変数 (ブロックに入るたびに0に初期化される)

    i = i + 1

    Console.WriteLine(i)
  Next
Next

1
1
1
1
1
1

For x As Integer = 1 To 2
  Dim i As Integer = 0 ' 初期値を指定して宣言したブロック内の変数

  For y As Integer = 1 To 3
    i = i + 1

    Console.WriteLine(i)
  Next
Next

1
2
3
1
2
3

int x = 3;

{ // 空のブロック
  int y = 5; // ブロック内の変数
}

// この箇所はブロック外のため変数yを参照できない

Dim x As Integer = 3

If True Then ' ブロックを構成するためのIfステートメント
  Dim y As Integer = 5 ' ブロック内の変数
End If

Dim x As Integer = 3

With Nothing ' ブロックを構成するためのWithステートメント
  Dim y As Integer = 5 ' ブロック内の変数
End With