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

Question

我有一个学校的VB项目，它需要使用循环。我试图在我的电脑上测试它，但每次按＆＃34; OK＆＃34;在我的程序中程序冻结，没有任何内容添加到列表框中。唯一看起来新的是列表框上的滚动条。

    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循环，因为这正是它们的用途。< / p>

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