Visual Basic NET ( 3)

       


1.

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

.Text = Val(1.Text) * Val(1.Text)

End Sub

2.

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

1.Text = "" : 2.Text = "" : .Text = ""

End Sub

3.

Private Sub __Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles _.Click

.Text = Val(1.Text) - Val(2.Text)

_.Top = 30



_.Left = 100

_.Width = 300

_.Text = " "

End Sub

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

1.Text = "" : 2.Text = "" : .Text = ""

_.Top = 80

_.Left = 240

_.Width = 32

_.Text = "-"

End Sub

4.

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

.FileName = "D:\WINNT\Media\canyon.mid"

Label3.Text = ", ."

End Sub

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

TextBox2.Text = .CurrentPosition() '

TextBox3.Text = .Duration - .CurrentPosition() '

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

.CurrentPosition = TextBox4.Text '

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


TextBox1.Text = .Duration '
End Sub
Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles .Click
.Rate = 0.5
End Sub
Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles .Click
.Volume = -1000
End Sub
Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles .Click
.Volume = -10
End Sub
5.
Private Sub __Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles _.Click
.Text = Val(1.Text) + Val(2.Text)
.FileName = "D:\WINNT\Media\chimes.wav"
End Sub
Private Sub __Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles _.Click
.Text = Val(1.Text) - Val(2.Text)
.FileName = "D:\WINNT\Media\notify.wav"
End Sub
6.
0
7.
211.
8.
  • 1001

  • -100

  • 15

  • -10
    9.
    82
    10.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim Moscow, Vasyuki As Integer
    Moscow = 9000000
    Vasyuki = 1000
    WriteLine(Vasyuki + Moscow)
    End Sub
    11.
    '
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim 1, 2 As Double '
    Dim 1, 2 As Double '
    Dim 1, 2 As Double '
    Dim _ As Double '
    '


    1 = 80 : 1 = 3
    2 = 90 : 2 = 2
    '
    1 = 1 * 1
    2 = 2 * 2
    _ = (1 + 2) / (1 + 2)
    '
    Debug.WriteLine(Format(_, "0.000"))
    End Sub
    12.
    ': .
    ' , .
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '
    Dim _, _, _ As Integer
    Dim _, _, _ As Integer
    Dim _, _ As Integer
    Dim __, _ As Integer
    '
    _ = InputBox(" ")
    _ = InputBox(" ")
    _ = InputBox(" ")
    _ = InputBox(" ")
    '
    _ = _ * _
    _ = _ * _
    _ = 2 * (_ + _)
    _ = _ + _
    __ = _ - _
    _ = _ - _
    '
    TextBox1.Text = " " & _
    TextBox2.Text = " = " & __
    Label1.Text = " = " & _
    End Sub
    13.
    '
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


    Dim R As Double = 10 '
    Dim L, S As Double '
    '
    L = 2 * Math.PI * R
    S = Math.PI * R ^ 2
    ' 5
    MsgBox(" = " & Format(L, "0.00000"))
    MsgBox(" = " & Format(S, "0.00000"))
    End Sub
    14.


    15.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '
    Dim nazvanie1, nazvanie2 As String '
    Dim r1, r2 As Double '
    Dim v1, v2 As Double '
    Dim t1, t2 As Double '
    '
    nazvanie1 = InputBox(" ")
    nazvanie2 = InputBox(" ")
    r1 = InputBox(" ( )")
    r2 = InputBox(" ( )")
    v1 = InputBox(" ( )")
    v2 = InputBox(" ( )")
    '
    t1 = 2 * Math.PI * r1 / v1 ' ࠠ * ,
    t2 = 2 * Math.PI * r2 / v2 ' = 1 = /
    ' :
    TextBox1.Text = " " & nazvanie1 & " - " & Format(t1, "0") _


    & " , " & nazvanie2 & " - " + Format(t2, "0") & " "
    Label1.Text = " " & nazvanie1 & " - " & Format(t1, "0") _
    & " , " & nazvanie2 & " - " + Format(t2, "0") & " "
    MsgBox(" " & nazvanie1 & " - " & Format(t1, "0") _
    & " , " & nazvanie2 & " - " + Format(t2, "0") & " ")
    End Sub
    17.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Me.CreateGraphics
    ':
    .DrawArc(Pens.Black, -50, 100, 300, 600, 270, 90)
    ':
    .FillRectangle(Brushes.Aquamarine, 100, 400, 300, 30)
    .DrawRectangle(Pens.Black, 100, 400, 300, 30)
    ' :
    .FillPie(Brushes.Chocolate, 0, 0, 300, 200, 0, 40)
    .FillPie(Brushes.Blue, 0, 0, 300, 200, 50, 60)
    .FillPie(Brushes.Red, 0, 0, 300, 200, 120, 50)
    .FillPie(Brushes.Green, 0, 0, 300, 200, 180, 40)
    .FillPie(Brushes.Brown, 0, 0, 300, 200, 230, 60)
    .FillPie(Brushes.Violet, 0, 0, 300, 200, 300, 50)
    ':
    .FillEllipse(Brushes.Yellow, 100, 67, 100, 67)
    .DrawEllipse(Pens.Black, 100, 67, 100, 67)
    End Sub
    18.
    ': .
    ' , . .
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    '
    Dim As Graphics = Me.CreateGraphics
    Dim _, _, _ As Integer
    Dim _, _, _ As Integer
    Dim _, _ As Integer
    Dim __, _ As Integer
    '
    _ = InputBox(" ")
    _ = InputBox(" ")
    _ = InputBox(" ")
    _ = InputBox(" ")
    ' , , -
    .FillRectangle(Brushes.Aquamarine, 20, 80, _, _) '
    .DrawRectangle(Pens.Black, 20, 80, _, _) '
    .FillRectangle(Brushes.Brown, 20, 80, _, _) '
    '
    _ = _ * _
    _ = _ * _
    _ = 2 * (_ + _)
    _ = _ + _
    __ = _ - _
    _ = _ - _
    '
    .DrawString(" " & _, Me.Font, Brushes.Black, 100, 10)
    .DrawString(" = " & __, _
    Me.Font, Brushes.Black, 100, 30)
    .DrawString(" = " & _, Me.Font, Brushes.Black, 100, 50)
    End Sub
    19.
    Dim As Graphics
    ' - Single, :
    Dim r, h As Single
    ' , , :


    Dim L, S, V, S, S As Double
    ' :
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    = Me.CreateGraphics
    End Sub
    ' :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    r = TextBox1.Text
    h = TextBox2.Text
    L = 2 * Math.PI * r
    S = Math.PI * r ^ 2
    V = S * h
    .DrawString(" = " & Format(V, "0.000"), Me.Font, Brushes.Black, 250, 20)
    S = L * h
    S = S + 2 * S
    .DrawString(" = " & Format(S, "0.000"), _
    Me.Font, Brushes.Black, 250, 40)
    End Sub
    ' :
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    r = TextBox1.Text
    h = TextBox2.Text
    .DrawEllipse(Pens.Black, 200, 100, 2 * r, r) '
    .DrawEllipse(Pens.Black, 200, 100 + h, 2 * r, r) '
    .DrawLine(Pens.Black, 200, 100 + r / 2, 200, 100 + r / 2 + h) '
    .DrawLine(Pens.Black, 200 + 2 * r, 100 + r / 2, 200 + 2 * r, 100 + r / 2 + h) '
    End Sub
    ' :
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    .Clear(Color.White)
    End Sub
    20.
    8
    29
    6
    21.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim a, b As Double
    a = InputBox(" ")
    b = InputBox(" ")


    If a > b Then Debug.WriteLine(a + b) Else Debug.WriteLine(a * b)
    Debug.WriteLine(" ")
    End Sub
    22.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim a, b, c As Double
    a = InputBox(" ")
    b = InputBox(" ")
    c = InputBox(" ")
    If a >= b + c Then Debug.WriteLine(" ") Else Debug.WriteLine(" ")
    End Sub
    23.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim N As Integer, _ As Integer, _ As Integer
    N = InputBox(" ")
    If N < 100 Then _ = 3 * N Else _ = 300 + 2 * (N - 100)
    Debug.WriteLine(_)
    _ = 2 * _
    Debug.WriteLine(_)
    End Sub
    24.
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    If Button6.Top < 100 Then Button6.Top = Button6.Top + 20
    End Sub
    25.
    Dim As Graphics
    Dim _, _ As Single
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    = Me.CreateGraphics
    End Sub
    ' :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    _ = 200
    _ = 300
    .FillRectangle(Brushes.Black, 100, 50, _, _)
    .DrawRectangle(Pens.White, 100, 50, _, _)
    .DrawLine(Pens.White, 100 + _ / 2, 50, 100 + _ / 2, 50 + _)
    End Sub
    ' :
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    .DrawEllipse(Pens.White, 100 + _ * Rnd(), 50 + _ * Rnd(), 3, 3)
    End Sub
    26.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Randomize()
    ' Button1.Width :
    Button1.Left = (Me.Width - Button1.Width) * Rnd()
    ' Button1.Height :
    Button1.Top = (Me.Height - Button1.Height - 30) * Rnd()
    End Sub
    27.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Byte
    Randomize()
    Dim _ As Byte = Fix(2 * Rnd())
    = InputBox(" - 0 1?")
    If = _ Then TextBox1.Text = "" Else TextBox1.Text = " "
    End Sub
    28.
    12653
    29.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As String
    = InputBox(" ?")
    If = "" Then
    MsgBox("!")
    ElseIf = "" Then
    Me.BackColor = Color.Green
    MsgBox("!")
    ElseIf = "John" Then
    MsgBox("Hi!")
    Else
    MsgBox("!")
    End If
    End Sub
    30.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim imya, As String
    Dim vozrast As Integer
    imya = InputBox(", , ?")
    vozrast = InputBox(" , " & imya & ". ?")
    MsgBox("! " & vozrast & " ! !")


    If vozrast > 17 Then
    ' , InputBox :
    InputBox(" ?")
    MsgBox(" ")
    Else
    InputBox(" ?")
    MsgBox(" ")
    End If
    MsgBox(" !")
    End Sub
    31.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim a, b, c As Double
    a = InputBox(" ")
    b = InputBox(" ")
    c = InputBox(" ")
    If a >= b + c Then : MsgBox("")
    ElseIf b >= a + c Then : MsgBox("")
    ElseIf c >= a + b Then : MsgBox("")
    Else : MsgBox("")
    End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim a, b, c As Double
    a = InputBox(" ")
    b = InputBox(" ")
    c = InputBox(" ")
    If a >= b + c Or b >= a + c Or c >= a + b Then MsgBox("") Else MsgBox("")
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim a, b, c As Double
    a = InputBox(" ")
    b = InputBox(" ")
    c = InputBox(" ")
    If a < b + c And b < a + c And c < a + b Then MsgBox("") Else MsgBox("")
    End Sub
    32.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


    Dim a As String '
    Dim b As String '
    a = InputBox(" ")
    If a = "" Or a = "" Or a = "" Then
    b = a
    ElseIf a = " " Or a = "" Then
    b = ""
    ElseIf a = " " Then
    b = ""
    Else
    b = " "
    End If
    MsgBox(b)
    End Sub
    33.
    , , 180 184.
    34.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim As Graphics = Me.CreateGraphics
    .DrawLine(Pens.Black, 0, 100, 1000, 100) '
    .FillRectangle(Brushes.Black, 0, 90, 10, 10) '
    .FillRectangle(Brushes.Blue, 280, 90, 20, 10) '
    .FillRectangle(Brushes.Blue, 650, 90, 50, 10) '
    Dim a As Single = InputBox(" ")
    .FillEllipse(Brushes.Red, 10 * a, 95, 10, 10) '
    If (a > 28 And a < 30) Or (a > 65 And a < 70) Then
    MsgBox("")
    ElseIf (a > 18 And a < 40) Or (a > 55 And a < 80) Then
    MsgBox("")
    ElseIf a > 80 Then
    MsgBox("")
    ElseIf a > 30 And a < 65 Then
    MsgBox(" ")
    ElseIf a < 0 Then
    MsgBox(" ")
    Else
    MsgBox("")


    End If
    End Sub
    35.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Me.CreateGraphics
    ' (a, b, c), (bol, drug1, drug2),
    ', , (S, h, p), -:
    Dim a, b, c, bol, drug1, drug2, S, h, p, x1, y1, x2, y2, x3, y3 As Single
    a = InputBox(" ")
    b = InputBox(" ")
    c = InputBox(" ")
    ' bol drug1 drug2:
    If a >= b And a >= c Then
    bol = a : drug1 = b : drug2 = c
    ElseIf b >= a And b >= c Then
    bol = b : drug1 = a : drug2 = c
    ElseIf c >= a And c >= b Then
    bol = c : drug1 = a : drug2 = b
    End If
    If bol < drug1 + drug2 Then
    p = (a + b + c) / 2
    S = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) '
    h = 2 * S / bol
    ' - , .
    ' :
    y1 = 100
    x1 = 100
    ' :
    y2 = y1
    x2 = x1 + bol
    ' h:
    y3 = y1 + h
    ' ( ):
    x3 = x1 + Math.Sqrt(drug1 ^ 2 - h ^ 2)
    ' :
    .DrawLine(Pens.Black, x1, y1, x2, y2)
    .DrawLine(Pens.Black, x2, y2, x3, y3)
    .DrawLine(Pens.Black, x3, y3, x1, y1)
    Else
    MsgBox(" ")


    End If
    End Sub
    36.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As String = InputBox(" ")
    Select Case
    Case "", "", "", "", "", ""
    MsgBox("")
    Case "", "", "", "", "", "", "", "", "", "", ""
    MsgBox(" ")
    Case "", "", "", "", "", "", "", "", "", ""
    MsgBox(" ")
    Case "", "", "", "", "", ""
    MsgBox("- , ")
    Case Else
    MsgBox(" ")
    End Select
    End Sub
    38.

    10
    10
    11
    13
    16
    20
    25
    . . . . .
    39.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    m: PictureBox1.Left = PictureBox1.Left - 1 '
    GoTo m
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    m: PictureBox1.Top = PictureBox1.Top + 1 '
    GoTo m
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    m: PictureBox1.Top = PictureBox1.Top - 1 '
    GoTo m
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click


    m: PictureBox1.Left = PictureBox1.Left + 1 '
    PictureBox1.Top = PictureBox1.Top + 1 ' -
    GoTo m
    End Sub
    40 .
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' 1 2 3 4 . . . 100:
    Dim a As Integer = 1
    m1: Debug.Write(a & " ")
    a = a + 1
    If a <= 100 Then GoTo m1
    ' 99 98 97 96 . . . 1:
    a = 99
    m2: Debug.Write(a & " ")
    a = a - 1
    If a >= 1 Then GoTo m2
    End Sub
    41.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim x, y, z As Double
    x = 2700
    m1: y = x / 4 + 20
    z = 2 * y + 0.23
    If y * z < 1 / x Then GoTo m2
    Debug.WriteLine(Format(x, "0.000000") & " " & Format(y, "0.000000") & " " & Format(z, "0.000000"))
    x = x / 3
    GoTo m1
    m2:
    End Sub
    , , , .
    42.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim x As Double
    x = 50 '
    m: PictureBox1.Left = x ' , .
    x = x + 0.0001 '
    If x <= 300 Then GoTo m ' 300
    End Sub
    43.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim x, y As Single
    x = 50 : y = 100 '
    Label1.Text = " "


    Label1.Refresh()
    PictureBox1.Top = y ' , .
    m: PictureBox1.Left = x ' , .
    x = x + 0.0001 '
    If x <= 500 Then GoTo m ' 500
    Label1.Text = " "
    Label1.Refresh()
    m1: PictureBox1.Top = y ' ,
    y = y + 0.0001 '
    If y <= 400 Then GoTo m1 ' 400
    End Sub
    44.
    Dim f, s As Integer
    f = 0
    Do
    s = 1000 - f
    Debug.Write(f & " " & s & " ")
    f = f + 1
    Loop While f <= 1000
    2 :
    Loop Until f > 1000
    45.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim x, y As Single
    x = 50 : y = 100 '
    Label1.Text = " "
    Label1.Refresh()
    PictureBox1.Top = y ' , .
    Do While x <= 500 ' 500
    PictureBox1.Left = x ' , .
    x = x + 0.0001 '
    Loop
    Label1.Text = " "
    Label1.Refresh()
    Do Until y > 400 ' 400
    PictureBox1.Top = y ' ,


    y = y + 0.0001 '
    Loop
    End Sub
    46.
    Dim Slovo As String
    Dim As Integer = 1
    Do
    Slovo = InputBox(" ")
    Debug.WriteLine( & " " & Slovo & "!")
    If Len(Slovo) > 10 Then Debug.WriteLine(" .")
    = + 1
    Loop Until Slovo = ""
    Debug.WriteLine(" ")
    47.
    ' :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim v, t, h, s As Double
    v = 20 : t = 0 : h = 100 : s = 0
    Do
    s = v * t
    h = 100 - 9.81 * t ^ 2 / 2
    Debug.WriteLine(Format(t, "0.0") & " " & Format(s, "0.000") & " " & Format(h, "0.000"))
    t = t + 0.2
    Loop Until h < 0
    End Sub
    ' :
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim v, t, h, s As Double
    Dim x, y As Single '
    Dim As Graphics = Me.CreateGraphics
    v = 20 : t = 0 : h = 100 : s = 0
    .DrawLine(Pens.Black, 10, 110, 200, 110) ' 110
    ' 10 , - 110:
    .FillRectangle(Brushes.Green, 10, 10, 20, 100)
    MsgBox(" ")
    Do
    s = v * t
    h = 100 - 9.81 * t ^ 2 / 2
    Debug.WriteLine(Format(t, "0.0") & " " & Format(s, "0.000") & " " & Format(h, "0.000"))


    x = s + 20 ' , 20
    y = 110 - h
    ' h = 100 ,
    , 10
    ' , h = 0 ,
    , 110
    .DrawEllipse(Pens.Black, x, y, 5, 5) '
    t = t + 0.2
    Loop Until h < 0
    End Sub
    48.
    Dim Slovo As String
    Do
    Slovo = InputBox(" ")
    If Slovo = "" Then Exit Do
    Debug.WriteLine(Slovo & "!")
    Loop
    Debug.WriteLine(" ")
    49.
    Dim i As Integer
    Debug.Write(" ")
    For i = -5 To 5
    Debug.Write(i & " ")
    Next
    Debug.Write(" ")
    For i = 5 To -5 Step -1
    Debug.Write(i & " ")
    Next
    Debug.Write(" ")
    50.
    Dim i, _ As Single
    For i = 1 To 20
    _ = 80 * Rnd()
    .DrawEllipse(Pens.Black, PictureBox1.Width * Rnd(), PictureBox1.Height * Rnd(), _
    _, _ / 2)
    Next i
    51.
    Dim i, As Single
    For i = 1 To 5
    = 200 * Rnd()
    .DrawEllipse(Pens.Red, PictureBox1.Width * Rnd(), PictureBox1.Height * Rnd(), , )
    .DrawEllipse(Pens.Yellow, PictureBox1.Width * Rnd(), PictureBox1.Height * Rnd(), , )
    .DrawEllipse(Pens.Blue, PictureBox1.Width * Rnd(), PictureBox1.Height * Rnd(), , )
    .DrawEllipse(Pens.Green, PictureBox1.Width * Rnd(), PictureBox1.Height * Rnd(), , )
    .DrawEllipse(Pens.White, PictureBox1.Width * Rnd(), PictureBox1.Height * Rnd(), , )


    Next i
    52.
    Dim i As Integer
    For i = 1 To 10000 ' - . .
    ' -
    'Me.Width / 2 Me.Height / 2 Me.Width * Rnd() .
    ' Me.Height * Rnd() .
    ' CSng Single.
    .DrawLine(Pens.White, CSng(Me.Width / 2), CSng(Me.Height / 2), Me.Width * Rnd(), Me.Height * Rnd())
    .DrawLine(Pens.Yellow, CSng(Me.Width / 2), CSng(Me.Height / 2), Me.Width * Rnd(), Me.Height * Rnd())
    .DrawLine(Pens.Blue, CSng(Me.Width / 2), CSng(Me.Height / 2), Me.Width * Rnd(), Me.Height * Rnd())
    .DrawLine(Pens.Red, CSng(Me.Width / 2), CSng(Me.Height / 2), Me.Width * Rnd(), Me.Height * Rnd())
    .DrawLine(Pens.Green, CSng(Me.Width / 2), CSng(Me.Height / 2), Me.Width * Rnd(), Me.Height * Rnd())
    Next i
    53.
    For i = 1 To 300
    ' 0 200,
    ' - (200 * Rnd)
    ' 400 600,
    ' - (400 + 200 * Rnd)
    ' , 0 600.
    .DrawLine(Pens.Yellow, 200 * Rnd(), 600 * Rnd(), 400 + 200 * Rnd(), 600 * Rnd())
    .DrawLine(Pens.Green, 200 * Rnd(), 600 * Rnd(), 400 + 200 * Rnd(), 600 * Rnd())
    .DrawLine(Pens.Wheat, 200 * Rnd(), 600 * Rnd(), 400 + 200 * Rnd(), 600 * Rnd())
    Next
    54.
    x = x + 5
    54.
    x = 0
    Do Until x > Me.Width - 30
    .DrawEllipse(Pens.Black, x, 100, 20, 20)
    x = x + 5


    Loop
    54.
    .DrawEllipse(Pens.Black, x, 100, 40, 40)
    55.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim As Graphics = Me.CreateGraphics
    Dim x, y As Integer
    ' :
    x = 0 : y = 0 '
    Do Until x > Me.Width '
    .FillEllipse(Brushes.White, x, y, 4, 4)
    x = x + 15 : y = y + 10
    Loop
    ' :
    x = 0 : y = Me.Height 30 '
    Do Until x > Me.Width '
    .FillEllipse(Brushes.White, x, y, 4, 4)
    x = x + 15 : y = y - 10
    Loop
    End Sub
    56.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim x, y, D As Integer
    Dim As Graphics = Me.CreateGraphics
    x = 0 : y = 0 : D = 0
    Do Until x > 400
    .DrawEllipse(Pens.Black, x, y, D, D)
    x = x + 5
    y = y + 2
    D = D + 1
    Loop
    End Sub
    57.
    :
    .DrawRectangle(Pens.Black, x, y, D, D)
    58.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Me.CreateGraphics
    Dim y As Integer
    y = 0 '
    Do Until y > Me.Height '
    ' :
    .DrawLine(Pens.Black, 0, y, Me.Width, y)
    y = y + 20 ' = 20


    Loop
    End Sub
    58.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim As Graphics = Me.CreateGraphics
    Dim x, y As Integer
    ' :
    y = 0 '
    Do Until y > Me.Height '
    ' :
    .DrawLine(Pens.Black, 0, y, Me.Width, y)
    y = y + 10 ' = 10
    Loop
    ' :
    x = 0 '
    Do Until x > Me.Width '
    ' :
    .DrawLine(Pens.Black, x, 0, x, Me.Height)
    x = x + 10 ' =10
    Loop
    End Sub
    58.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim As Graphics = Me.CreateGraphics
    Dim x, y As Integer
    ' :
    y = 0 '
    Do Until y > Me.Height '
    ' :
    .DrawLine(Pens.Black, 0, y, Me.Width, y)
    y = y + 20 ' = 20
    Loop
    ' :
    x = 0 '
    Do Until x > Me.Width + 300 ' 300


    ' :
    .DrawLine(Pens.Black, x, 0, x - 200, Me.Height)
    x = x + 10 ' =10
    Loop
    End Sub
    59.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim As Graphics = Me.CreateGraphics
    Dim x, _, i, _, _ As Integer
    Dim As String
    _ = InputBox(" ")
    x = 20 '
    For i = 1 To _
    = InputBox(" ")
    _ = InputBox(" ")
    _ = _ / 100
    ' 100 ,
    ' (50 - , 60 - ):
    .FillRectangle(Brushes.Black, x, 50, 60, _)
    ' :
    .DrawString(, Me.Font, Brushes.Black, x, 30)
    ' :
    .DrawString(_ * 1000, Me.Font, Brushes.Black, x, _ + 60)
    x = x + 70 '
    Next
    End Sub
    60.
    :
    = 300 = 1200
    = 300 = 1200
    = 300 = 1200
    60.
    :
    = 50 = 150
    61.
    . , 10


    . , 2
    . 200
    . 1, , 0
    . 200, , 0
    62.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim N, a, i, c_, c_, c__10 As Integer
    c_ = 0 '
    c_ = 0 '
    c__10 = 0 ' , 10
    N = InputBox(" ?")
    For i = 1 To N
    a = InputBox(" ")
    If a > 0 Then c_ = c_ + 1
    If a < 0 Then c_ = c_ + 1
    If a > 10 Then c__10 = c__10 + 1
    Next i
    Debug.WriteLine(" - " & c_ & ", - " & c_ _
    & ", , - " & c__10)
    End Sub
    Select Case If , .
    63.
    Dim a, b, c As Integer
    c = 0 '
    Do
    a = InputBox(" ")
    b = InputBox(" ")
    If a = 0 And b = 0 Then Exit Do
    If a + b = 12 Then c = c + 1
    Loop
    Debug.WriteLine(c)
    64.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim i, _, _, _ As Integer
    Dim x, y, _, _ As Single


    _ = Me.Width
    _ = Me.Height
    ' , :
    .DrawLine(Pens.White, _ / 2, 0, _ / 2, _)
    ' 100 100 :
    .DrawRectangle(Pens.White, 0, 0, 100, 100)
    ' 100 100 (28 - ):
    .DrawRectangle(Pens.White, 0, _ - 100 - 28, 100, 100)
    _ = 0 : _ = 0 : _ = 0
    Randomize()
    For i = 1 To 100
    x = Me.Width * Rnd()
    y = Me.Height * Rnd() - 28
    .FillEllipse(Brushes.White, x, y, 3, 3) '
    If x < _ / 2 Then _ = _ + 1
    If x < 100 And y < 100 Then _ = _ + 1
    If x < 100 And y > _ - 128 Then _ = _ + 1
    Next
    ' :
    Debug.WriteLine(_)
    Debug.WriteLine(_)
    Debug.WriteLine(_)
    ', :
    If _ > _ Then
    Debug.WriteLine(" ")
    ElseIf _ < _ Then
    Debug.WriteLine(" ")
    Else
    Debug.WriteLine("")
    End If
    End Sub
    65.
    . 18
    . 10
    . 5 8
    . 3
    . 10
    . 3
    . 5
    66.
    Dim Dlina, Shirina, S As Double
    Dim i As Integer
    S = 0 '
    For i = 1 To 40
    Dlina = InputBox(" ")
    Shirina = InputBox(" ")
    S = S + Dlina * Shirina '


    Next
    Debug.WriteLine(" = " & S)
    67.
    Dim i, N, , s As Integer
    Dim _ As Double
    N = InputBox(" ?")
    s = 0 '
    For i = 1 To N
    = InputBox(" ")
    s = s + 렠 '
    Next i
    _ = s / N
    MsgBox(" = " & Format(_, "0.000"))
    68.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim i, N, , proizv As Integer
    N = InputBox(" ?")
    proizv = 1 'C , 1. ?
    For i = 1 To N
    = InputBox(" ")
    proizv = proizv *  '
    Next i
    MsgBox(" " & proizv)
    End Sub
    69.
    For k = 3 To 8
    For l = 0 To 7
    Debug.WriteLine(k & l) '
    Next l
    Next k
    69.
    i = 0 '
    For k = 1 To 3
    For l = 1 To 3
    For m = 1 To 3
    For n = 1 To 3
    Debug.WriteLine(k & l & m & n) '
    i = i + 1
    Next n
    Next m
    Next l
    Next k
    Debug.WriteLine(i) '
    69.
    i = 0 '


    For k = 1 To 3
    For l = 1 To 3
    For m = 1 To 3
    For n = 1 To 3
    If k <= l And l <= m And m <= n Then
    i = i + 1
    Debug.WriteLine(k & l & m & n) '
    End If
    Next n
    Next m
    Next l
    Next k
    Debug.WriteLine(i) '
    70.
    = 30 '
    = 16 '
    y = 10
    Do Until y > 400
    x = 20
    Do Until x > 500
    .DrawEllipse(Pens.Black, x, y, , )
    x = x +
    Loop
    y = y +
    Loop
    70.

    .DrawEllipse(Pens.Black, x, y, , )

    If Not (x > 400 And y < 100) Then .DrawEllipse(Pens.Black, x, y, , )
    :
    Ƞ , ( ), Π
    70.

    If Not (x > 400 And y < 100) Then .DrawEllipse(Pens.Black, x, y, , )

    If Not (x > 400 And y < 100) And Not (x > 200 And x < 300 And y > 150 And y < 250) Then _
    .DrawEllipse(Pens.Black, x, y, , )
    :
    Ƞ , ( ) Ƞ , ( ), Π
    71.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim i, j, x, y, , As Integer
    = 40 '


    = 5 '
    y = 20 '
    For i = 1 To 8 ' 8 , i -
    x = 20 '
    For j = 1 To 8 ' 8 , j -
    ' , , :
    If (i + j) Mod 2 = 0 Then
    .FillRectangle(Brushes.Yellow, x, y, , )
    Else
    .FillRectangle(Brushes.Red, x, y, , )
    End If
    .DrawRectangle(Pens.Black, x, y, , ) '
    x = x + +
    Next
    y = y + +
    Next
    End Sub
    72.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim a, b, proizv, x, y As Integer
    .DrawString(" ", Me.Font, Brushes.Black, 300, 10)
    y = 30
    For a = 1 To 10
    x = 10
    For b = 1 To 10
    proizv = a * b
    .DrawRectangle(Pens.Black, x, y, 60, 15)
    .DrawString(a & "*" & b & "=" & proizv, Me.Font, Brushes.Black, x, y)
    x = x + 70
    Next
    y = y + 20
    Next
    End Sub
    73.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim max, chislo, i As Integer
    For i = 1 To 10
    chislo = InputBox(" ")
    If i = 1 Then
    max = chislo
    ElseIf chislo > max Then


    max = chislo
    End If
    Next i
    Debug.WriteLine(max)
    End Sub
    73.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim max, chislo, i As Integer
    max = -100000
    For i = 1 To 10
    chislo = InputBox(" ")
    If chislo > max Then max = chislo
    Next i
    Debug.WriteLine(max)
    End Sub
    74.
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Dim min, chislo, i, N, __ As Integer
    N = InputBox(" ?")
    min = InputBox(" ")
    __ = 1
    For i = 2 To N
    chislo = InputBox(" ")
    If chislo < min Then
    min = chislo
    __ = i
    End If
    Next i
    Debug.WriteLine(min)
    Debug.WriteLine(__)
    End Sub
    75.
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    Dim i, N As Integer
    Dim , Min, Max As Double
    N = InputBox(" ?")
    Min = 5000 '
    Max = 0 '
    For i = 1 To N
    = InputBox(" ")
    If < Min Then Min =
    If > Max Then Max =
    Next i
    If Max - Min > 0.4 Then MsgBox("") Else MsgBox("")
    End Sub
    76.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim i, x, y, __, __ As Integer
    __ = -100000 ' " "


    For i = 1 To 4
    x = 400 * Rnd()
    y = 300 * Rnd()
    .FillEllipse(Brushes.White, x, y, 3, 3)
    If x > __ Then
    __ = x
    __ = y
    End If
    Next i
    Debug.WriteLine(__ & " " & __)
    End Sub
    77.
    , , - ? - ?
    -
    , , ?
    ! , ?
    , , - !
    , ! , .
    , ?
    , - ?
    ! - !!!
    78.
    Private Sub (ByVal x As Single, ByVal y As Single, ByVal As Single)
    ' - 2
    .DrawLine(Pens.Black, x + / 2, y, x + / 2, y + )
    .DrawLine(Pens.Black, x, y + / 2, x + , y + / 2)
    End Sub
    Private Sub (ByVal x As Single, ByVal y As Single, ByVal As Single)
    ' - 3
    'x y -
    .DrawLine(Pens.Black, x, y, x + , y)
    .DrawLine(Pens.Black, x, y, x + / 2, y - )
    .DrawLine(Pens.Black, x + , y, x + / 2, y - )
    End Sub
    80.
    Function (ByVal Slovo1 As String, ByVal Slovo2 As String) As Integer
    If Len(Slovo1) < Len(Slovo2) Then Return Len(Slovo1) Else Return Len(Slovo2)
    End Function
    81.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' :
    Dim As Rectangle
    Dim i As Integer
    .X = 100 : .Y = 100 : .Width = 10 : .Height = 10
    For i = 1 To 10
    .DrawEllipse(Pens.Black, )
    .Inflate(10, 10)


    Next
    End Sub
    82.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '-:
    Dim As Rectangle
    .X = 400 : .Y = 300 : .Width = 100 : .Height = 100
    Do Until .Width > 500
    .DrawEllipse(Pens.Gold, )
    .Inflate(3, 3)
    Loop
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    ' :
    Dim As Rectangle
    .X = 400 : .Y = 300 : .Width = 100 : .Height = 50
    Do Until .Width > 500
    .DrawEllipse(Pens.Gold, )
    .Inflate(4, 2)
    Loop
    End Sub
    83.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    ':
    Dim As RectangleF
    .X = 200 : .Y = 400 : .Width = 100 : .Height = 50
    ' , , :
    Do Until .Width < 0
    .DrawEllipse(Pens.Black, )
    .Inflate(-1, -0.5) '
    .Y = .Y - 5
    Loop
    End Sub
    84.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Label1.CreateGraphics '
    Dim As New Pen(Color.Blue, 5) '
    .EndCap = Drawing.Drawing2D.LineCap.ArrowAnchor '
    Dim As New Font("Times", 28, FontStyle.Bold Or FontStyle.Italic)
    Dim x, y, Xo, Yo, X, Y, dx As Single
    Xo = 30 '


    Yo = Label1.Height / 2 '
    .DrawLine(, 10, Yo, Label1.Width - 10, Yo) '
    .DrawLine(, Xo, Label1.Height - 10, Xo, 10) '
    .DrawString("x", , Brushes.Red, Label1.Width - 40, Yo) ' x
    .DrawString("y", , Brushes.Red, Xo - 30, 0) ' y
    .DrawString(" ", , Brushes.Red, Xo + 30, 0) '
    .DrawString("sin x / x", , Brushes.Red, Xo + 120, 40) '
    ' :
    dx = 0.01 ' x ,
    For x = 0 To 3000 * dx Step dx
    y = (Math.Sin(x)) / x ' "" y
    X = Xo + 10 * x '
    Y = Yo - 100 * y '
    .FillEllipse(Brushes.Black, X, Y, 3, 3) '
    Next
    End Sub
    : 5, 28, 30, 10, 40, 120 13 . 3000 30 / 0.01. x y, x y . : X Y:
    X = Xo + 10 * x '
    Xo 10 . 10 .


    Y = Yo - 100 * y '
    Yo 100 . 100 . 100 * y. , Y , .
    , x = 0 VB# , Single.
    .
    85.
    ' Form1 -"" PictureBox1 PictureBox2
    ' , - "" PictureBox3.
    Dim _, _ As Single
    ' "" PictureBox1:
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles PictureBox1.Click
    ' "" PictureBox3 :
    PictureBox3.SizeMode = PictureBoxSizeMode.AutoSize
    PictureBox3.Image = PictureBox1.Image ' "" ""
    ' "" PictureBox3:
    PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
    PictureBox1.BorderStyle = BorderStyle.Fixed3D ' ,
    _ = Me.Width / Me.Height '
    ' "" PictureBox3, :
    _ = PictureBox3.Width / PictureBox3.Height
    If _ > _ Then ' , , ...


    PictureBox3.Width = 0.9 * Me.Width ', , ( 1/10)
    PictureBox3.Left = 0.05 * Me.Width ' ( 1/20 )
    PictureBox3.Height = PictureBox3.Width / _蠠 '
    PictureBox3.Top = (Me.Height - PictureBox3.Height) / 2 '
    Else ' ...
    PictureBox3.Height = 0.9 * Me.Height ', , ( 1/10)
    PictureBox3.Top = 0.05 * Me.Height ' ( 1/20 )
    PictureBox3.Width = PictureBox3.Height * _ '
    PictureBox3.Left = (Me.Width - PictureBox3.Width) / 2 '
    End If
    End Sub
    ' "" PictureBox2:
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles PictureBox2.Click
    PictureBox3.SizeMode = PictureBoxSizeMode.AutoSize
    PictureBox3.Image = PictureBox2.Image
    PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
    PictureBox2.BorderStyle = BorderStyle.Fixed3D
    _ = Me.Width / Me.Height
    _ = PictureBox3.Width / PictureBox3.Height
    If _ > _ Then
    PictureBox3.Width = 0.9 * Me.Width
    PictureBox3.Left = 0.05 * Me.Width
    PictureBox3.Height = PictureBox3.Width / _
    PictureBox3.Top = (Me.Height - PictureBox3.Height) / 2
    Else
    PictureBox3.Height = 0.9 * Me.Height
    PictureBox3.Top = 0.05 * Me.Height
    PictureBox3.Width = PictureBox3.Height * _


    PictureBox3.Left = (Me.Width - PictureBox3.Width) / 2
    End If
    End Sub
    86.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Me.CreateGraphics
    Dim i As Integer
    For i = 1 To 100
    Dim As New SolidBrush(Color.FromArgb(255 * Rnd(), 255 * Rnd(), 255 * Rnd(), 255 * Rnd()))
    .FillEllipse(, 800 * Rnd(), 600 * Rnd(), 800 * Rnd(), 600 * Rnd())
    Next
    End Sub
    87.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim , As Single
    Dim i As Integer
    Dim As Pen
    Dim As Graphics = PictureBox1.CreateGraphics
    Dim As New Bitmap(".JPG")
    ' :
    Dim As New Rectangle(0, 0, .Width, .Height)
    .DrawImage(, ) '
    .Inflate(-150, -150) '
    = 8 ' ,
    For i = 0 To 40 ' 40
    .Inflate(, ) '
    = 20 * i '
    ' 255:
    If > 255 Then = 255
    = New Pen(Color.FromArgb(, 255, 255, 255), )
    .DrawEllipse(, )
    Next
    End Sub
    88.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim _, As Integer
    _ = InputBox _
    (" 1, 2 3. , 1, - - 2, - 3")


    = InputBox(" - 0 255")
    _(_, )
    End Sub
    Private Sub _( ByVal _ As Integer, ByVal As Integer)
    Dim As Single = 1 '
    Dim i, j As Integer
    Dim x, y As Single
    Dim As Graphics = Me.CreateGraphics
    Dim As New SolidBrush(Color.White)
    For j = 0 To 255 ' -
    y = j * 𠠠 '
    For i = 0 To 255 ' -
    x = i * '
    Select Case _
    Case 1 : .Color = Color.FromArgb(, i, j)
    Case 2 : .Color = Color.FromArgb(i, , j)
    Case 3 : .Color = Color.FromArgb(i, j, )
    End Select
    .FillRectangle(, x, y, x + , y + ) '
    Next i
    Next j
    End Sub
    89.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Me.CreateGraphics
    Dim As New Bitmap("Spacescape.JPG")
    Dim 1 As New Bitmap(, 500, 400)
    Dim _ As Color
    Dim x, y, , , As Integer
    .DrawImage(1, 0, 0)
    x = InputBox(" ")
    y = InputBox(" ")
    .DrawEllipse(New Pen(Color.Yellow, 3), x - 5, y - 5, 10, 10) '
    _ = 1.GetPixel(x, y) '


    = _.R '
    = _.G '
    = _.B '
    ', :
    If > And > Then
    Debug.WriteLine(" ")
    ElseIf > And > Then
    Debug.WriteLine(" ")
    ElseIf > And > Then
    Debug.WriteLine(" ")
    Else
    Debug.WriteLine(" ")
    End If
    End Sub
    90.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Graphics = Me.CreateGraphics
    Dim As New Bitmap("DIME.WMF")
    .TranslateTransform(Me.Width / 2, Me.Height / 2) '
    Do
    ' , :
    .DrawImage(, -190, -188) ' 190 188
    .RotateTransform(2) ' 2
    Loop
    End Sub
    91.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim __ As DateTime
    Dim _ As String
    __ = DateAdd("ww", 52, Now)
    _ = __.ToLongDateString
    Debug.WriteLine(_)
    End Sub
    92.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim _ As DateTime
    _ = InputBox(" ")
    Debug.WriteLine(DateDiff("s", _, Now))


    End Sub
    93.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim _, ____, ____ As DateTime
    Dim __, __ As Integer
    ' __ .
    ' .
    _ = InputBox(" ")
    __ = DateDiff("yyyy", _, Today)
    ____ = DateAdd("yyyy", __, _)
    ____ = DateAdd("yyyy", __ + 1, _)
    If ____ >= Today Then '
    __ = DateDiff("y", Today, ____)
    Else
    __ = DateDiff("y", Today, ____)
    End If
    Debug.WriteLine(__)
    End Sub
    94.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    ' ( 4) 1920 2940 .
    Dim _, __ As DateTime
    _ = #1/1/1920#
    Dim ___, As Integer
    Do Until _ > #1/1/2940#
    __ = DateAdd("yyyy", 1, _)
    ___ = DateDiff("y", _, __)
    = DatePart("yyyy", _)
    If (___ = 366) And Not ( Mod 4 = 0) Then
    Debug.WriteLine(" - " & )
    Debug.WriteLine(" - " & ___)


    End If
    _ = __
    Loop
    End Sub
    95.
    Dim k As Long = 100
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Debug.WriteLine(k)
    k = k + 1
    If k > 110 Then Timer1.Enabled = False
    End Sub
    98.
    Dim x As Integer = 100 '
    Dim y As Integer = 150
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim As Graphics = Me.CreateGraphics
    Dim _ As Pen = New Pen(Color.Black, 5)
    Dim __ As Pen = New Pen(Me.BackColor, 5)
    Dim i As Integer
    .DrawEllipse(_, x, y, 20, 20) '
    .DrawEllipse(_, x + 100, y, 20, 20) '
    .DrawRectangle(_, x, y - 20, 120, 20) '
    For i = 1 To 5000000 : Next '
    .DrawEllipse(__, x, y, 20, 20) '
    .DrawEllipse(__, x + 100, y, 20, 20) '
    .DrawRectangle(__, x, y - 20, 120, 20) '
    x = x + 1 '
    End Sub
    99.
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    PictureBox1.Left = PictureBox1.Left - 1
    PictureBox2.Left = PictureBox2.Left - 1
    End Sub
    100.
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Button1.Left = Button1.Left + 1
    Button2.Left = Button2.Left - 1


    Button3.Top = Button3.Top - 1
    Button4.Top = Button4.Top + 1
    Button5.Left = Button5.Left + 1
    Button5.Top = Button5.Top - 1
    End Sub

    101.
    Dim As Integer = 2
    Dim x As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Button1.Left = x
    x = x +
    If x > Width - Button1.Width Then = -2 ' ,
    If x < 0 Then = 2 ' ,
    End Sub
    렠 Width - Button1.Width, 堠 Width, .
    102.
    Dim x, y As Integer '
    'dx - p p, p p
    ' . dy - p
    Dim dx As Integer = 4
    Dim dy As Integer = 6 '4 6 - p - p
    Dim _ As Integer
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
    Handles MyBase.Paint
    Dim As Graphics = Me.CreateGraphics
    .DrawRectangle(Pens.Black, 20, 20, 600, 300) '
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    _ = PictureBox1.Height
    x = PictureBox1.Left : y = PictureBox1.Top '
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    x = x + dx : y = y + dy ' " "
    PictureBox1.Left = x : PictureBox1.Top = y '
    If x < 20 Or x > 620 - _ Then dx = -dx 'p p p,


    ' p p p p
    If y < 20 Or y > 320 - _ Then dy = -dy 'p p p,
    'p p p p
    ' p p
    ' p p p , p:
    If (x < 40 And y < 40) Or (x < 40 And y > 300 - _) Or (x > 600 - _ And y < 40) _
    Or (x > 600 - _ And y > 300 - _) Then Timer1.Enabled = False
    End Sub
    103.
    Dim D As Single = 400 '
    Dim t As Integer = 0 '
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
    Handles MyBase.Paint
    Dim As Graphics = Me.CreateGraphics
    .DrawEllipse(Pens.Black, 0, 0, D, D) '
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim As Graphics = Me.CreateGraphics
    Dim __ As New SolidBrush(Me.BackColor)
    .FillPie(__, 4, 4, D - 8, D - 8, 6 * t, 1) '
    t = t + 1
    .FillPie(Brushes.Black, 4, 4, D - 8, D - 8, 6 * t, 1) '
    End Sub
    4 . . 1000, 1 . 6 360 60 , .
    104.
    Dim v, t, h, s As Double ' 47


    Dim x, y As Single
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim As Graphics = Me.CreateGraphics
    v = 20 : t = 0 : h = 100 : s = 0
    .DrawLine(Pens.Black, 10, 110, 200, 110)
    .FillRectangle(Brushes.Green, 10, 10, 20, 100)
    MsgBox(" ")
    Timer1.Enabled = True '
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    s = v * t
    h = 100 - 9.81 * t ^ 2 / 2
    x = s + 20 'p
    y = 110 - h
    PictureBox1.Left = x
    PictureBox1.Top = y
    t = t + 0.03
    If h < 0 Then Timer1.Enabled = False ' ,
    End Sub
    108.
    Dim 1_ As New Bitmap("1.png") ' ,
    Dim 2_ As New Bitmap("2.png")
    Dim 3_ As New Bitmap("3.png")
    Dim 1_, 2_, 3_ As Bitmap ' ,
    Dim 1, 2, 3 As Bitmap ' PictureBox
    Dim N As Integer = 0
    Dim dx As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.BackgroundImage = Image.FromFile(".jpg")
    1_.MakeTransparent(Color.White)
    2_.MakeTransparent(Color.White)
    3_.MakeTransparent(Color.White)
    1_ = New Bitmap(1_) ' ...
    2_ = New Bitmap(2_)
    3_ = New Bitmap(3_)


    1_.RotateFlip(RotateFlipType.RotateNoneFlipX) '
    2_.RotateFlip(RotateFlipType.RotateNoneFlipX)
    3_.RotateFlip(RotateFlipType.RotateNoneFlipX)
    PictureBox1.BorderStyle = BorderStyle.None
    PictureBox1.BackColor = Color.Transparent
    PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
    PictureBox1.Image = 1_頠 '
    Timer1.Enabled = False '
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Select Case N
    Case 0 : PictureBox1.Image = 1
    Case 1 : PictureBox1.Image = 2
    Case 2 : PictureBox1.Image = 3
    Case 3 : PictureBox1.Image = 2
    End Select
    N = (N + 1) Mod 4
    PictureBox1.Left = PictureBox1.Left + dx
    End Sub
    ' :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    dx = 10
    1 = 1_頠 '
    2 = 2_
    3 = 3_
    Timer1.Enabled = True '
    End Sub
    ' :
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    dx = -10
    1 = 1_頠 '
    2 = 2_
    3 = 3_
    Timer1.Enabled = True '
    End Sub


    ' :
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    If dx = 10 Then PictureBox1.Image = 1_ Else PictureBox1.Image = 1_
    Timer1.Enabled = False
    N = 0
    End Sub
    110.
    Dim As String = " "
    Private Sub Button2_MouseEnter( ByVal sender As Object, ByVal e As EventArgs) Handles Button2.MouseEnter
    = " - "
    End Sub
    Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.MouseLeave
    = " "
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseMove
    TextBox1.Text = ""
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text =
    End Sub
    111.
    Dim As Integer = 5
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseMove
    Dim As Graphics = Me.CreateGraphics
    ' :
    If e.Button = MouseButtons.Left Then .FillEllipse(Brushes.Black, e.X, e.Y, , )
    End Sub
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseDown
    ' 1:
    If e.Button = MouseButtons.Right And e.Clicks = 1 Then = + 1
    ' 1 ( 2):
    If e.Button = MouseButtons.Right And e.Clicks = 2 Then = - 2
    If < 2 Then = 2 ' 2


    End Sub
    : MouseDown . e.Clicks 1, , 1. MouseDown e.Clicks 2. 2, .
    112.
    Dim dx, dy As Integer
    Dim As Integer = 1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    PictureBox1.Left = PictureBox1.Left + dx ' PictureBox
    PictureBox1.Top = PictureBox1.Top + dy
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    Select Case e.KeyCode
    Case Keys.Left : dx = - : dy = 0
    Case Keys.Right : dx = : dy = 0
    Case Keys.Up : dx = 0 : dy = -
    Case Keys.Down : dx = 0 : dy =
    End Select
    End Sub
    113.
    Dim As Char
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles MyBase.KeyPress
    = Char.ToUpper(e.KeyChar) '
    Me.Refresh() '
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
    Dim As Graphics = Me.CreateGraphics
    .DrawRectangle(Pens.Black, 20, 20, 100, 300) '
    Select Case
    Case "R"
    .FillEllipse(Brushes.Red, 30, 30, 80, 80) '_
    .FillEllipse(Brushes.Black, 30, 130, 80, 80) '_


    .FillEllipse(Brushes.Black, 30, 230, 80, 80) '_
    Case "Y"
    .FillEllipse(Brushes.Black, 30, 30, 80, 80) '_
    .FillEllipse(Brushes.Yellow, 30, 130, 80, 80) '_
    .FillEllipse(Brushes.Black, 30, 230, 80, 80) '_
    Case "G"
    .FillEllipse(Brushes.Black, 30, 30, 80, 80) '_
    .FillEllipse(Brushes.Black, 30, 130, 80, 80) '_
    .FillEllipse(Brushes.Green, 30, 230, 80, 80) '_
    Case Else
    MsgBox(" R, Y G")
    End Select
    End Sub
    114.
    PictureBox. .
    Dim _ As Boolean = False '
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    .Left = .Left - 1 '
    If Not _ Then Exit Sub ' ,
    .Top = .Top - 3 '
    ' :
    ' , :
    If Math.Abs(.Top - .Top) < 20 And Math.Abs(.Left - .Left) < 40 Then
    Timer1.Enabled = False
    MsgBox("!")
    End If
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    _ = True
    End Sub
    115-1.
    Form1_Load .Visible = False, ___Click .Visible = True.


    115-2.
    Timer1_Tick :
    .Left = x - .Width / 2 : .Top = y - .Height / 2
    ___ :
    x = X_ + _ / 2 : y = Y_ + _ / 2
    115-3.
    Private Sub Form1_MouseDown( ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseDown
    _ = True
    Dim X As Short = e.X '
    Dim Y As Short = e.Y
    Dim dx As Short = X - x '
    Dim dy As Short = Y - y '
    Dim As ' ( )
    ' :
    If dx > Math.Abs(dy) Then = .
    If dx < -Math.Abs(dy) Then = .
    If dy > Math.Abs(dx) Then = .
    If dy < -Math.Abs(dx) Then = .
    ', :
    If e.Button = MouseButtons.Left Then
    If = Then = True Else =
    End If
    ', :
    If e.Button = MouseButtons.Right Then = True
    End Sub
    : , , , . , 45 . 4 . . 4 , , , . .

    If = Then = True Else =
    :


    , , , .
    , , , . , , , _ .
    116.
    1)      a(i) = a(i-1) + 4
    2)      a(i) = 2 * a(i-1)
    3)      a(i) = 2 * a(i-1) - 1
    117.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim _ As Integer = 7
    Dim t() As Integer = {0, 8, 14, 19, 22, 25, 28, 26}
    Dim i, k, s, Min, Nomer As Integer
    ' :
    s = 0
    For i = 1 To _ : s = s + t(i) : Next
    Debug.WriteLine(s / _)
    ' :
    k = 0
    For i = 1 To _
    If t(i) > 20 Then k = k + 1
    Next
    Debug.WriteLine(k)
    ', :
    Min = t(1)
    Nomer = 1
    For i = 2 To _
    If t(i) > Min Then Min = t(i) : Nomer = i
    Next
    Debug.WriteLine(Nomer)
    End Sub
    :
    20,2857142857143
    4
    6
    118.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim fib(200) As Decimal
    Dim i As Integer
    fib(1) = 1 : fib(2) = 1
    For i = 3 To 139
    fib(i) = fib(i - 2) + fib(i - 1)
    Debug.WriteLine(i & " " & fib(i))
    Next
    End Sub
    , 139-
    50095301248058391139327916261
    , 140-, Decimal.
    119.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    Dim t(,) As Integer = {{99, 99, 99, 99, 99}, {99, -8, -14, -19, -18}, {99, 25, 28, 26, 20}, {99, 11, 18, 20, 25}}
    Dim i, j, Min, Max As Integer
    Min = t(1, 1) : Max = t(1, 1)
    For i = 1 To 3
    For j = 1 To 4
    If t(i, j) > Max Then Max = t(i, j)
    If t(i, j) < Min Then Min = t(i, j)
    Next j
    Next i
    Debug.Write(Max - Min)
    End Sub
    47.
    120.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim a() As Integer = {5, 4, 2, 4, 3, 5, 5, 3, 4, 3} '
    Dim b() As Integer = {3, 4, 3, 4, 3, 5, 4, 4, 3, 4, 4, 4, 4, 3, 4, 4} '
    If (a) < (b) Then Debug.WriteLine(" ") _
    Else Debug.WriteLine(" ")
    End Sub
    Function (ByVal c() As Integer) As Integer
    Dim i As Integer
    = c(0)
    For i = 1 To c.Length - 1
    If c(i) < Then = c(i)
    Next
    End Function
    Function (ByVal c() As Integer) As Integer
    Dim i As Integer
    = c(0)
    For i = 1 To c.Length - 1
    If c(i) > Then = c(i)
    Next
    End Function
    Function (ByVal c() As Integer) As Integer
    = (c) - (c)
    End Function
    121.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' , 4
    Dim A() As Integer = {25, 22, 18, 20} ' A
    Dim B() As Integer = {4, 5, 4, 4} ' B
    (-2, A)


    (3, B)
    Dim i As Integer
    For i = 0 To 3 '
    Debug.WriteLine(A(i) & " " & B(i))
    Next
    End Sub
    Sub ( ByVal As Integer, ByVal c() As Integer)
    Dim i As Integer
    For i = 0 To 3
    c(i) = c(i) +
    Next
    End Sub
    : , c ByVal ByRef. , . , ByVal .
    122.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Debug.WriteLine(fib(30))
    End Sub
    Private Function fib(ByVal N As Integer) As Decimal
    If N = 1 Or N = 2 Then fib = 1 Else fib = fib(N - 2) + fib(N - 1) ' !
    End Function
    ' .
    ' N , .
    ' .
    ' ? ,
    ' fib. . F11.
    123.
    Sub puziryok_3(ByVal mass1() As String, ByVal mass2() As Integer, ByVal mass3() As Integer, ByVal N As Integer)
    Dim i, c, m As Integer
    Dim s As String '
    For m = N To 1 Step -1
    For i = 0 To m - 1
    If mass3(i) > mass3(i + 1) Then
    s = mass1(i) : mass1(i) = mass1(i + 1) : mass1(i + 1) = s ' 1
    c = mass2(i) : mass2(i) = mass2(i + 1) : mass2(i + 1) = c ' 2
    c = mass3(i) : mass3(i) = mass3(i + 1) : mass3(i + 1) = c ' 3


    End If
    Next i
    Next m
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim () As String = {"", "", "", ""}
    Dim () As Integer = {173, 182, 169, 175}
    Dim () As Integer = {71, 93, 62, 70}
    Dim N As Integer = .Length - 1 ' 1
    puziryok_3(, , , N) '
    ' :
    Dim i As Integer
    For i = 0 To N
    Debug.WriteLine((i) & " " & (i) & " " & (i))
    Next
    End Sub
    : , , .
    126.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As Control
    Dim As CheckBox
    Dim _ As New Collection
    ' :
    For Each In Controls
    If TypeName() = "CheckBox" Then _.Add()
    Next
    ' :
    For Each In _
    If .Checked Then Debug.WriteLine(.Text)
    Next
    End Sub
    : , , Controls.
    127.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim As RadioButton
    For Each In GroupBox1.Controls
    If .Checked Then Debug.WriteLine(.Text) : Exit For


    Next
    For Each In GroupBox2.Controls
    If .Checked Then Debug.WriteLine(.Text) : Exit For
    Next
    End Sub
    128.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = HScrollBar1.Minimum
    Label2.Text = HScrollBar1.Maximum
    End Sub
    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
    Label3.Text = HScrollBar1.Value
    End Sub
    129.
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles ComboBox1.SelectedIndexChanged
    ComboBox2.Text = ComboBox2.Items(ComboBox1.SelectedIndex)
    End Sub
    130.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim As Object
    For Each In CheckedListBox1.CheckedItems
    Debug.WriteLine()
    Next
    End Sub
    , , String, Object.
    131.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    MsgBox(" " & DateDiff("d", Today, DateTimePicker1.Value) & " .")
    End Sub
    132.
    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles NumericUpDown1.ValueChanged
    __()
    End Sub
    Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles NumericUpDown2.ValueChanged
    __()
    End Sub
    Sub __()
    lbl__.Text = NumericUpDown1.Value * NumericUpDown2.Value
    End Sub
    lbl__ .


    133.

    134.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    ' 6
    Dim s As String = ""
    Debug.WriteLine(Mid(s, 1, 2) + "" + Mid(s, 3, 2) + "" + Mid(s, 5, 2) + "") '1
    Debug.WriteLine(s.Insert(6, "").Insert(4, "").Insert(2, "")) '2
    ' . String,
    ' Insert. .
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    '
    Dim s As String = ""
    Dim As String = "" '
    Dim i As Integer
    For i = 0 To s.Length \ 2 - 1 'Len(s) \ 2 -
    ' "":
    = + s.Substring(2 * i, 2) + ""
    Next
    ' , :
    If Len(s) Mod 2 = 1 Then = + Strings.Right(s, 1)
    Debug.WriteLine()
    End Sub
    135.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim s, s1 As String '
    Dim _, _ As Char
    s = " , , ."
    s1 = "" '
    Dim i As Integer
    For i = 0 To Len(s) - 1 '


    _ = s.Chars(i) '
    _ = ChrW(AscW(_) + 1)
    s1 = s1 & _렠 '
    Next
    Debug. WriteLine (s1) '
    End Sub
    136.
    ' :
    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
    If (i). = " " _
    Or (i). = " " Then i = i - 1
    i = i + 1
    Loop
    .Close() '
    ' :
    Dim ___ As Integer = i - 1
    For i = 1 To ___
    If (i). = " " _
    Then (i). = " "
    If _((i)) Then Debug.WriteLine((i).)
    Next
    ' :
    Dim As New System.IO.StreamWriter("E:\VB\_.txt")


    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


    Dim _ As Integer = 0
    ' :
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim = MsgBox(" ?", MsgBoxStyle.YesNo)
    If = MsgBoxResult.Yes Then __() Else __()
    End Sub
    Private Sub __()
    Randomize()
    SecretNumber = Math.Round(1000000000 * Rnd()) '
    txtNumber.Text = 0 '
    lblMessage.Text = " " '
    ' :
    lblNumberTry.Text = " = " & _ꠠ
    Dim As New System.IO.StreamWriter("E:\VB\.txt") '
    .WriteLine(SecretNumber) '
    .Close()
    End Sub
    ' :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    A = CDec(txtNumber.Text) '
    If A > SecretNumber Then ' If
    = ""
    ElseIf A < SecretNumber Then
    = ""
    Else
    = " "
    End If
    _ = _ + 1
    lblNumberTry.Text = " = " & _
    lblMessage.Text =
    ' :


    Dim As New System.IO.StreamWriter("E:\VB\.txt", True) '
    .WriteLine(_)
    .WriteLine(A)
    .WriteLine()
    .Close()
    End Sub
    Private Sub __()
    Dim As New System.IO.StreamReader("E:\VB\.txt") '
    SecretNumber = .ReadLine '
    Debug.WriteLine(" ߠ ")
    ' :
    Do While .Peek() <> -1
    _ = .ReadLine
    A = .ReadLine
    = .ReadLine
    Debug.WriteLine(_ & " " & A & " " & )
    Loop
    .Close() '
    ' :
    txtNumber.Text = A
    lblMessage.Text =
    lblNumberTry.Text = " = " & _
    End Sub
    : : txtNumber, , lblNumberTry, , lblMessage , . Button1, . , . .
    139.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.BackgroundImage = Image.FromFile(".jpg")
    PictureBox1.BorderStyle = BorderStyle.None


    PictureBox1.BackColor = Color.Transparent
    .TransparentColor = Color.White
    PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static N As Integer
    Select Case N
    Case 0 : PictureBox1.Image = .Images(1)
    Case 1 : PictureBox1.Image = .Images(2)
    Case 2 : PictureBox1.Image = .Images(3)
    Case 3 : PictureBox1.Image = .Images(2)
    End Select
    N = (N + 1) Mod 4
    PictureBox1.Left = PictureBox1.Left - 10
    End Sub
    : ImageList .
    140.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    _(TreeView1)
    End Sub
    Sub _(ByVal As Object)
    If .GetNodeCount(False) = 2 Then .BackColor = Color.Yellow
    Dim As TreeNode
    For Each In .Nodes
    _()
    Next
    End Sub
    141.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    _(TreeView1)
    End Sub
    Sub _(ByVal As Object)
    Dim K As Integer = 0 ' ,
    Dim As TreeNode
    For Each In .Nodes
    If .Text.StartsWith("") Then K = K + 1
    _()
    Next
    If K = 2 Then .ForeColor = Color.Blue
    End Sub
    142.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    _(TreeView1)
    End Sub
    Sub _(ByVal As Object)
    Dim As TreeNode
    For Each In .Nodes
    _()


    Next
    If .GetNodeCount(False) = 0 Then
    .Nodes.Add(.Text & "1")
    .Nodes.Add(.Text & "2")
    End If
    End Sub
    For If, . ?
    143.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    _(TreeView1)
    End Sub
    Sub _(ByVal As Object)
    Dim As TreeNode
    For Each In .Nodes
    If .Text.StartsWith("") Then () Else _()
    Next
    End Sub
    Sub (ByVal As TreeNode)
    .BackColor = Color.LightGreen
    Dim As TreeNode
    For Each In .Nodes
    ()
    Next
    End Sub
    145.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim As DataRow
    For Each In DataSet11..Rows
    ("Kol_str") = ("Kol_str") + 2
    Next
    End Sub
    146.
    50
    100
    http://all-ebooks.com
    [] -.