Game code for Jenny

Imports System

Public Class Test
    Public Shared Sub Main()
        Dim randomNum as Integer, a as Integer = 0, b as Integer = 0, i as Integer
        Dim random as System.Random = new System.Random()
        Dim guess as String
        
        randomNum = 1222 'random.Next(1000, 9999)
        
        guess = Console.ReadLine()
        
        for i = 0 to 3
            a = a + If(guess.Chars(i).Equals(randomNum.ToString().Chars(i)), 1, 0)
            b = b + If(Not guess.Chars(i).Equals(randomNum.ToString().Chars(i)) And randomNum.ToString().IndexOf(guess.Chars(i)) > -1, 1, 0)
        next
        
        Console.WriteLine(guess)
        Console.WriteLine(randomNum)
        Console.WriteLine(a & "A")
        Console.WriteLine(b & "B")
    End Sub
End Class