Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ VBA помогите понять ошибку

Автор: goad 20.12.2007 5:02

здрасти всем, помогите понять ошибку, что не правильно
что должно делать открыть файл, взять число, использовать функцию, и записать в файл
эта падла пишет 55 ошибку постоянно, я не понимаю чего он ещё хочет?

Код

Private Sub a1()
Dim a As Single
Dim S As Single
Open "D:\s.txt" For Input As #1
Input #1, a
S = a * a
Close #1
Open "D:\otvet.txt" For Output As #2
Write #2, S
Close #2
End Sub



Прикрепленные файлы
Прикрепленный файл  2.xls ( 19 килобайт ) Кол-во скачиваний: 266