Question

vb中读取文本数据文件时,想对文本中的数据赋给新的变量.其中的2,3只是作为判断用,下面的数据是需操作的

Answer 1

'这里是给你的调用示例：在form1中的command1内调用函数并打印存储的结果Private Sub Command1_Click()Dim X() As Single'先声明一个存储坐标的空数组变量Call GetPoints(App.Path "zuobiao.txt", X()) '这里调用函数For i = 1 To UBound(X)'坐标存储在数组变量的第1维至最高维之间'这里在窗体上打印出坐标来验证Print X(i, 0) "(" X(i, 1) "," X(i, 2) "," X(i, 3) ")"'上面：线型X坐标Y坐标 Z坐标NextEnd Sub