using System;
using System.Collections.Generic;

class Sample {
  static void Main()
  {
    // ヌル許容のint型配列に要素としてnullを格納する
    int?[] arr = new int?[] {0, 2, null, 1};

    arr[0] = null; // 配列の要素にnullを設定する

    // ヌル許容のint型Listに要素としてnullを格納する
    List<int?> list = new List<int?>() {0, 2, null, 1};

    list.Add(null); // Listの要素としてnullを追加する
  }
}

Imports System
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    ' ヌル許容のInteger型配列に要素としてNothingを格納する
    Dim arr?() As Integer = New Integer?() {0, 1, Nothing, 2}

    arr(0) = Nothing ' 配列の要素にNothingを設定する

    ' ヌル許容のint型Listに要素としてNothingを格納する
    Dim list As New List(Of Integer?)() From {0, 2, Nothing, 1}

    list.Add(Nothing) ' Listの要素としてNothingを追加する
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    int? i = 3; // ヌル許容型

    int j = (int)i; // 明示的な型変換によって値を取り出す
    long k = (long)i; // 拡大変換となる型変換で値を取り出す
    int l = i.Value; // Valueプロパティを使って値を取り出す

    Console.WriteLine(j);
    Console.WriteLine(k);
    Console.WriteLine(l);
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim i As Integer? = 3 ' ヌル許容型

    Dim j As Integer = CInt(i) ' 明示的な型変換
    Dim k As Long = CLng(i) ' 拡大変換となる型変換で値を取り出す
    Dim l As Integer = i.Value ' Valueプロパティを使って値を取り出す

    Console.WriteLine(j)
    Console.WriteLine(k)
    Console.WriteLine(l)
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    int? i = null;

    // 値が設定されていないのでInvalidOperationExceptionがスローされる
    int j = (int)i;
    int k = i.Value;
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim i As Integer? = Nothing

    ' 値が設定されていないのでInvalidOperationExceptionがスローされる
    Dim j As Integer = CInt(i)
    Dim k As Integer = i.Value
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    int? a = 3;
    int? x = a + 1; // xには4が代入される

    Console.WriteLine(x);

    // ヌル許容型の演算結果をヌル非許容型へ代入することはできない
    // (項のどちらかがnullであれば演算結果がnullとなるため)
    //int y = a + 1;
    // error CS0266: 型 'int?' を 'int' に暗黙的に変換できません。明示的な変換が存在します。(cast が不足していないかどうかを確認してください)
  }
}

Option Strict On

Imports System

Class Sample
  Shared Sub Main()
    Dim a As Integer? = 3
    Dim x As Integer? = a + 1 ' xには4が代入される

    Console.WriteLine(x)

    ' ヌル許容型の演算結果をヌル非許容型へ代入することはできない
    ' (項のどちらかがNothingであれば演算結果がNothingとなるため)
    'Dim y As Integer = a + 1
    ' error BC30512: Option Strict On では、'Integer?' から 'Integer' への暗黙的な変換はできません
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    int? a = null;
    int? x = a + 1; // aはnullのため、xにはnullが代入される

    Console.WriteLine(x.HasValue);
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim a As Integer? = Nothing
    Dim x As Integer? = a + 1 ' aはNothingのため、xにはNothingが代入される

    Console.WriteLine(x.HasValue)
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    // ヌル許容型
    int? x = 0;

    Console.WriteLine(x.GetType()); // ベースとなる型(int)の型情報が返される
  }
}

Imports System

Class Sample
  Shared Sub Main()
    ' ヌル許容型
    Dim x As Integer? = 0

    Console.WriteLine(x.GetType()) ' ベースとなる型(Integer)の型情報が返される
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    // typeof演算子によってint?の型情報を取得する
    Console.WriteLine(typeof(int?));
  }
}

Imports System

Class Sample
  Shared Sub Main()
    ' GetType演算子によってint?の型情報を取得する
    Console.WriteLine(GetType(Integer?))
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    Console.WriteLine("int? : {0}", Nullable.GetUnderlyingType(typeof(int?)));
    Console.WriteLine("int : {0}", Nullable.GetUnderlyingType(typeof(int)));
    Console.WriteLine("object : {0}", Nullable.GetUnderlyingType(typeof(object)));
    Console.WriteLine("string : {0}", Nullable.GetUnderlyingType(typeof(string)));
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Console.WriteLine("Integer? : {0}", Nullable.GetUnderlyingType(GetType(Integer?)))
    Console.WriteLine("Integer : {0}", Nullable.GetUnderlyingType(GetType(Integer)))
    Console.WriteLine("Object : {0}", Nullable.GetUnderlyingType(GetType(Object)))
    Console.WriteLine("String : {0}", Nullable.GetUnderlyingType(GetType(String)))
  End Sub
End Class

using System;

class Sample {
  // 引数で与えられた値がヌル許容型かどうかを調べる
  static bool IsNullable<T>(T val)
  {
    // 型引数Tからベースとなる型を取得できるかどうかでヌル許容型かどうかを判別する
    return Nullable.GetUnderlyingType(typeof(T)) != null;
  }

  static void Main()
  {
    int? x = 0;
    int y = 0;

    Console.WriteLine("x: {0}", IsNullable(x));
    Console.WriteLine("y: {0}", IsNullable(y));

    // この方法ではobject型に代入したヌル許容型を正しく判別できない
    object o = x;

    Console.WriteLine("o: {0}", IsNullable(o));
  }
}

Imports System

Class Sample
  ' 引数に指定された値がヌル許容型かどうかを調べる
  Function Shared IsNullable(Of T)(ByVal val As T) As Boolean
    ' 型引数Tからベースとなる型を取得できるかどうかでヌル許容型かどうかを判別する
    Return (Nullable.GetUnderlyingType(GetType(T)) IsNot Nothing)
  End Function

  Shared Sub Main()
    Dim x As Integer? = 0
    Dim y As Integer = 0

    Console.WriteLine("x: {0}", IsNullable(x))
    Console.WriteLine("y: {0}", IsNullable(y))

    ' この方法ではobject型に代入したヌル許容型を正しく判別できない
    Dim o As Object = x

    Console.WriteLine("o: {0}", IsNullable(o))
  End Sub
End Class