难倒为什么我得到“System.ArgumentOutOfRangeException”错误

Question

我遇到了一个问题，我的Visual Basic类的程序让我难住。这个任务是一个猜测游戏，我将创建一个私人子任务，在用户输入的范围内产生一个随机数（即... 1 - 100）。我似乎有这个功能，除了告诉计算机猜测较低。目前，如果我按“更高”游戏继续，但如果我按“下”错误抛出“minValue不能超过maxValue”。如果文本框中的输出高于我的lownum变量，为什么会出现此错误？ 加粗的代码是我写的代码，其他所有代码都提供了。

Public Class frmGuess 
Dim highNum As Integer 
Dim lowNum As Integer 
Dim guess As Integer 

Private Sub frmGuess_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    MessageBox.Show("Lets Play a Game!") 
    'Fixed the grammatical error below - "Think of an whole number" is incorrect. 
    MessageBox.Show("Think of a whole number -- DON'T TELL ME!") 
    MessageBox.Show("Now give me a range you want me to guess in... like 1 to 100.") 
    lowNum = InputBox("Whats the starting value?", "Lowest Value") 
    highNum = InputBox("Whats the ending value?", "Highest Value") 
    lblTitle.Text = "I am guessing a number between " & lowNum & " and " & highNum & "." 
    newGuess() 
End Sub 

**Sub newGuess() 
    ' 
    ' ITS GONE! OH NO! 
    ' 
    'New Guess Sub - Calculates a response based on the input from user and recalculates responses to guess the number. 
    'Setting New Variables 
    Dim random As New Random 

    'Generating Response 
    txtGuess.Clear() 
    txtGuess.Text = random.Next(lowNum, highNum + 1) 

End Sub** 

Private Sub btnLower_Click(sender As Object, e As EventArgs) Handles btnLower.Click 
    highNum = guess - 1 
    newGuess() 
End Sub 

Private Sub btnHigher_Click(sender As Object, e As EventArgs) Handles btnHigher.Click 
    lowNum = guess + 1 
    newGuess() 
End Sub 

Private Sub btnCorrect_Click(sender As Object, e As EventArgs) Handles btnCorrect.Click 
    MessageBox.Show("I win. I told you I was awesome.") 
    Close() 
End Sub 

Private Sub txtGuess_TextChanged(sender As Object, e As EventArgs) Handles txtGuess.TextChanged 

End Sub 

末级

Answer 1

想通了，程序功能正常。