Vb.Net Code With Window Application using Case

How to use Vb.Net Code With Window Application
Module Module2
    Function greet()
        Console.WriteLine("pritam")
    End Function
End Module

Second Program
Module Module1
    Sub main()
        Dim n As Integer
        Console.WriteLine("find element")
        Console.WriteLine("enter value ")
        n = Console.ReadLine()
        Console.WriteLine(" " & find(n))
        Console.ReadLine()
    End Sub
    Function find(ByVal b) As String
        Select Case (b)
            Case 0 To 20
                Dim arr() As String = {"one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twovelve", "thurtin", "fourtin", "fiftin", "sixtin", "seventin", "eightin", "ninetin", "twenty"}
                Return arr(b - 1)
            Case Else
                Console.WriteLine("rong entry")
        End Select
    End Function
End Module

Share This