私有子命令1_Click()
對於i = 0,列出1。列表計數- 1
t = List1。清單(壹)
n = InStr(t,“¥“)
s = Val(Mid(t,n + 1))
總和=總和+數值
接下來我
標簽1。標題=總和
末端接頭