使用 do while 循环时 Visual Basic 编程冻结

Question

我有一个 VB 学校项目，它需要使用循环。我试图在我的计算机上对其进行测试，但每次我在我的程序上按 "OK" 时，程序都会冻结，并且没有任何内容会添加到列表框中。唯一出现新变化的是列表框上的滚动条。

    Dim counter As Integer = 0

    If total = 5 Then
        Do While counter < 5
            Marks.Items.Add(studentNumber)
        Loop
    End If

Answer 1

您必须增加计数器

Dim counter As Integer = 0

Do While counter < 5
   Marks.Items.Add(studentNumber)
   counter += 1
Loop

如果要向列表中添加 5 个项目，则不必使用 If 语句，因为 while 循环将恰好执行 5 次

Answer 2

增加计数器将解决您在 do/while 循环中遇到的问题，但我还建议您可能更适合只使用 for 循环，因为这正是它们的用途专为

For i As Integer = 1 to 5
    Marks.Items.Add(i) 'Assuming your counter == studentNumber.
Next

Visual Basic Programming freezing when using do while loop