Ошибка 'Expected array' на Debug.Print sData(i). - VB

Формулировка задачи:

Eto moy code:

                    Листинг программы
                
 
                        
                          
                    
fn = FreeFile
  Open test For Binary Lock Read As fn
  sData = LOF(fn)
  Get fn, , sData
    For i = 0 To UBound(sData)
    Debug.Print sData(i)
    Next
  Close fn
  sLines = Split(sData, vbCrLf)
  sData = vbNullString

Pochemy-to vudaet oshibky 'Expected array' na Debug.Print sData(i). Cho ne pravilno?

Решение задачи: «Ошибка 'Expected array' на Debug.Print sData(i).»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim i As Integer
Dim fn As Integer 
Dim sData() as Long
fn = FreeFile
Open test For Binary Lock Read As fn
Count = LOF(fn)
redim sData(Count)
Get fn, , sData 
For i = 0 To UBound(sData)
Debug.Print sData(i)
Next

Оцени полезность:

6 голосов , оценка 3.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы