Автор: 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