Imports System

Public Module Module1

    const limite=20 ' define una constante y será conocida en todos los procedimientos

    Public Sub Main()

        ' asignación de valores en bloque principal

        dim vector() as integer = {100,25,89, 36,47, 69, 74, 36, 78, 36, 79, 112, 8, 12, 58, 69, 47, 12, 64, 99}

        dim datoAbuscar as integer

        'imprime(vector) ' procedimiento que va a imprimir el contenido del vector

        console.writeline("Ingrese un entero a buscar en el vector:")

        datoAbuscar=console.readline()

        buscar(datoAbuscar,vector) ' procedimiento que busca en el arreglo el dato especificado

    End Sub

    ' bloque secundario o procedimiento especializado en imprimir el contenido del arreglo

    public Sub imprime(ByVal ParamArray conjunto() as integer)

        dim x as integer

        for x=0 to limite-1

        console.writeline(conjunto(x))

    next x

    End Sub

​

' bloque secundario o procedimiento orientado a buscar un dato en el vector, si lo encuentra imprime su ubicación

public sub buscar(Byval dato as integer, Byval ParamArray conjunto() as integer)

    dim x as integer

    dim status as boolean

    status=false

    for x=0 to limite-1

    if conjunto(x)=dato

        console.WriteLine("Encontrado en el subíndice: " & x)

        status=true

    end if

    next x

    if status=false

        console.writeline("No se encontró el valor buscado")

    end if

end sub

End Module