Kol1_sveUKlasi

Module Module1

    Class student
        Private ime, prezime As String
        Private godina As Byte

        ReadOnly Property getIme() As String
            Get
                Return ime
            End Get
        End Property

        ReadOnly Property getPrezime() As String
            Get
                Return prezime
            End Get
        End Property

        ReadOnly Property getGodina() As Byte
            Get
                Return godina
            End Get
        End Property

        Sub napuniNiz()
            Console.Write("Ime: ")
            ime = Console.ReadLine()
            Console.Write("Prezime: ")
            prezime = Console.ReadLine()
            Console.Write("Godina: ")
            godina = Console.ReadLine()
            Console.WriteLine()
        End Sub

        Sub ispisiSve()
            Console.WriteLine(ime & " " & prezime & " " & godina)
            Console.WriteLine()
        End Sub

        Function najmladi(ByVal o As student) As String()
            Dim st(1) As String

            If Me.godina < o.godina Then
                st(0) = ime
                st(1) = prezime
            Else
                st(0) = o.ime
                st(1) = o.prezime
            End If

            Return st
        End Function
    End Class

    Function kreirajNiz() As student()
        Dim rand As Random = New Random()
        Dim niz() As student = New student(rand.Next(2, 3)) {}

        Return niz
    End Function

    Sub main()
        Dim izbor As String = "aa"
        Dim niz() As student = New student() {}

        niz = kreirajNiz()
        Console.WriteLine(niz.Length & " studenta")
        For i = 0 To niz.Length - 1
            niz(i) = New student()
            niz(i).napuniNiz()
        Next

        While izbor <> "4"
            Console.Write("Izbor[1-najmladi, 2-najstariji, 3-ispisi sve, 4-kraj]: ")
            izbor = Console.ReadLine()

            If izbor = "4" Then
                Console.WriteLine("Kraj")
                Exit While
            End If

            Select Case izbor
                Case "1"
                    Dim st(1) As String
                    Dim min As Byte = niz(0).getGodina
                    Dim o As student = niz(0)

                    For i = 0 To niz.Length - 1
                        st = niz(i).najmladi(o)
                        If o.getGodina > niz(i).getGodina Then
                            o = niz(i)
                        End If
                    Next

                    Console.WriteLine("Najmladi: " & st(0) & " " & st(1))
                Case "2"

                Case "3"
                    For i = 0 To niz.Length - 1
                        niz(i).ispisiSve()
                    Next
                Case Else
                    Console.WriteLine("Netocan izbor!")
            End Select
        End While

    End Sub

End Module