Imports System

Public Module Module1

    Public Sub Main()

        Dim StudName as String

        Dim StudAge as integer

        Dim AveAge as decimal

        Dim Count as integer

        Dim TotalAge as integer

        Dim lowestAge as integer

        Dim BiggestAge as integer

        Dim StudTotal as integer

        Dim Studnames(10) as string

        Dim StudAges(10) as integer

        StudTotal=10

        FOR Count= 1 to StudTotal

        console.WriteLine("Enter  Student  name")

        Studname=Console.ReadLine()

        Studnames(Count)= Studname

        console.writeline("Enter student age")

        StudAge= console.ReadLine()

        StudAges(Count)=StudAge

    NEXT count

    FOR Count= 1 to Studtotal

    console.WriteLine("the student's name is:"& StudNames(Count))

    console.WriteLine(" The students age is:"& StudAges(Count))

NEXT

TotalAge=0

For count= 1 To 10

TotalAge= TotalAge+StudAge

NEXT

AveAge= TotalAge/10

If StudAge>BiggestAge Then

BiggestAge= StudAge

End If

If LowestAge<StudAge Then

lowestAge= StudAge

End If

​

​

​

​

​

​

    End Sub

End Module