在乘法应用程序中使用Do

Question

我在VB类中编辑一个乘法应用程序，我正在设置一个计算按钮，使用Do While语句来获取用户输入的内容，然后在列表框中显示该数字每行乘以一次（从1到9）。以下是我的其他函数，使用For Next语句，在执行时看起来如何：

我在编写Do While语句时需要模拟相同的输出。这就是我所拥有的：

Private Sub btnDoLoop_Click(sender As Object, e As EventArgs) Handles btnDoLoop.Click
    ' displays a multiplication table
    Dim number, product, count As Integer
    lstMultTable.Items.Clear()
    lstMultTable.Items.Add("Do Loop:")
    Integer.TryParse(txtNumber.Text, number)
    'Do Loop
    Do
        count = 1
        product = number * count
        lstMultTable.Items.Add("    " & number.ToString() & " * " & count.ToString() & " = " & product.ToString())
    Loop Until count = 10

End Sub

当我运行它时，我的计算应该显示在列表框中，但最终会锁定程序。有没有人对Do While循环有任何建议？提前谢谢。

Answer 1

count =1应该在循环之前。在theloop里面应该有count = count + 1（在计算之后）。

你的循环现在是一个无限循环，因为count总是1。