这个题只要认识了这2个函数就能做了
split() 分割函数
ubound() 返回数组最大下标
使用 split 函数 分割DateTxt内的数据! 分隔条件为 换行 VBCRLF
Dim a
a=split(text1.text,vbcrlf)
for i = 0 to ubound(a)
print "数组第" & i & "个数据为:" & a(i)
next i
print "总:" & str(ubound(a) +1) & "组数据"