循环游戏时随机化VB

Question

Sub Main()

    Dim usersguess, guesstime As Integer

    Randomize()

    Dim value As Integer = CInt(Int((20 * Rnd()) + 1))

    Console.WriteLine("You have to guess this number.")

    usersguess = Console.ReadLine()

    While usersguess < value Then
        Console.WriteLine("You are wrong. You're to low. Go higher ")
    End While
    While usersguess > value
        Console.WriteLine("Your too high. Go Lower.")
    End While

    While usersguess = value
        Console.WriteLine("Your correct. Well Done")
    End While

    Console.WriteLine("You took,{0}", guesstime)


End Sub

Answer 1

首先，您只要求用户输入一次-readline还需要在一个循环中请求多次猜测。使用这个循环，您可以使用if语句检查答案：

usersguess = Console.ReadLine()
'keep looping until they get the right value
While userguess <> value
    'now check how it compares to the random value
    If usersguess < value Then
        Console.WriteLine("You are wrong. You're too low. Go higher ")
    ElseIf usersguess > value Then
        Console.WriteLine("You're too high. Go Lower.")
    End If

    'read another guess
    usersguess = Console.ReadLine()
End While

Console.WriteLine("You're correct. Well Done")

我还建议打开option strict和option explicit来帮助排除可能出现的任何错误，在这种情况下，这意味着您需要将读取的文本显式转换为整数：

usersguess = Convert.ToInt32(Console.ReadLine())

注意，如果不输入数字，这本身就会失败...我将把如何正确处理这一问题作为练习，但将向您介绍int32.tryparse。