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

UptoLike

ВУЗ: 

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

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

Рубрика: 

10 11
Рис. 2.2
Рис. 2.3
Числовые значения ячеек диапазона D6:D26 должны совпадать
с числовыми значениями ячеек диапазонов B6:B12 и C13:C26.
Можно не обращаться к мастеру функций f
x
, а просто записать
в ячейку D6 выражение
=ЕСЛИ(A6<=0;SIN(A6);EXP(-A6))
а затем скопировать от D6 до D26 включительно.
ПРОГРАММНЫЙ МОДУЛЬ 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
Dim g 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", 5, 8000, 2000)
x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "G1(vba)": Cells(i, j + 2) = "G2(vba)"
10 Cells(i + 1, j) = x
If x <= 0 Then
g = Sin(x)
Cells(i + 1, j + 1) = g
Else
g = Exp(-x)
Cells(i + 1, j + 2) = g
End If
x = x + dx
i = i + 1
If x > xk Then GoTo 20 Else GoTo 10
20 End Sub

Страницы