Question

我改了下机构可还是提示越界，您再帮看看

With MSFlexGrid1
.Clear
.TextMatrix(0, 0) = ""
For J = 1 To 20 '就是列的总数
.TextMatrix(0, J) = J
Next J
Do While p <= 188
For i = 1 To 10
.TextMatrix(i, 0) = i
For J = 1 To 20
If p > 188 Then
.TextMatrix(i, J) = ""
Else
.TextMatrix(i, J) = a(k, p)
p = p + 1
End If
Next J
Next i
Loop
End With

Answer 1

With MSFlexGrid1
.Rows = 10
.Cols = 20
End With

Dim a(100000, 188)

'For k = 1 To LOF(1)
Dim k As Integer
k = 0
While LOF(1)
t = 0
Do While t <= UBound(a, 2) '188
a(k, t) = Input(1, 1)
t = t + 1
Loop
k = k + 1

If k > UBound(a) Then
Exit Do
End If
'Next k
Loop

k = 1
Dim i As Integer, J As Integer, p
p = 0

With MSFlexGrid1
.Clear

For J = 0 To .Cols
.TextMatrix(0, J) = J
Next J

Do While p <= UBound(a, 2) '188
For i = 0 To .Rows
.TextMatrix(i, 0) = i
p = 0
For J = 0 To .Cols
'.TextMatrix(i, J) = a(k, p)
.TextMatrix(i, J) = a(i, p)
p = p + 1
Next J
Next i
Loop
End With