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