Прошу помощи в создании программы

[lenovo]

Всем привет! :baby:

Сегодня на занятиях по вишуал бесику, учитель дал небольшое задание. Заключается оно в следущем:

Вот так она должна выглядеть:

Условия построения программы таковы:
Есть 10 учеников. И каждый получил свою оценку (по 6-ти бальной системе. ). Оценки каждого ученика вводятся поле для ввода. То есть всего должно быть введено 10 разных оценок по 6-ти бальной системе. После окончания ввода нужно нажать на Подсчет. Тогда в поле справа мы должно увидить сколько работ было написано на оценку 6,5,4,3,2 или 1. И в конце должна подсчитаться средняя оценка на которую написал весь класс.

Все это у меня прекрасно получилось. Но есть один последний штрих которого я не могу добиться и прошу вашей помощи. Надо чтобы в правом поле показалось, какая оценка самая плохая или самая хорошая.
1 это очень хорошо
6 это очень плохо

Внизу я прикрепил код который я уже сделал. Буду очень благодарен, если сможете помочь с определением самой плохой или самой хорошей оченкой, которая была написана.

Public Class Form1
    Dim i As Integer
    Dim Note1 As Integer
    Dim Note2 As Integer
    Dim Note3 As Integer
    Dim Note4 As Integer
    Dim Note5 As Integer
    Dim Note6 As Integer
    Dim eingabe As Integer
    Dim n1 As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i = i + 1
        eingabe = CInt(TextBox1.Text)
        If eingabe = 1 Then
            Note1 = Note1 + 1
            TextBox1.Clear()
        ElseIf eingabe = 2 Then
            Note2 = Note2 + 1
            TextBox1.Clear()
        ElseIf eingabe = 3 Then
            Note3 = Note3 + 1
            TextBox1.Clear()
        ElseIf eingabe = 4 Then
            Note4 = Note4 + 1
            TextBox1.Clear()
        ElseIf eingabe = 5 Then
            Note5 = Note5 + 1
            TextBox1.Clear()
        ElseIf eingabe = 6 Then
            Note6 = Note6 + 1
            TextBox1.Clear()
        End If
        If i = 10 Then
            Button1.Enabled = False
            TextBox1.Enabled = False
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = 0
        Note1 = 0
        Note2 = 0
        Note3 = 0
        Note4 = 0
        Note5 = 0
        Note6 = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        ListBox1.Items.Add("*******************")
        ListBox1.Items.Add("Оценка1  ->" & Note1 & " раз")
        ListBox1.Items.Add("Оценка2  ->" & Note2 & " раз")
        ListBox1.Items.Add("Оценка3  ->" & Note3 & " раз")
        ListBox1.Items.Add("Оценка4  ->" & Note4 & " раз")
        ListBox1.Items.Add("Оценка5  ->" & Note5 & " раз")
        ListBox1.Items.Add("Оценка6  ->" & Note6 & " раз")
        ListBox1.Items.Add("*******************")
        n1 = (Note1 * 1 + Note2 * 2 + Note3 * 3 + Note4 * 4 + Note5 * 5 + Note6 * 6) / i
        ListBox1.Items.Add("Средняя оценка    " & n1)
    End Sub
End Class

Спасибо зарание! :help:

 

[lisa99]

Мдя..а циклов, похоже еще не проходили?....

Код за тебя пи сать не буду, неполезно=)

1)заведи NoteMax, NoteMin
2) каждую новую оценку по ходу пьесы сравнивают с рекордным значением

если Note > NoteMax то меняешь максимальное на вновь введенное
NoteMax=Note

3) так же и с минимальной оценкой.

При отсутствии массивов это придется делать сразу после ввода каждого нового числа

 

[karabas-barabas]

я так понял вы списки и циклы не учили еще ? тогда так как написал lisa99
и if elseif можно заменить на switch так покрасивее будет

 

[lisa99]

1/ тут как в армии, никому не надо, чтобы было красиво, а надо чтобы он выучил разв. конструкцию. глупо- но это наша учеба, хоть в школе, хоть в вузе.
2. "сказала"