Question

VB下标越界怎么改？

Private Sub Command1_Click()
Dim i As Integer
Dim s(100) As Byte
Open "C:\OutPut.dat" For Binary As #1
i = 1
Do While Not EOF(1) '如果没读到最后一行则循环
Get #1, i, s(i)
i = i + 1
Loop
Close #1
Print s(2)
End Sub

Answer 1

Private Sub Command1_Click()
Dim a(1 To 10) As Integer,i as integer,sum as integer,aver as float
Sum = 0
For i = 1 To 10
a(i) = Rnd * 100 + 1
Sum = Sum + a(i)
Next i
'此时i=11了，下面不越界才怪
aver= Sum / 10
Text1.Text=aver
for i = 1 To 10
If a(i) > aver Then
Print a(i)
End If
next i
End Sub
求采纳为满意回答。

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Dim s(100) As Byte
Open "C:\OutPut.dat" For Binary As #1
i = 1
Do While Not EOF(1) '如果没读到最后一行则循环
Get #1, i, s(i)
i = i + 1
if i =101 then exit do
Loop
Close #1
Print s(2)
End Sub

Answer 3

Private Sub Command1_Click()
  Dim i As Integer
  Dim s() As Byte
  Open "C:\OutPut.dat" For Binary As #1
  i = 1
  Do While Not EOF(1) '如果没读到最后一行则循环
    Redim Preserve s(i)
    Get #1, i, s(i)
    i = i + 1
  Loop
  Close #1
  Print s(2)
End Sub