UC知道VB数组间的数据交换
来源：百度知道 编辑：UC知道 时间：2024/06/07 03:43:27
Private Sub Command1_Click()
Dim a(266202) As Single, b(433) As Single
Dim i As Long, j As Long, k As Long
Dim aline As String, ready As Boolean
Dim filenum As Integer, m_input As String
j = 266202
k = 5
filenum = FreeFile()
m_input = "c:\8floormiddle.xy92.cef"
Open m_input For Input As filenum
Do Until EOF(filenum)
Line Input #filenum, aline
If Left(aline, 13) = "1.744000e-002" Then
For i = 1 To 266202
Line Input #filenum, aline
a(i) = Trim(Mid(aline, 43, 13))
Next
For i = 20576 To 21009
j = i - 20575
b(j) = a(i)
Print b(j)
Next
' For i = 1 To 427
'Print b(i)
'Next
End If
Loop
Close
Dim a(266202) As Single, b(433) As Single
Dim i As Long, j As Long, k As Long
Dim aline As String, ready As Boolean
Dim filenum As Integer, m_input As String
j = 266202
k = 5
filenum = FreeFile()
m_input = "c:\8floormiddle.xy92.cef"
Open m_input For Input As filenum
Do Until EOF(filenum)
Line Input #filenum, aline
If Left(aline, 13) = "1.744000e-002" Then
For i = 1 To 266202
Line Input #filenum, aline
a(i) = Trim(Mid(aline, 43, 13))
Next
For i = 20576 To 21009
j = i - 20575
b(j) = a(i)
Print b(j)
Next
' For i = 1 To 427
'Print b(i)
'Next
End If
Loop
Close
For i = 20576 To 21009
j = i - 20575
b(j) = a(i)
Print b(j)
Next
代入变量
i=21009
j=21009-20575=434
b(j)=b(434)
定义时b(433),那么自然就下标越界了。
For i = 20576 To 21009
j = i - 20575
b(j) = a(i)
Print b(j)
Next
这里边的j不是成了负的了？