Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim nID as integer = {112, 217, 126}

        dim nAge as integer = {45, 16, 27}

        dim nGender as string = {male, female, female}

        dim searchID as integer = 0

        searchID = console.ReadLine

        for i = 0 to 2

            if searchID = nID then

                console.writeline(”nAge”)

                console.writeline(”nGender”)

            end if

        next

​

        console.writeline(”no ID”)

    End Sub

End Module

​