怎么实现从ARRAY到LISTBOX.LIST的赋值? 80分,在线等答案!!!!!!

Question

Dim Array1(10) As String
Private Sub Command1_Click()
Dim i As LongFor i = 0 To UBound(Array1()) - 1
    List1.AddItem Array1(i)
NextEnd SubPrivate Sub Form_Load()
Dim i As Long
For i = 0 To 9
    Array1(i) = i
NextEnd Sub

Answer 1

Dim recordcounter As IntegerDim studentarray(1 To 50, 1 To 6) As StringPrivate Sub Command1_Click()
Dim introw As Integer
Dim intcol As Integer
introw = 1
intcol = 1
Open "h:\258\student.dat" For Input As #1
 Do While Not EOF(1)
   For introw = 1 To 12
    Next introw
    For intcol = 1 To 6
      Input #1, studentarray(introw, intcol)
     recordcounter = recordcounter + 1
      Next intcol
 LoopLabel1.Caption = studentarray(1, 1)
For introw = 1 To recordcounter
index_name.AddItem = studentarray(introw, 1)
Next introw
End Sub有什么错误吗?