用个按钮和输出窗口来测试
Private Sub BClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = 0
For Each n As Integer In SerchNum(3, 100)
i += 1
Console.Write(n.ToString & " ")
If (i > 1) And (i Mod 5) = 0 Then
Console.Write(vbCrLf)
End If
Next
End Sub
