从1.txt提取10000个数据依次每10个计算平均值输出到2.txt，就这么简单，VB好久没用了，不少想不起来

dim a,j as integer
static i as integer
dim s,c as string
dim b(1 to 10)
For a=1 to 1000
For j=1 to 10
do while mid(txt1.text,i,1)<>","
if c=mid(txt1.text,i)<>"," then
s=s & c
end if
i=i+1
loop
b(j)=s
next For
txt2.text=str((b(1)+b(2)+b(3)+b(4)+b(5)+b(6)+b(7)+b(8)+b(9)+b(10))/10) & ","
next for
试试性行吗