Блок-схема к задаче нахождения двух наибольших чисел последовательности

    Sub Main()
        Dim x, Max1, Max2 As Integer
        Dim i As Integer = 0
        Console.WriteLine("Вводите числа последовательности (0 - конец ввода): ")
        Do
            Console.Write("> ")
            Do While Not Integer.TryParse(Console.ReadLine(), x)
                Console.Write("Ошибка! Введите число: ")
            Loop
            If x <> 0 Then
                If i = 0 Or x > Max1 Then
                    Max2 = Max1
                    Max1 = x
                ElseIf x > Max2 Then
                    Max2 = x
                End If
                i += 1
            End If
        Loop Until x = 0
        If i < 2 Then
            Console.WriteLine("Последовательность содержит меньше 2 чисел. ")
        Else
            Console.WriteLine("Два наибольших числа: {0}; {1}", Max1, Max2)
        End If
        Console.Write("Для завершения работы нажмите любую клавишу... ")
        Console.ReadKey()
    End Sub

Public Class Оценка
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MessageBox.Show("Следует вводить числа", "Ошибка",
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim X As Integer
        X = Convert.ToInt32(TextBox1.Text)
        If X = 5 Then
            MessageBox.Show("Молодец!")
        ElseIf X = 4 Then
            MessageBox.Show("Хорошо!")
        ElseIf X = 3 Then
            MessageBox.Show("Лентяй!")
        ElseIf X = 2 Then
            MessageBox.Show("Бездельник!")
        ElseIf X > 5 Or X < 2 Then
            MessageBox.Show("Введите оценку по пятибальной системе", "Ошибка",
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
End Class