猜字游戏.........214

Module Module1

Sub Main()
Const a = 2, b = 1, c = 4
Dim e, f, g As String
Console.WriteLine("猜第一位")
e = Console.ReadLine()
If e = a Then
Console.WriteLine("猜第二位")
f = Console.ReadLine()
End If

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

If g = c Then
Console.WriteLine("恭喜!密码被你破译")

End If
Console.WriteLine("失败")

End Sub

End Module