Download visual basic 2008 and paste it in and run it.
I don't know which was easier to make. The python 8ball or the VB one. I think it's the VB one since I hadn't done any python before.
Module Module1 Sub Main() Dim x As Integer, rand As New Random, a As Integer, b As String x = 1 Do While x Console.WriteLine("Enter a question here!") b = Console.ReadLine() a = rand.Next(1, 5) If b = "exit" Then Exit Do End If Select Case a Case 1 Console.WriteLine("The answer is in your heart") Case 2 Console.WriteLine("The answer is no") Case 3 Console.WriteLine("The answer is yes") Case 4 Console.WriteLine("Go away and ask me later") End Select Loop End Sub End Module