vb这些代码什么意思

Private Sub Form_Load()

List1.AddItem "性别"

List1.AddItem "班号"

List1.AddItem "简历"

List2.AddItem "学号"

List2.AddItem "姓名"

List2.AddItem "年龄"

List2.AddItem "照片"

End Sub

Private Sub Command1_Click()

List2.AddItem List1.Text '将列list1中的项添加到list2中

List1.RemoveItem List1.ListIndex '将移动的list1中的项删除

End Sub

Private Sub Command2_Click()

Dim k As Integer '很无奈，用到了当然要定义了

k = 0

While (k < List2.ListCount) ' 这里的listcount是list2的项数，只有k

If List2.Selected(k) = True Then '索引为k的项被选中

List1.AddItem List2.Text

List2.RemoveItem k '从list2中把选中的项删除

End If

k = k + 1 'k加1是为了遍历list2中所有的项以便查找到选中的项啊

Wend '结束while循环

End Sub

以上是我的注释，建议你能看看vb帮助！！那里有你不懂的所有的东西