作者hsiangtai (请您帮帮我 !!!)
看板Visual_Basic
标题[VBA ] 阵列索引超过范围???
时间Mon Dec 8 10:50:23 2008
因为我是看着VBA程式码练习的
可是却出现阵列索引值超过范围，超奇怪的
有高手大大可以解答一下吗
『TextBox7.Text = O11(RecordNo, 1)』这一行会出现阵列索引值超过范围
Private Sub UserForm_Activate()
Dim i, j As Integer
Open "C:\O11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, O11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\H11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, H11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\C11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, C11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\L11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, L11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\V11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, V11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
RecordNo = i - 1
Close #1
'计算单日报酬
For j = 2 To 9
For i = 2 To RecordNo
R11(i, j) = Format((Val(C11(i, j)) - Val(C11(i - 1, j))) / Val(C11(i - 1, j)), "0.000")
Next i
Next j
TextBox6.Text = O11(1, 1)
TextBox7.Text = O11(RecordNo, 1)
TextBox8.Text = Left(O11(0, 2), 4)
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.130.40.9
1F：→ yauhh:RecordNo=i-1 ... i的最後值不见得都一样,怎麽能这样用啊 12/08 11:20
2F：→ hsiangtai:我是看着书上这样子打的!? 我也不知道问题出在哪 12/08 14:11
3F：→ MOONRAKER:把书丢掉。 12/08 17:14
4F：→ yauhh:每个档案读完之後,i为多少,前後比较看看,你就会想到问题在哪 12/08 23:07