数字游戏问题

数字游戏
Sub Main()
Dim a As Integer = Console.ReadLine
If a = 5 Then
Console.WriteLine("对了,继续猜！")
Else : End
End If
Dim b As Integer = Console.ReadLine
If b = 6 Then
Console.WriteLine("对了，再猜！")
Else : End
End If
Dim c As Integer = Console.ReadLine
If c = 7 Then
Console.WriteLine("对了！")
Else : End
End If