2 задачи по информатике

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a() As Integer = {5, 25, 3, 40, -1, -2, 10}
        Dim temp As Integer
        Dim index As Integer
        Dim flag As Boolean = False
        For i As Integer = 0 To a.Length - 1
            If a(i) < 0 Then
                temp = a(i) : index = i : flag = True : Exit For
            End If
        Next
        If flag Then
            MsgBox("Первый отрицательный элемент = " & temp & vbCrLf & "Его номер = " & index, MsgBoxStyle.Information)
        Else
            MsgBox("Нет отрицательных элементов", MsgBoxStyle.Exclamation)
        End If
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x() As Integer = {1, 2, 3, 4, 5, 6, 7, 8}
        Dim arr As ArrayList = intr(x, 3, 7)
        Dim str As New System.Text.StringBuilder
        str.Append("Элементы, попавшие в диапазон")
        str.AppendLine()
        If arr.Count <> 0 Then
            For i As Integer = 0 To arr.Count - 1
                str.Append(arr(i))
                str.Append(" ")
            Next
            MsgBox(str.ToString, MsgBoxStyle.Information)
        Else
            MsgBox("Ни один элемнт не попал в диапапзон!!!", MsgBoxStyle.Exclamation)
        End If
    End Sub
    Function intr(ByVal x() As Integer, ByVal a As Integer, ByVal b As Integer) As ArrayList
        Dim s As New ArrayList
        For i As Integer = 0 To x.Length - 1
            If x(i) >= a And x(i) <= b Then
                s.Add(x(i))
            End If
        Next
        Return s
    End Function