Информатика для I курса. Часть I. Никифоров С.Н. - 9 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

16 17
ПРОГРАММНЫЙ МОДУЛЬ VBA ИЗ ЛАБОРАТОРНОЙ РАБОТЫ
«ТАБУЛИРОВАНИЕ РАЗВЕТВЛЯЮЩЕЙСЯ ФУНКЦИИ»
СКОПИРОВАТЬ В МОДУЛЬ ОБЪЕКТА CommandButton
ЛАБОРАТОРНОЙ РАБОТЫ «ТАБУЛИРОВАНИЕ ФУНКЦИИ,
РАЗВЕТВЛЯЮЩЕЙСЯ БОЛЬШЕ ЧЕМ ОДИН РАЗ».
Внести соответствующие изменения.
Программа табулирования в VВА
функции, разветвляющейся больше чем один раз
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
xn = InputBox("Xn = ", "Ввод начального значения x", -3, 8000, 2000)
xk = InputBox("Xk = ", "Ввод конечного значения x", 7, 8000, 1000)
dx = InputBox("dX = ", "Ввод значения шага x", 0.5, 8000, 2000)
i = InputBox("i = ", "Ввод значения начала таблицы, строка i", 5, 8000, 1000)
j = InputBox("j = ", "Ввод значения начала таблицы, столбец j", 6, 8000, 2000)
x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "Z1(vba)": Cells(i, j + 2) = "Z2(vba)":
Cells(i, j + 3) = "Z3(vba)"
10 Cells(i + 1, j) = x
If x <= 0 Then
z = Sin(x)
Cells(i + 1, j + 1) = z
End If
If (x > 0) And (x <= 3.5) Then
z = Exp(-x)
Cells(i + 1, j + 2) = z
End If
If x > 3.5 Then
z = Application.Ln(x)
Cells(i + 1, j + 3) = z
End If
x = x + dx
i = i + 1
If x > xk Then GoTo 20 Else GoTo 10
20 End Sub
Некоторые комментарии к программе:
по количеству условий задания применены три неполных
условных оператора. Так как у каждого оператора в частях Then
находятся по два оператора, то по грамматическим требованиям
необходим переход на другую строку, и завершается каждый опе-
ратор End If;
можно было воспользоваться вложенными условными опера-
торами, но очень часто возникают логические ошибки при оцен-
ке уровня вложенности после части ELSE; считается целесообраз-
ным при решении подобных задач использовать грамматическую
конструкцию, в которой количество неполных условных операто-
ров соответствует числу логических условий решаемой задачи;
в программе используется сложное логическое выражение
(x > 0) And (x <= 3.5),
состоящее из двух простых, объединенных логической функ-
цией And.
4. ТАБУЛИРОВАНИЕ ДВУХ ФУНКЦИЙ
Лабораторная работа «Табулирование двух функций» отличает-
ся от лабораторной работы «Табулирование функции» только чис-
лом функций, построенных на одном графике. Поэтому ее целесо-
образно выполнять на базе лабораторной работы «Табулирование
функции».
СКОПИРОВАТЬ ВЕСЬ ЛИСТ С ЛАБОРАТОРНОЙ РАБО Т ОЙ
«ТАБУЛИРОВАНИЕ ФУНКЦИИ» НА ЧИСТЫЙ ЛИСТ И НА
НЕМ ПРОИЗВЕСТИ НЕОБХОДИМЫЕ ИЗМЕНЕНИЯ.
Лабораторная работа «Табулирование двух функций» также со-
стоит из двух частей:

Страницы