Формат - VBA
Формулировка задачи:
КАК СДЕЛАТЬ ТАКОЙ ФОРМАТ?
Решение задачи: «Формат»
textual
Листинг программы
Sub FileEx() Dim x, y As Single Open Application.ActiveWorkbook.Path & "\data.txt" For Input As #1 Open Application.ActiveWorkbook.Path & "\result.txt" For Output As #2 Print #2, "Таблица значений" Print #2, "I" & String(40, "-") & "I" Print #2, "I X I Функция I" Print #2, "I" & String(40, "-") & "I" While Not (EOF(1)) Line Input #1, x y = 1.41 * (x ^ 3 + x ^ 4 / 4) Print #2, "I Х="; Replace(format(x, "00.00"), ",", "."); " I Y="; Replace(format(y, "000.0000 I"), ",", ".") Wend Print #2, "I" & String(40, "-") & "I" Print #2, "Составил: < Сущенко Алексей Александрович >" Close #1 Close #2 MsgBox ("Задача выполнена!") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д