猜猜猜数字拉

王艳明-07网4 周二三月 18, 2008 8:28 pm

Module Module1

Sub Main()
Const a As Integer = 123
Const b As Integer = 456
Const c As Integer = 789
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