作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 08:22:23
vb中读取文本数据文件时,想对文本中的数据赋给新的变量.其中的2,3只是作为判断用,下面的数据是需操作的
2
100,200
200,300
2
50,100
100,200
3
100,300
200,400
150,250
'这里是给你的调用示例:在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