首先，贴上界面图：

很简单的程序，一个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哪去了。。？

。。。。太粗心，没办法