首先，贴上界面图：

很简单的程序，一个List ,一个combo控件。
代码：

Option Explicit
Dim i As Integer        '定义i为整型模块级变量
Private Sub Form_Load()     '窗体加载发生的事件
For i = 1 To 12 Step 2      '从1到12做循环，步长为2，没两个数执行一次。
   List1.AddItem i + 1 & "偶数月份"          '添加月份
   Combo1.AddItem i + 1 & "偶数月份"
Next i                     
End Sub

从1开始：
1+2=3+1=4
3+2=5+1=6
5+2=7+1=8
7+2=9+1=10
9+2=11+1=12
循环到12结束
4.6.8.10.12.。那个0  跟  2哪去了。。？

那个 2，你图片上不是有吗？
 0

你的循环变量从1 开始，那自然没有 0 了。

i= 1 3 5 7 9 11
然后添加时：
2 4 6 8 12

循环结束时：
i=13

应该就是这个毛病了，初级错误啊，细心可发现

呵呵，楼主测试大家的细心程度吧？

。。。。太粗心，没办法