Imports System

Public Module Module1

    Public Sub Main()

        dim size as integer

        dim totalnumberofstudents as integer

        dim Weightofstudents(size) as double

        console.Write("Enter total number of students")

        size = console.readLine()

        for i as integer = 0 to size

        console.Writeline("enter array elements")

        weightofstudents(i) = console.ReadLine()

    next

        dim sum as integer = 0 

    for z as integer = 0 to size

    sum = sum + weightofstudents(z) 

    Dim location As Integer

        Dim notosearch As Integer

        Console.Write("Enter no to search from an array   ")

        notosearch = Console.ReadLine

        Dim found As Boolean = False

        Dim count As Integer = 0

    While count <= (size) And Not found

        If mylist(size) = notosearch Then

                found = True

            location = size + 1

            End If

            count = count + 1

        End WhileDim location As Integer

        Dim notosearch As Integer

        Console.Write("Enter no to search from an array   ")

        notosearch = Console.ReadLine

        Dim found As Boolean = False

        Dim count As Integer = 0

        While count <= (maxindex) And Not found

    If mylist(size) = notosearch Then

                found = True

                location = count + 1

            End If

            count = count + 1

        End While

​

If found Then

            Console.WriteLine("Required no " & notosearch & " is existing in the list at location  " & location)

        Else

            Console.WriteLine("Required no is not in the existing in the list ")

        End If

next

    End Sub

End Module