---

Private Sub Button1_Click(...) Handles Button1.Click

    Dim s As Double = 0

    For n As Integer = 1 To 10
        s += 1 / (n + 2)
    Next

    Label1.Text = s

End Sub

Private Sub Button1_Click(...) Handles Button1.Click

    TextBox1.Clear()

    For i As Integer = 2 To 10
        TextBox1.Text &= i & " дисков = " &
                         i * 5 & " руб." &
                         vbCrLf
    Next

End Sub

Private Sub Button1_Click(...) Handles Button1.Click

    Dim m(9) As Integer
    Dim r As New Random

    Dim plus As Integer = 0
    Dim minus As Integer = 0
    Dim zero As Integer = 0

    For i As Integer = 0 To 9

        m(i) = r.Next(-5, 6)

        If m(i) > 0 Then
            plus += 1
        ElseIf m(i) < 0 Then
            minus += 1
        Else
            zero += 1
        End If

    Next

    TextBox1.Text = "Положительных: " & plus &
                    vbCrLf &
                    "Отрицательных: " & minus &
                    vbCrLf &
                    "Нулей: " & zero

End Sub