Marko

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim niz(100), n, max, min, i As Integer
Dim prosjek As Double

ListBox1.Items.Clear()

n = CInt(TextBox1.Text)

For i = 1 To n
niz(i) = InputBox(“Unesite ocjenu od 1 do 5”)
ListBox1.Items.Add(niz(i))
Next
max = niz(1)
min = niz(1)
For i = 2 To n
If niz(i) > max Then
max = niz(i)
End If
Next
TextBox3.Text = max
For i = 2 To n
If niz(i) < min Then
min = niz(i)
End If
Next
TextBox2.Text = min
For i = 1 To n
prosjek = prosjek + niz(i)
Next
prosjek = (prosjek – min – max) / (n – 2)
TextBox4.Text = prosjek
End Sub
End Class