Question

一个简单的VB程序，求每一步的程序解释，最好能是详细到每个词，万分感谢！

题目就是窗体上有List1，List2两个列表框，list1有数学，物理，化学，外语，语文
程序：Private Sub Command1_Click()
For k = list1.ListCount - 1 To 0 Step -1
If list1.selested(k) Then
list2.AddItem list1.List(k)
list1.RemoveItem k
End If
Next k
End Sub
问最后产生结果？

Answer 1

程序：Private Sub Command1_Click()
For k = list1.ListCount - 1 To 0 Step -1 //从LIST1的最后一项向前检索
If list1.selested(k) Then //如果某一项K是被选中状态
list2.AddItem list1.List(k) //list2就添加一个list1被选中的那个项
list1.RemoveItem k //list1删除被选中的那一项
End If //判断结束
Next k //本次循环结束
End Sub
后面的就不用说了吧.

追问

list1.ListCount 中的count是什么？

Answer 2

最后结果就是在 LIST1中，选中的项目会移到 LIST2中显示，并且在LIST1中山删除。

例如：你在 List1 中选中了 数学，外语，点击之后
在LIST1中显示有 物理，化学，语文
在LIST2中显示有 数学，外语

Answer 3

'Option Explicit

Private Sub Command2_Click()
List1.Clear
List1.AddItem "数学"
List1.AddItem "物理"
List1.AddItem "化学"
List1.AddItem "外语"
List1.AddItem "语文"
List2.Clear
End Sub
Private Sub Form_Load()
Command2_Click
End Sub
'以上用于初始化

Private Sub Command1_Click()'按钮点击
For k = List1.ListCount - 1 To 0 Step -1'遍历n-1 到 0
If List1.Selected(k) Then'看是否被选中啦
List2.AddItem List1.List(k)'添加
List1.RemoveItem k'删除
End If
Next k
End Sub
'将list1中选中的移动到list2末尾