Тест. Выдает ошибку - 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) = ","

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

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

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

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

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