using System;

class Sample {
  static void Main()
  {
    // 長さが3の配列を作成し、各要素にそれぞれ文字列"Alice", "Bob", "Charlie"を設定する
    var arr1 = new string[3] {"Alice", "Bob", "Charlie"};
    var arr2 = new string[] {"Alice", "Bob", "Charlie"};
    string[] arr3 = {"Alice", "Bob", "Charlie"};

    // 長さが5の配列を作成し、各要素にそれぞれ数値0, 1, 2, 3, 4を設定する
    var arr4 = new int[5] {0, 1, 2, 3, 4};
    var arr5 = new int[] {0, 1, 2, 3, 4};
    int[] arr6 = {0, 1, 2, 3, 4};
  }
}

Imports System

Class Sample
  Shared Sub Main()

    ' 長さが3の配列を作成し、各要素にそれぞれ文字列"Alice", "Bob", "Charlie"を設定する
    Dim arr1 As String() = New String(2) {"Alice", "Bob", "Charlie"}
    Dim arr2 As String() = New String() {"Alice", "Bob", "Charlie"}
    Dim arr3 As String() = {"Alice", "Bob", "Charlie"}

    ' 長さが5の配列を作成し、各要素にそれぞれ数値0, 1, 2, 3, 4を設定する
    Dim arr4 As Integer() = New Integer(4) {0, 1, 2, 3, 4}
    Dim arr5 As Integer() = New Integer() {0, 1, 2, 3, 4}
    Dim arr6 As Integer() = {0, 1, 2, 3, 4}

  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    // 配列の長さと、配列初期化子の要素数が一致していないのでコンパイルエラーとなる
    var arr = new string[2] {"Alice", "Bob", "Charlie"};
    // error CS0847: An array initializer of length `2' was expected
  }
}

Imports System

Class Sample
  Shared Sub Main()

    ' 配列の長さと、配列初期化子の要素数が一致していないのでコンパイルエラーとなる
    Dim arr As String() = New String(1) {"Alice", "Bob", "Charlie"}
    ' error BC30568: 配列初期化子に 1 個の要素が余分に含まれています
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    var arr1 = new string[3];  // 長さが3のstring型配列
    var arr2 = new int[5];     // 長さが5のint型配列
    var arr3 = new double[12]; // 長さが12のdouble型配列
  }
}

Imports System

Class Sample
  Shared Sub Main()

    Dim arr1 As String() = New String(2) {}   ' 長さが3のString型配列
    Dim arr2 As Integer() = New Integer(4) {} ' 長さが5のInteger型配列
    Dim arr3 As Double() = New Double(11) {}  ' 長さが12のDouble型配列

    ' 次のように記述しても同じ
    'Dim arr1(2) As String   ' 長さが3のString型配列
    'Dim arr2(4) As Integer  ' 長さが5のInteger型配列
    'Dim arr3(11) As Double  ' 長さが12のDouble型配列

  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    var length = 3;

    // 長さに変数lengthの値を指定して文字列配列を作成する
    var arr = new string[length];

    // 作成された配列の長さを取得して表示する
    Console.WriteLine(arr.Length);
  }
}

Imports System

Class Sample
  Shared Sub Main()

    Dim length As Integer = 3

    ' 長さに変数lengthの値を指定して文字列配列を作成する
    Dim arr As String() = New String(length - 1) {}

    ' 作成された配列の長さを取得して表示する
    Console.WriteLine(arr.Length)

  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    // 以下のいずれも空の配列となる
    var arr1 = new string[0];
    var arr2 = new string[] {};
  }
}

Imports System

Class Sample
  Shared Sub Main()

    ' 以下のいずれも空の配列となる
    Dim arr1 As String() = New String(-1) {}
    Dim arr2 As String() = New String() {}
    Dim arr3(-1) As String

  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    var arrEmpty = new string[0];

    // 空の配列ではプロパティの参照などを行うことができる
    Console.WriteLine(arrEmpty.Length);

    string[] arrNull = null;

    // ヌル参照の配列変数ではプロパティの参照などを行うことはできない
    Console.WriteLine(arrNull.Length); // NullReferenceExceptionがスローされる
  }
}

Imports System

Class Sample
  Shared Sub Main()

    Dim arrEmpty As String() = New String() {}

    ' 空の配列ではプロパティの参照などを行うことができる
    Console.WriteLine(arrEmpty.Length)

    Dim arrNull As String() = Nothing

    ' ヌル参照の配列変数ではプロパティの参照などを行うことはできない
    Console.WriteLine(arrNull.Length) ' NullReferenceExceptionがスローされる

  End Sub
End Class

using System;
using System.IO;

class Sample {
  // ファイルから複数の値を読み込むメソッド
  static int[] ReadValuesFromFile(string file)
  {
    if (File.Exists(file)) {
      int[] values;

      // ファイルを開いて読み込んだが、読み込み対象の値が無かった場合を想定する
      // 値が無かったことを表すため、nullではなく空の配列を返す
      values = new int[0];

      return values;
    }
    else {
      throw new FileNotFoundException("ファイルがありません", file);
    }
  }

  static void Main()
  {
    // ファイルから読み込んだ値を列挙する
    // (ファイルに目的の値がなかった場合でもメソッドは空の配列を返すため、
    // null判定を行うことなく列挙を行うことができる)
    foreach (var val in ReadValuesFromFile("data.txt")) {
      Console.WriteLine(val);
    }
  }
}

Imports System
Imports System.IO

Class Sample
  ' ファイルから複数の値を読み込むメソッド
  Shared Function ReadValuesFromFile(ByVal file As String) As Integer()

    If File.Exists(file) Then
      Dim values() As Integer

      ' ファイルを開いて読み込んだが、読み込み対象の値が無かった場合を想定する
      ' 値が無かったことを表すため、Nothingではなく空の配列を返す
      values = New Integer() {}

      Return values
    Else
      Throw New FileNotFoundException("ファイルがありません", file)
    End If

  End Function

  Shared Sub Main()

    ' ファイルから読み込んだ値を列挙する
    ' (ファイルに目的の値がなかった場合でもメソッドは空の配列を返すため、
    ' null判定を行うことなく列挙を行うことができる)
    For Each val As Integer In ReadValuesFromFile("data.txt")
      Console.WriteLine(val)
    Next

  End Sub
End Class

class Account {
  public string Name;
  public string[] Address = new string[0]; // 初期値として空の配列を代入しておく
}

Class Account
  Public Name As String
  Public Address() As String = New String() {} ' 初期値として空の配列を代入しておく
End Class

using System;

class Sample {
  // 引数で与えられた配列の合計を求めるメソッド
  static long Sum(int[] arr)
  {
    var sum = 0L;

    foreach (var val in arr) {
      sum += val;
    }

    return sum;
  }

  static void Main()
  {
    var arr = new int[] {2, 5, 3, 8, 4};

    Console.WriteLine("合計 = {0}", Sum(arr));
  }
}

Imports System

Class Sample
  ' 引数で与えられた配列の合計を求めるメソッド
  Shared Function Sum(ByVal arr() As Integer) As Long

    Dim sum As Long = 0L

    For Each val As Integer In arr
      sum += val
    Next

    Return sum

  End Function

  Shared Sub Main()

    Dim arr() As Integer = New Integer() {2, 5, 3, 8, 4}

    Console.WriteLine("合計 = {0}", Sum(arr))

  End Sub
End Class

using System;

class Sample {
  // 引数で与えられた複数の値の合計を求めるメソッド
  static long Sum(params int[] arr)
  {
    var sum = 0L;

    foreach (var val in arr) {
      sum += val;
    }

    return sum;
  }

  static void Main()
  {
    Console.WriteLine("合計 = {0}", Sum(2, 5, 3));
    Console.WriteLine("合計 = {0}", Sum(2, 5, 3, 8, 4));
    Console.WriteLine("合計 = {0}", Sum(new int[] {2, 5, 3, 8, 4})); // 配列を渡すこともできる
  }
}

Imports System

Class Sample
  ' 引数で与えられた配列の合計を求めるメソッド
  Shared Function Sum(ByVal ParamArray arr() As Integer) As Long

    Dim sum As Long = 0L

    For Each val As Integer In arr
      sum += val
    Next

    Return sum

  End Function

  Shared Sub Main()

    Console.WriteLine("合計 = {0}", Sum(2, 5, 3))
    Console.WriteLine("合計 = {0}", Sum(2, 5, 3, 8, 4))
    Console.WriteLine("合計 = {0}", Sum(New Integer() {2, 5, 3, 8, 4})) ' 配列を渡すこともできる

  End Sub
End Class

using System;

class Sample {
  // xとyの商と剰余を求めるメソッド
  // 商は戻り値のインデックス0、剰余はインデックス1に格納する
  static int[] DivRem(int x, int y)
  {
    var ret = new int[2];

    ret[0] = x / y;
    ret[1] = x % y;

    return ret;
  }

  static void Main()
  {
    // 7÷3の商と剰余を求めたい
    var ret = DivRem(7, 3);

    // 戻り値から商と剰余に展開しなければならない
    // また戻り値の配列に格納されている値の意味があいまいになる
    var div = ret[0];
    var rem = ret[1];
  }
}

Imports System

Class Sample
  ' xとyの商と剰余を求めるメソッド
  ' 商は戻り値のインデックス0、剰余はインデックス1に格納する
  Shared Function DivRem(ByVal x As Integer, ByVal y As Integer) As Integer()

    Dim ret(2) As Integer

    ret(0) = x \ y
    ret(1) = x Mod y

    Return ret

  End Function

  Shared Sub Main()

    ' 7÷3の商と剰余を同時に求めたい
    Dim ret() As Integer = DivRem(7, 3)

    ' 戻り値から商と剰余に展開しなければならない
    ' また戻り値の配列に格納されている値の意味があいまいになる
    Dim div As Integer = ret(0)
    Dim remn As Integer = ret(1)

  End Sub
End Class

using System;

class Sample {
  // xとyの商と剰余を求めるメソッド
  // 商は第3引数のoutパラメータ、剰余は第4引数のoutパラメータに格納する
  static void DivRem(int x, int y, out int div, out int rem)
  {
    div = x / y;
    rem = x % y;
  }

  static void Main()
  {
    // 7÷3の商と剰余を求めたい
    int div, rem;

    DivRem(7, 3, out div, out rem);

    // メソッドの呼び出し後、変数divとremに結果が格納される
  }
}

Imports System

Class Sample
  ' xとyの商と剰余を求めるメソッド
  ' 商は第3引数のByRef引数、剰余は第4引数のByRef引数に格納する
  Shared Sub DivRem(ByVal x As Integer, ByVal y As Integer, ByRef div As Integer, ByRef remn As Integer)

    div = x \ y
    remn = x Mod y

  End Sub

  Shared Sub Main()

    ' 7÷3の商と剰余を同時に求めたい
    Dim div As Integer, remn As Integer

    DivRem(7, 3, div, remn)

    ' メソッドの呼び出し後、変数divとremnに結果が格納される

  End Sub
End Class

using System;

class Sample {
  // 引数で与えられた配列の合計と平均を求めるメソッド
  // 合計はTuple.Item1, 平均はTuple.Item2に格納する
  static Tuple<long, double> SumAvr(int[] arr)
  {
    var sum = 0L;

    foreach (var val in arr) {
      sum += val;
    }

    var avr = sum / (double)arr.Length;

    // Item1にsum, Item2にavrの値を格納したTupleを作成して返す
    return Tuple.Create(sum, avr);
  }

  static void Main()
  {
    // この配列内の要素の合計と平均を求めたい
    var arr = new int[] {2, 5, 3, 8, 4};

    Tuple<long, double> ret = SumAvr(arr);

    Console.WriteLine("合計 = {0}", ret.Item1);
    Console.WriteLine("平均 = {0}", ret.Item2);
  }
}

Imports System

Class Sample
  ' 引数で与えられた配列の合計と平均を求めるメソッド
  ' 合計はTuple.Item1, 平均はTuple.Item2に格納する
  Shared Function SumAvr(ByVal arr() As Integer) As Tuple(Of Long, Double)

    Dim sum As Long = 0L

    For Each val As Integer In arr
      sum += val
    Next

    Dim avr As Double = sum / arr.Length

    ' Item1にsum, Item2にavrの値を格納したTupleを作成して返す
    Return Tuple.Create(sum, avr)

  End Function

  Shared Sub Main()

    ' この配列内の要素の合計と平均を求めたい
    Dim arr() As Integer = New Integer() {2, 5, 3, 8, 4}

    Dim ret As Tuple(Of Long, Double) = SumAvr(arr)

    Console.WriteLine("合計 = {0}", ret.Item1)
    Console.WriteLine("平均 = {0}", ret.Item2)

  End Sub
End Class

using System;

class Sample {
  // 引数で与えられた配列の合計と平均を同時に返すメソッド
  static (long, double) SumAvr(int[] arr)
  {
    var sum = 0L;

    foreach (var val in arr) {
      sum += val;
    }

    var avr = sum / (double)arr.Length;

    // 複数の値をひとまとめにして返す
    return (sum, avr);
  }

  static void Main()
  {
    // 呼び出し側で戻り値を展開する
    (long sum, double avr) = SumAvr(new int[] {2, 5, 3, 8, 4});
  
    Console.WriteLine("合計 = {0}", sum);
    Console.WriteLine("平均 = {0}", avr);
  }
}

Imports System

Class Sample
  ' 引数で与えられた配列の合計と平均を同時に返すメソッド
  Shared Function SumAvr(ByVal arr() As Integer) As (Long, Double)

    Dim sum As Long = 0L

    For Each val As Integer In arr
      sum += val
    Next

    Dim avr As Double = sum / arr.Length

    ' 複数の値をひとまとめにして返す
    Return (sum, avr)

  End Function

  Shared Sub Main()

    ' 呼び出し側で戻り値を展開する
    (Dim sum As Long, avr As Double) = SumAvr(New Integer() {2, 5, 3, 8, 4})

    Console.WriteLine("合計 = {0}", sum)
    Console.WriteLine("平均 = {0}", avr)

  End Sub
End Class