Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim objrandom1 As System.Random

        Dim callingsuit As Short

        objrandom1 = New Random(Environment.TickCount)

        callingsuit = objrandom1.Next(1, 5)

    If callingsuit = 1 Then

            Console.WriteLine("SPADES")

        Else If callingsuit = 2 Then

            Console.WriteLine("HEARTS")

            Else If callingsuit = 3 Then

            Console.WriteLine("DIAMONDS")

                Else If callingsuit = 4 Then

            Console.WriteLine("CLUBS")

    End If

        Dim objrandom As System.Random

        Dim callingcard As Short

        objrandom = New Random(Environment.TickCount)

​

        callingcard = objrandom.Next(1, 14)

        If callingcard = 11 Then

            Console.WriteLine(" J ")

        ElseIf callingcard = 12 Then

            Console.WriteLine(" Q ")

        ElseIf callingcard = 13 Then

            Console.WriteLine(" K ")

        ElseIf callingcard = 1 Then

            Console.WriteLine(" A ")

        Else: Console.WriteLine(callingcard)

        End If

    End Sub

End Module