我用vs2010，vb程序写下面代码为什么不对呢，帮我看下
显示十个能被3整除的数

这样写不正确，不如结果：
Dim bb As Integer
Do
For bb = 1 To 33
If bb Mod 3 = 0 Then
ListBox1.Items.Add(CStr(bb))
End If
Next bb
Loop Until ListBox1.Items.Count = 10


这样就对了，用了if就对了，为什么呢。
Dim bb As Integer
Do
For bb = 1 To 33
If bb Mod 3 = 0 Then
ListBox1.Items.Add(CStr(bb))
If ListBox1.Items.Count = 10 Then Exit Do
End If
Next bb
Loop

============

[解决办法]

VB.NET code

Dim bb As Integer   For bb = 1 To 33   If bb Mod 3 = 0 Then   ListBox1.Items.Add(CStr(bb))   End If   Next bb  '一次性此处你添加了(33/3=11) 11个item ,然后再走外层循环的判断条件,'明显判断条件ListBox1.Items.Count = 10已经无法阻止程序的死循环.