Visual Basic NET ( 3)


         

ByVal As ) As


For i = 1 To ___
.WriteLine((i).)
.WriteLine((i)._)
Next
.Close() '
End Sub
Function _( ByVal As ) As Boolean
Dim __ = Today.DayOfYear - ._.DayOfYear
If (__ >= 0 And __ <= 7) Or __ <= (7 - 365) _
Then Return True Else Return False
End Function
: , , , - , 1, .
_ , , , , . __ , , . __ <= (7 - 365) , .
137.
Structure
Dim As String
Dim _ As DateTime
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim (5000) As
Dim As New System.IO.StreamReader("E:\VB\_.txt")
Dim i As Integer = 1
Do While .Peek() <> -1
(i). = .ReadLine
(i)._ = .ReadLine
ListBox1.Items.Add((i).)
i = i + 1
Loop
.Close()
End Sub
138.
Dim SecretNumber As Decimal '
Dim A As Decimal ' -
Dim As String

    





Forekc.ru
, , , , , , , , , ,