![]() |
#2
风吹过b2014-10-27 14:39
|
只有本站会员才能查看附件,请 登录
很简单的程序,一个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哪去了。。?