高分悬赏vb数组赋值的问题

来源：百度知道 编辑：UC知道 时间：2024/05/08 09:06:58
有3000多个数据存在文本文档里面，怎样能把这些数据复制到一个数组里面，然后用这个数组的数据画曲线。
高手帮我解决以下赋值的问题
txt里面有3000多个数字，把这些数字赋值给数组

一般来说，读取数据并赋值是很容易的。
用Open打开，然后用input读取。

关于通过数值画线的问题，恐怕你事先要估计一下曲线的类型。否则运算量将是非常大的。

如果用高中的方法，并且画的是直线，可以考虑高三中回归直线的计算方法。

更一般的，就是使用数学分析中的最小二乘法来计算函数表达式。

问题具体些
比如文本内数据的格式

文本文档可以读取到数组
也可以画曲线

line input #1,x
a()=split(x,"数字分割符")

dim tt as string
dim a() as string
Open 文本文件地址 for input as #1 '读取文件内容到tt变量里面
do untile eof(1)
tt=tt&input(1,#1)
loop
close #1
a()=split(tt," ") '以空格为分割符，把所有字符分别存到数组的每个元素里面。

你必而用FOR循环语句,把数据放至数组里面