版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
for循环还可以指定循环的步长

For 初始值 To 结束值 Step 增量
  执行语句块
Next

看下面的例子：

1.  
   Sub Main()
2.  
   Dim i As Integer
3.  
   Dim j As Integer = 0
4.  
   For i = 0 To 21 Step 3
5.  
   Console.WriteLine(i)
6.  
   j += 1
7.  
   Next
8.  
   Console.WriteLine("循环次数：" & j)
9.  
   Console.ReadKey()
10.  
    End Sub

i=0执行一次，前进3个数，i=3执行，又前进3个数，i=6执行。。。，

结果如下图：

另外一个例子，求1-99中奇数的和：

1.  
   Sub Main()
2.  
   Dim s As Integer
3.  
   s = 0
4.  
   For i As Integer = 1 To 99 Step 2
5.  
   s += i
6.  
   Next
7.  
   Console.WriteLine(s)
8.  
   s = 0
9.  
   For i As Integer = 1 To 99
10.  
    If i Mod 2 = 1 Then s += i
11.  
    Next
12.  
    Console.WriteLine(s)
13.  
    Console.ReadKey()
14.  
    End Sub

运行结果如下：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
转载自：https://blog.csdn.net/UruseiBest/article/details/65028546?ops_request_misc=%25257B%252522request%25255Fid%252522%25253A%252522160967330816780273651019%252522%25252C%252522scm%252522%25253A%25252220140713.130102334.pc%25255Fblog.%252522%25257D&request_id=160967330816780273651019&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~blog~first_rank_v2~rank_v29-14-65028546.pc_v2_rank_blog_default&utm_term=VB.net