Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim gen as random = new random()

        for ii = 0 to 20

            console.WriteLine(getcard(gen.next(1, 14), gen.next(1, 5)))

        next

    End Sub

​

    function getCard(byval intGetFace as integer, byval intGetSuit as integer) as string

        try

            dim face() as string = {"ace", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"}

            dim suit() as string = {"diamonds", "spades", "clubs", "hearts"}

            dim Card as string = face(intGetFace - 1) + " of " + suit(intGetSuit - 1)

            return card

        catch ex as exception

            return "error"

        end try

    end function

End Module

​