Question

我正在尝试创建一个非常简单的程序，我要求用户猜出一个数字。他们有10个猜测，我使用For循环来跟踪和限制他们的猜测。但是，我只能让它一次请求输入，然后它运行循环十次说“抱歉再试一次”然后程序结束。有没有一种方法可以在每次循环重复时提出问题？

For x = 1 To 10 
    If num1 = 5 Then 
        txtOut.AppendText("You win") 
    Else 
        txtOut.AppendText("Try Again") 
    End If 
Next

Answer 1

        For x As Integer = 0 To 10
            Dim input As Integer = CInt(InputBox("Enter a Number", "Input"))
            If input = intAnswer Then
                txtOut.AppendText("You win")
                Exit For
             Else
                txtOut.AppendText("Try Again")
            End If
        Next

这应该与您需要做的事情一致，您不会提示用户在评论中的For循环中输入文本。每次提示它们都很重要，因为这将阻止程序立即迭代循环。

编辑：这将帮助您解决问题，但不要忘记处理输入不是整数的情况！

Answer 2

我们需要看到您的代码能够指出它出错的地方。听起来你在For循环之外要求输入，而每次你需要把它放在里面时都要求它。

伪码：

i = 0
answer = randomNumberGenerator
For (i<10)
ask for input
if input = answer then
output "Congrats! You guessed right!"
break
else
output = "Sorry, try again!"
i++
end if
end loop

VB.net 2013要求For循环中的输入

2 个答案: