Циклы с постусловием в VBA
Формулировка задачи:
Составить программу вычисления значений функции F(x) на отрезке [a,b]
с шагом h. Результат представить в виде таблицы, первый столбец которой –
значения аргумента, второй – соответствующие значения функции
F(x) = sin*sin(x)+cos(x);
Решение задачи: «Циклы с постусловием в VBA»
textual
Листинг программы
Sub vvv() Dim a#, b#, i#, mas(), h#, n% '--------- вводим "a" a = Replace(InputBox("Введите нижнюю границу диапазона ""а""", "ВВОД ДАННЫХ"), ".", ",") '--------- вводим "b", при этом проверяем чтобы b>a т.к. b - верхняя граница диапазона -- Do b = Replace(InputBox("Введите верхнюю границу диапазона ""b""", "ВВОД ДАННЫХ"), ".", ",") Loop Until b > a '--------- вводим "h" ------------------------------------------------------------------ h = Replace(InputBox("Введите шаг ""h""", "ВВОД ДАННЫХ"), ".", ",") '--------- объявляем массив для внесения в него данных и вывода его на лист ------------ ReDim mas(1 To Application.RoundUp((b - a) / h + 1, 0), 1 To 2) '--------- цикл от а до b с шагом h For i = a To b Step h n = n + 1 mas(n, 1) = i mas(n, 2) = Sin(i) * Sin(i) + Cos(i) ' sin*sin(x)+cos(x) Next If mas(UBound(mas), 1) = "" Then mas(UBound(mas), 1) = b: mas(UBound(mas), 2) = Sin(b) * Sin(b) + Cos(b) '----------- выводим на лист начиная с ячайки А1 -------------------- Cells(1, 1).Resize(UBound(mas), 2) = mas End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д