Question

vb text内多组数字相加

如图上的，怎么样才能实现，知道的高手老大帮帮忙

Answer 1

dim s() as string
s=split(text1.text,vbcrlf)
dim i as integer
dim sum as double
for i =0 to ubound(s)
if isnumeric(s(i)) then sum =sum+cdbl(s(i))

next
msgbox sum
手写代码，如有手误自查一下。