Устранить ошибку "sub or function not defined" - VB

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

Это мой код!!!

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim z As String
Dim n As Integer
z = "d:\texnika.txt"
Open z For Input As #1
n = 0
While Not EOF(1)
        With a(n)
     Input #1, .vyd, .rik, .cina, .kolir, .kilkist
     n = n + 1
Wend
End Sub

Почему выкидывает ошибку SUB OR FUNCTION NOT DEFINED???

Решение задачи: «Устранить ошибку "sub or function not defined"»

textual
                            Листинг программы 
                        
dim a()as t_A

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

7 голосов , оценка 3.571 из 5

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

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

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