Question

VB 如何将 ListBox 中每个Item项中的数字相加，并输出到一个Label中？

麻烦各位高手帮我这个菜鸟解决下这个问题哈...

首先有这么几个条件：
1、ListBox中的Item项的数量是不定的，Item的添加是用一个Button添加的。
2、每一项Item中 包含了 如下格式的信息
“文字（汉字和字母以及数字） ￥xx.xx"
3、我想通过一个按钮将Listbox中的Item的信息中的 ￥符号后的金额相加，并输出到一个Label的Caption中去。

求助各位高手 这个应该怎么弄呢？

Answer 1

先找到每一项中￥的位置，再截取它后面的字符串，因为￥后面是数字开头，所以直接可以用val（）函数将其转换为所要的数值，用ListCount获取list1的项数，t = List1.List(i)获取某一项，然后求和就行了，代码如下：
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
t = List1.List(i)
n = InStr(t, "￥")
s = Val(Mid(t, n + 1))
Sum = Sum + Val(s)
Next i
Label1.Caption = Sum
End Sub

Answer 2

Private Sub Form_Load()
List1.AddItem "橘子总价： ￥12.34元"
List1.AddItem "苹果总价： ￥87.66元"
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim str As String
str = InputBox("in", "input", " ￥ 元")
If str = "" Then Exit Sub
List1.AddItem str
Dim coun As Integer
For coun = 0 To List1.ListCount - 1
Dim value As Currency
Dim i As String, j As String
j = List1.List(coun) '已知字符串初值
i = "￥" '要查找的指定字符
value = value + val(Right(j, Len(j) - InStrRev(j, i)))
Label1.Caption = "总价：" & value & "元"
Next coun
End Sub

以上调试通过。

Answer 3

想想想想再想想。。。

追问

我本来想用正则表达式来做这个的，我感觉那个行。 但是卡在赋值那了。。