構造

COBOL の構造

      $set sourceformat(free)
*> COBOL uses valuetype-id to define a value type
valuetype-id StudentRecord.

    01 #name string public.
    01 gpa float-short public.
    method-id new.
        procedure division using by value nam as string, gpa as float-short.
        set #name to nam
        set self::"gpa" to gpa
    end method.
end valuetype StudentRecord.

class-id a.

    method-id main static.
        01 stu type StudentRecord value new StudentRecord("Bob", 3.5).
        01 stu2 type StudentRecord.

        set stu2 to stu
        set stu2::name to "Sue"
        display stu::name   *> Prints Bob
        display stu2::name  *> Prints Sue
    end method.

end class a.

C# の構造

// C# uses struct to define a value type
struct StudentRecord
{
  public string name;
  public float gpa;

  public StudentRecord(string name, float gpa)
  {
    this.name = name;
    this.gpa = gpa;
  }
}
StudentRecord stu = new StudentRecord("Bob", 3.5f);
StudentRecord stu2 = stu;

stu2.name = "Sue";
Console.WriteLine(stu.name);    // Prints Bob
Console.WriteLine(stu2.name);   // Prints Sue

VB.NET の構造

' VB Users Structure to define a value type
Structure StudentRecord
  Public name As String
  Public gpa As Single

  Public Sub New(ByVal name As String, ByVal gpa As Single)
    Me.name = name
    Me.gpa = gpa
  End Sub
End Structure

Dim stu As StudentRecord = New StudentRecord("Bob", 3.5)
Dim stu2 As StudentRecord = stu

stu2.name = "Sue"
Console.WriteLine(stu.name)    ' Prints Bob
Console.WriteLine(stu2.name)   ' Prints Sue

これらの例の一部は、ハーディング大学コンピュータ サイエンス学部の Frank McCown 博士が作成したもので、クリエイティブ コモンズ ライセンスに基づいて使用が許可されています。