数字！！！闹死人！！！

Module Module1

Sub Main()


Const x = 5, y = 2, z = 1
Dim a, b, c As String
Console.WriteLine("猜首位")
a = Console.ReadLine()
If a = x Then
Console.WriteLine("猜第二位")
b = Console.ReadLine()
End If

If b = y Then
Console.WriteLine("猜第三位")
c = Console.ReadLine
End If

If c = z Then
Console.WriteLine("恭喜!顺利闯关")
End If
Console.WriteLine("再接再厉")

End Sub

End Module