例如：Dim Series As New Series。这句中，怎样使每次程序运行这个代码段Series就一次叠加为Series1，Series2，Series3，Series4... ...

用数组

'如果Series的sub new无额外代码就不要写那个for循环。比如你要101个series
Dim j as integer
Sub aaaa()
Dim s(100) As Series
For i as integer=0 to 100
s(i)=New series
Next
'初始化完了，执行。
If j<100 then
j+=1
's(j)就是你说的series1,2,3...
'操作s(j)... ...
Else
'数量达到上限时
End If
'如果数量不限，用不限定下表数量的数组即可，你自己写，练习一下

果然有高人。