Тест. Выдает ошибку - VB

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

Выдает ошибку в 4 строке.
Do
      buf = ""
      Do          ' считывание текста варианта ответа
         Line Input #1, f
         If Mid(f, 1, 1) <> "." And Mid(f, 1, 1) <> "," _
            Then
            buf = buf + f + " "
         End If
      Loop Until Mid(f, 1, 1) = "." Or Mid(f, 1, 1) = ","

Код к задаче: «Тест. Выдает ошибку - VB»

textual
Const N_ANS = 4         ' максимальное количество
                        ' вариантов ответа

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ