Формат - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.333 из 5