Visual Basic NET ( 3)


- 2


. :

Public Class

Public As String

Private As Integer

 

Public Property _() As Integer

Get

Return

End Get

Set(ByVal Value As Integer)

If Value < 500 Then

= Value

Else

MsgBox(" ")

= 0

End If

End Set

End Property

 

Private As Integer

Public _ As Integer

Public Shared ____ As Integer

Private As Integer

Public _ As Integer

Private Shared __ As Integer = 0

 

Public Sub New (ByVal As String, ByVal As Integer, ByVal As Integer, ByVal As Integer)

=

_ =

=

_ =

__ = __ + 1

_ = __

End Sub

Private Sub _()

= 2 * ( + )

End Sub

 

Private Function _() As Integer

_()

Return * _

End Function

 

Public Function _() As Integer

Return ____ * _()

End Function

End Class

:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

.____ = 3

(1) = New ("", 5, 4, 2)

Debug.WriteLine((1)._)

(2) = New ("", 800, 5, 3)

Debug.WriteLine((2)._)

End Sub