如何生成給定範圍內的隨機數？VB.NET

Question

我想創建computer guess game其中我認爲1-100和計算機之間的數字生成1-100之間的隨機數和用戶給出生成的數字太低或太高或正確guess.EG計算機生成數23如果我L那麼下次就會產生1個T0 23.If下一次之間的號碼，如果它顯示10然後我按01​​那麼它將10之間產生的數字和23希望你明白給輸入了我我正在試圖做。和H一樣。 感謝 這裏是我的代碼，我嘗試

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    'Declare Variables 
    Dim strGuess As Char 
    Dim random As New Random 
    Dim answer As Integer 
    Dim low As Integer 
    Dim high As Integer 
    Line1: 
    MessageBox.Show("You pick a number between 0 and 100 and i will try to guess.Respond") 
    answer = random.Next(1, 100) 
    strGuess = InputBox("Is it " & answer, "Number Guessing Game") 

    ' lstGuesses.Items.Add(strGuess)' 
    low = answer 
    Line2: 
    If (CChar(strGuess) = CChar("L")) Then 

     low = random.Next(1, low) 
     strGuess = InputBox("Is it " & low, "Number Guessing Game") 

    End If 

    GoTo Line2 

    high = answer 
    Line7: 
    If (CChar(strGuess) = CChar("H")) Then 

     high = random.Next(high, 100) 
     strGuess = InputBox("Is it " & high, "Number Guessing Game ") 

    End If 
    GoTo Line7 
End Sub 

Answer 1

試試這個代碼，

Public Class Form1 
Dim strGuess As Char 
Dim random As New Random 
Dim answer As Integer 
Dim low As Integer = 1 
Dim high As Integer = 100 
Dim Attempt As Integer = 0 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    MessageBox.Show("You pick a number between 0 and 100 and i will try to guess.Respond") 
    answer = random.Next(1, 100) 
    strGuess = InputBox("Is it " & answer, "Number Guessing Game") 

    If strGuess = "L" Then 
     low = answer 
     LowFunc(answer) 
    ElseIf strGuess = "H" Then 
     high = answer 
     HighFunc(answer) 
    ElseIf strGuess = "R" Then 
     MsgBox("I guessed it in " & Attempt & " tries") 
    ElseIf strGuess = "X" Then 
     End 
    End If 

End Sub 

Private Function LowFunc(ByVal answer As Integer) 

    Attempt = Attempt + 1 

    answer = random.Next(low, high) 
    strGuess = InputBox("Is it " & answer, "Number Guessing Game") 

    If strGuess = "L" Then 
     low = answer 
     LowFunc(answer) 
    ElseIf strGuess = "H" Then 
     high = answer 
     HighFunc(answer) 
    ElseIf strGuess = "R" Then 
     MsgBox("I guessed it in " & Attempt & " tries") 
    ElseIf strGuess = "X" Then 
     End 
    End If 

    Return Nothing 
End Function 

Private Function HighFunc(ByVal answer As Integer) 

    Attempt = Attempt + 1 

    answer = random.Next(low, high) 
    strGuess = InputBox("Is it " & answer, "Number Guessing Game") 

    If strGuess = "H" Then 
     high = answer 
     HighFunc(answer) 
    ElseIf strGuess = "L" Then 
     low = answer 
     LowFunc(answer) 
    ElseIf strGuess = "R" Then 
     MsgBox("I guessed it in " & Attempt & " tries") 
    ElseIf strGuess = "X" Then 
     End 
    End If 

    Return Nothing 
End Function 
End Class 

-

審查這一Link您提供後，我更新了這個代碼。它將繼續生成high和low之間的隨機數。 high和low的值將相應地改變爲將由玩家/用戶提供的輸入H或L，並且當猜測正確的號碼時，玩家/用戶應該給予R作爲輸入。他們可以給X作爲輸入來退出應用程序。 Attempt會顯示多少次嘗試猜測正確的數字。