猜谜语游戏大家玩

Module Module1

Sub Main()
Const a As Integer = 1

Const b As Integer = 2

Const c As Integer = 3

Dim d As Integer

d = Console.ReadLine()

If d = a Then

Console.WriteLine("恭喜您猜对了")

d = Console.ReadLine()

If d = b Then

Console.WriteLine("恭喜您猜对了")

d = Console.ReadLine()

If d = c Then

Console.WriteLine("恭喜您全部猜对")

Else
Console.WriteLine("对不起，您猜错了")

End If

Else
Console.WriteLine("对不起，您猜错了")

End If
Else

Console.WriteLine("对不起，您猜错了")



End If

End Sub

End Module