求教关于列表框问题

Question

有listbox1,listbox2 ,label1
将listbox1中的用户所选择的任意几项，比如重量一，重量三，重量七 重量n 添加到listbox2请问用什么语句能把分别对应的重量（比如3.2kg,5.4kg等)附值给每一个listindex，在lable1实时显示listbox2中返回的重量之和（从listbox1往listbox2添加一个则label1显示一次求和)
谢谢了

Answer 1

sub list1_click()
list2.additem list1.list(list1.listindex)
dim i as integer,sum as single
for i=0 to list2.listcount-1
   sum=sum+list2.list(i)
next i
label1.caption=sum
end sub

Answer 2

控件lsit1,list2,command1list1.style设为1.变量命名方面自己改~~
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
For i = 0 To List2.ListCount - 1
    List2.RemoveItem 0
NextFor i = 0 To List1.ListCount - 1
a = 0
    If List1.Selected(i) Then
        List2.AddItem List1.List(i)
        Select Case i
        Case 0: a = 1.5
        Case 1: a = 2.5
        Case 2: a = 3.5
        Case 3: a = 4.5
        Case 4: a = 5.5
        Case 5: a = 6.5
        End Select
    End If
    b = b + a
    
Next
Label1.Caption = bEnd SubPrivate Sub Form_Load()
    List1.AddItem "重量一", 0
    List1.AddItem "重量二", 1
    List1.AddItem "重量三", 2
    List1.AddItem "重量四", 3
    List1.AddItem "重量五", 4
    List1.AddItem "重量六", 5
End Sub