注册 登录
编程论坛 VB6论坛

一个小例子,想不清楚。

VB丶小宇 发布于 2014-10-27 14:18, 564 次点击
首先,贴上界面图:
只有本站会员才能查看附件,请 登录

很简单的程序,一个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哪去了。。?
4 回复
#2
风吹过b2014-10-27 14:39
那个 2,你图片上不是有吗?
 0

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

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

循环结束时:
i=13
#3
苍穹之舞2014-10-27 16:06
以下是引用风吹过b在2014-10-27 14:39:50的发言:

那个 2,你图片上不是有吗?
 0

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

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

循环结束时:
i=13

应该就是这个毛病了,初级错误啊,细心可发现
#4
zhengang10262014-10-27 16:47
呵呵,楼主测试大家的细心程度吧?
#5
VB丶小宇2014-10-27 16:48
回复 4 楼 zhengang1026
。。。。太粗心,没办法
1