Dim a(1 To 13, 1 To 7), b(1 To 13, 1 To 7), c(1 To 13, 1 To 7), d(1 To 13, 1 To 7), e(1 To 13, 1 To 7), f(1 To 13, 1 To 7), g(1 To 13, 1 To 7)
Dim i, j as Integer
-----------------------------------------------------------
Private Sub Form_Load()
Open App.Path & "\12.txt" For Input As #1
For i = 1 To 13
For j = 1 To 7
Input #1, a(i, j), b(i, j), c(i, j), d(i, j), e(i, j), f(i, j), g(i, j)
Next
Next
Close #1
End Sub
12.txt如下
0 1.039 1.04 0.815 1.859 0.607 1.004
100 1.04 1.042 0.866 1.873 0.636 1.006
200 1.043 1.046 0.91 1.894 0.662 1.012
300 1.049 1.054 0.949 1.919 0.687 1.019
400 1.057 1.063 0.983 1.948 0.708 1.028
500 1.066 1.075 1.013 1.978 0.724 1.039
600 1.076 1.086 1.04 2.009 0.737 1.05
700 1.087 1.093 1.064 2.042 0.754 1.061
800 1.097 1.109 1.085 2.075 0.762 1.071
900 1.108 1.12 1.104 2.11 0.775 1.081
1000 1.118 1.13 1.122 2.144 0.783 1.091
1100 1.127 1.14 1.138 2.177 0.791 1.1
1200 1.136 1.149 1.153 2.211 0.795 1.108
主要是从文本中读出所有数,以便后面调用其中任意一个数据
谢谢我是菜鸟
|