Imports System
Imports Math
Imports Microsoft.VisualBasic
Public Module Module1
Public Sub Main()
Dim play as String
Dim MyValue As Integer
Dim Card1 As String
Dim Deal1 As Integer
Console.WriteLine("Do you want to start playing BlackJack?")
play = Console.Readline()
If play = "yes" Then
Randomize
MyValue = Int((51 * Rnd) + 1) ' Generate random value between 1 and 6.
Card1 = Console.readLine()
If MyValue = 1 Then
Console.WriteLine("Your card is the ace of clubs")
If MyValue = 2 Then
Console.WriteLine("Your card is the two of clubs")
If MyValue = 3 Then
Console.WriteLine("Your card is the three of clubs")
If MyValue = 4 Then
Console.WriteLine("Your card is the four of clubs")
If MyValue = 5 Then
Console.WriteLine("Your card is the five of clubs")
If MyValue = 6 Then
Console.WriteLine("Your card is the six of clubs")
If MyValue = 7 Then
Console.WriteLine("Your card is the seven of clubs")
If MyValue = 8 Then
Console.WriteLine("Your card is the eight of clubs")
End If
End Sub
End Module
