VB列表框中数字如何相加

提问：VB列表框中数字如何相加

列表框中显示如：2：西方艺术史
2：数学研究
5：汉语言写作
其中数字表示课程的学分，如果要把选中的上面3门课的学分相加放到Text中代码要怎么写？
Private Sub Form_Load()
List1.AddItem "2：西方艺术史"
List1.AddItem "2：数学研究"
List1.AddItem "5：汉语言写作"

Private Sub Command1_Click()

Dim i As Integer
List2.Clear
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then List2.AddItem List1.List(i)
Next i
然后要求把选到list2里的课程的学分自动相加放到文本框中，不知道该怎么加，还有几个小时就要交了，很急！
我照做了，但是下面是还有很多课程的，有个学分是10分的，选中后不是10，只有1，跟其他学分加上后也是只加了1，是什么原因呢？
下面还有很多我没列举的课程要怎么样写代码进去呢？

回答：

用mid函数取第一位 cint取整即可

text1.text = 0
For i = 0 to List2.ListCount - 1
text1.text = cint(text1.text) + cint(mid(list2.list(i),1,1))
Next

转贴于：立珊网络计算机专业网站