An application has a Private variable named _decGPA. Write the statements for the Property procedure namedGPAto validate the value received from the application before assigning it to the Private variable.

Question

What will be an ideal response?

Answer 1

Private _decGPA As Decimal

Public Property GPA As Decimal
Get
Return _decGPA
End Get
Set(value As Decimal)
If value > 0 Then
_decGPA = value
Else
_decGPA = 0
End If
End Set
End Property