Private Sub CommandButton1_Click()



Dim i As Integer

Dim j As Integer

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim dx As Single

Dim y As Single

xn = InputBox (" Xn = ", "Ввод начального значения x ", -2, 8000, 2000)

xk = InputBox (" Xk = ", "Ввод конечного значения x ", 2, 8000, 1000)

dx = InputBox (" dX = ", "Ввод значения шага x ", 0.25, 8000, 2000)

i = InputBox (" i = ", "Ввод значения начала таблицы, строка i ", 5, 8000, 1000)

j = InputBox (" j = ", "Ввод значения начала таблицы, столбец j ", 3, 8000, 2000)

x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "Y(vba)"

10 y = Exp(x - 2) * (1 + x ^ 2 + 2 * x) ^ 0.5

Cells(i + 1, j) = x

Cells(i + 1, j + 1) = y

x = x + dx

i = i + 1

If x > xk Then GoTo 20 Else GoTo 10

End Sub

Некоторые комментарии к программе:

 

    – Объявление простых переменных, строго говоря, в VBA не требуется, но бывают случаи, когда именно из-за этого программа работает не правильно или не работает вообще;

– В операторе InputBox используются пять параметров, первые два – символьные константы, их использование объясняется при появлении окна InputBox , третий параметр– предлагаемое значение, которое можно изменить, четвертый и пятый параметры– координаты левого верхнего угла окна InputBox на экране;

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

 

 


ТАБУЛИРОВАНИЕ РАЗВЕТВЛЯЮЩЕЙСЯ ФУНКЦИИ

Выполнение этой лабораторной работы, также как и всех последующих связанных с табуляцией функций, целесообразно начинать с копирования предыдущей.

 

СКОПИРОВАТЬ ВЕСЬ ЛИСТ С ЛАБОРАТОРНОЙ РАБОТОЙ ТАБУЛИРОВАНИЕ ФУНКЦИИ НА ЧИСТЫЙ ЛИСТ И НА НЕМ ПРОИЗВЕСТИ НЕОБХОДИМЫЕ ИЗМЕНЕНИЯ.

 

Лабораторная работа “Табулирование разветвляющейся функции” также состоит из двух частей:

–  табулирование функции в Excel;

–  табулирование функции в VBA.

Критерием правильности является совпадение полученных таблиц.

Однако, в связи с условием задачи спектр значений функции G ( x ) формируется не как раньше в одном столбце, а в двух, рис. 2.1.

При этом в ячейки В6: B 12 вносится арифметическое выражение, соответствующее первой формуле задания, а в ячейки С13: C 26 – арифметическое выражение, соответствующее второй формуле задания. Можно отобразить их разным цветом.

Именно эти два столбца ПОЛНОСТЬЮ используются для построения графика.

В ячейках D 6: D 26 записывается логическая функция ЕСЛИ, с помощью мастера функций  fx .

Выполняется это следующим образом:

– выбрать ячейку D 6;

– включить мастер функций  fx

– в появившемся окне рис. 2.2 мастера функций fx  выбрать логическую функцию ЕСЛИ

 


Рис. 2.1


 

Рис. 2.2

 

– в окне “Аргументы функции” рис. 2.3 в первом окне записать логическое выражение, соответствующее заданию, при этом справа, если выражение написано грамматически правильно, появляется результат “= истина”.

 

 

Рис. 2.3

 

В самом деле, значение ячейки А6 равно -3, что меньше нуля. Во второе окно записывается арифметическое выражение соответствующее первой формуле задания, в третье – арифметическое выражение соответствующее второй формуле задания. Грамматическая правильность записи арифметических выражений подтверждается числовыми результатами, сформированными на основании вычислений арифметических выражений при значении ячейки А6 равном -3. Эти результаты появляются справа от окон,

– нажать ОК;

– скопировать формулу ячейки D 6 в диапазон D 6: D 26;

Числовые значения ячеек диапазона D 6: D 26 должны совпадать с числовыми значениями ячеек диапазонов B 6: B 12 и C 13: C 26.

 

Можно не обращаться к мастеру функций fx ,а просто записать в ячейку D 6 выражение

 

= ЕСЛИ (A6<=0;SIN(A6);EXP(-A6))

а затем скопировать от D 6 до D 26 включительно.

 

ПРОГРАММНЫЙ МОДУЛЬ VBA ИЗ ЛАБОРАТОРНОЙ РАБОТЫ “ТАБУЛИРОВАНИЕ ФУНКЦИИ” СКОПИРОВАТЬ В МОДУЛЬ ОБЪЕКТА CommandButton ЛАБОРАТОРНОЙ РАБОТЫ “ТАБУЛИРОВАНИЕ РАЗВЕТВЛЯЮЩЕЙСЯ ФУНКЦИИ”.

 

Внести соответствующие изменения.


Дата добавления: 2019-03-09; просмотров: 318; Мы поможем в написании вашей работы!






Мы поможем в написании ваших работ!