Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles START.Click
        Dim A() As Integer = {12, 44, 54, -12, 0, -12, 33, 43}
        Dim N As Int32
        Dim i As Int32
        Dim Mx, Mn, Sum As Double
        N = UBound(A) : i = 0 : Mx = A(0) : Mn = A(0) : Sum = 0
        Dim StrOut As String
        StrOut = ""
        For i = 0 To N
            StrOut = StrOut + Format(A(i), "0") + vbCrLf
        Next i
        i = 0
        TextBox1.Text = StrOut
        For i = 0 To N
            If Mx < A(i) Then Mx = A(i)
            If Mn > A(i) Then Mn = A(i)
        Next i
        i = 0
        While i < N
            Sum = Sum + A(i)
            i = i + 1
        End While
        TextBox3.Text = Convert.ToString(Mx)
        TextBox2.Text = Convert.ToString(Mn)
        TextBox4.Text = Convert.ToString(Sum)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        End
    End Sub
End Class