50
1
Imports System
2
3
4
Public Module Module1
5
6
Public Sub Main()
7
Dim student as Student = New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13}
8
9
10
Dim isYoungerThan = Function(s, youngAge) s.Age >= youngAge
11
12
Console.WriteLine(isYoungerThan(student, 25))
13
14
End Sub
15
End Module
16
17
Public Class Student
18
Private _studentID As integer
19
Private _studentName As string
20
Private _age As integer
21
22
Property StudentID() As integer
23
Get
24
Return _studentID
Cached Result
False