UC知道VB数组计算
来源：百度知道 编辑：UC知道 时间：2024/07/15 21:27:34
执行下面的程序，当单击Command1时，列表框List1的第2列表项内容是多少？第4列表项内容是多少？，第5列表项内容是多少？（要过程）
Private Sub Command1＿Click（）
Dim I As Integer，j As Integer
For I =1 To 10
j=I+j
List1.AddItem j
Next I
For I =1 To 4
List1.RemoveItem List1.ListCount - I
Next I
End Sub
顺便解释一下最后那个代码的意思怎么是-I？
怎么是11-1而不是10-1？我才学VB好多都不懂
Private Sub Command1＿Click（）
Dim I As Integer，j As Integer
For I =1 To 10
j=I+j
List1.AddItem j
Next I
For I =1 To 4
List1.RemoveItem List1.ListCount - I
Next I
End Sub
顺便解释一下最后那个代码的意思怎么是-I？
怎么是11-1而不是10-1？我才学VB好多都不懂
list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55
下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为10，减去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每减掉一次，list1.listcount 就少了一条记录。
(注意，list1.listcount-1 是最后一条记录)
减掉了第 9，7，5，3列
剩余为 1,3,6,15,28,45
结果为：3,15,28
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.
'也就是，问题所问的第二列的索引为1，第四列的索引为3...