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
每句都帮我解释一下好吗 详细一点 谢谢了

Private Sub Command1_Click() '按钮单击事件
Dim i As Integer, j As Integer '定义两个integer变量
For i = 1 To 10 'i的for循环，从1到10
j = i + j '为j赋值
List1.AddItem j '为list1中添加一项j
Next i '循环结束
For i = 1 To 4 '新循环
List1.RemoveItem List1.ListCount - i '删除总数-i那项
Next i '循环结束
End Sub '事件结束
一开始j=0

第一个循环

j=1+0=1 添加1

j=2+1=3

j=3+3=6

......

以此类推直i=10

list1内共10项

第二个循环每循环一次删除一个共循环四次，删除四个 至于删除哪六个自己推下吧

注意list是从0开始标记的，而个数不是

结果还有6个

list1显示

1

3

6

15

28

45

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 1 To 10

j = i + j

List1.AddItem j '这里是添加（添加10项）

Next i

For i = 1 To 4

List1.RemoveItem List1.ListCount - i '这里是删除（删除4项）

Next i

End Sub

所以只剩6项了。

如果楼主已经明白楼上同学的回答，我就来给你解释一下运行过程中的具体变化。 我用下划线代替空格，以便上下数值能对齐～ 【添加过程】 初始值 i=0 j=0 i__旧j__添加j=i+j 1___0___添加j=1+0=1 2___1___添加j=2+1=3 3___3___添加j=3+3=6 4___6___添加j=4+6=10 5__10___添加j=5+10=15 6__15___添加j=6+15=21 7__21___添加j=7+21=28 8__28___添加j=8+28=36 9__36___添加j=9+36=45 10_45___添加j=10+45=55 一共添加了10项，分别是1、3、6、10、15、21、28、36、45、55。 【删除过程】 初始值i=0 编号_0__1__2__3__4__5__6__7__8__9_（共10项，从0开始编号） 数值_1__3__6_10_15_21_28_36_45_55 i__总项数__删除的项 1____10_____10-1=9 删除第9项（55） > 重新编号：0__1__2__3__4__5__6__7__8 > 剩余的项：1__3__6_10_15_21_28_36_45 （共9项，从0开始编号） 2____9_______9-2=7 删除第7项（36） > 重新编号：0__1__2__3__4__5__6__7 > 剩余的项：1__3__6_10_15_21_28_45 （共8项，从0开始编号） 3____8_______8-3=5 删除第5项（21） > 重新编号：0__1__2__3__4__5__6 > 剩余的项：1__3__6_10_15_28_45 （共7项，从0开始编号） 4____7_______7-4=3 删除第3项（10） > 重新编号：0__1__2__3__4__5 > 剩余的项：1__3__6_15_28_45 （共6项，从0开始编号） 于是就得到楼主图中的结果啦！希望对你理解有帮助！

Private Sub Command1_Click() //Command1的点击事件 Dim i As Integer, j As Integer //分别定义一个整型的i和j For i = 1 To 10 //开始循环操作，使i从1到10递变循环执行代码 j = i + j //把每次i循环的值加上j的总和赋值给j自己 List1.AddItem j //把得到的新j值添加到List1容器里 Next i For i = 1 To 4 //开始循环操作，使i从1到4递变循环执行代码 List1.RemoveItem List1.ListCount - i //从List1里移除（List1.ListCount - i）项数据，即List1的总行数－1

Next i

End Sub //结束

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息