Imports System
Imports System.Collections.Generic
Public Class program
Private name As String
Private age As Integer
Private programming As String
Public Sub New(ByVal name As String, ByVal age As Integer, ByVal programming As String)
Me.name = name
Me.age = age
Me.programming = programming
End Sub
Public ReadOnly Property OName As String
Get
Return name
End Get
End Property
Public ReadOnly Property OAge As Integer
Get
Return age
End Get
End Property
Public ReadOnly Property OProgramming As String
Get
Return programming
End Get
End Property
End Class
Public Class main
Public Shared Sub Main()
Dim list As List(Of program) = New List(Of program)()
list.Add(New program("Liam", 45, "vb.ent"))
list.Add(New program("Noah", 39, "java"))
list.Add(New program("Emma", 51, "python"))
For Each item In list
Console.WriteLine("{0} - {1} - {2}", item.OName, item.OAge, item.OProgramming)
Next
End Sub
End Class
' run
'
' Liam - 45 - vb.ent
' Noah - 39 - java
' Emma - 51 - python
'