刘中来-密码确认

Dim d As String = Console.ReadLine
Dim b, c As String
If d <> 2 Then
Console.WriteLine("猜错了！！")
Else
Console.WriteLine("猜对第一位")
b = Console.ReadLine
If d <> 2 And b <> 3 Then
Console.WriteLine("猜错了！！")
Else
Console.WriteLine("猜对第二位")
c = Console.ReadLine
If d <> 2 And b <> 3 And c <> 4 Then
Console.WriteLine("猜对第三位")
Else
Console.WriteLine("猜错了！！")
End If
End If
End If