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

UptoLike

ВУЗ: 

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

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

Рубрика: 

40 41
Рис. 7.1
Выполнение этой лабораторной работы целесообразно начи-
нать с копирования программного модуля VBA из лабораторной
работы «Табулирование разветвляющейся функции».
ПРОГРАММНЫЙ МОДУЛЬ VBA ИЗ ЛАБОРАТОРНОЙ РАБОТЫ
«ТАБУЛИРОВАНИЕ РАЗВЕТВЛЯЮЩЕЙСЯ ФУНКЦИИ»
СКОПИРОВАТЬ В МОДУЛЬ ПЕРВОГО ОБЪЕКТА
CommandButton1 ЛАБОРАТОРНОЙ
РАБОТЫ «ОПЕРАТОРЫ ЦИКЛА».
Внести изменения, соответствующие использованию грамма-
тической конструкции Do While … loop. Убедиться в правильно-
сти функционирования.
ПРОГРАММНЫЙ
МОДУЛЬ VBA ПЕРВОГО ОБЪЕКТА
CommandButton1 СКОПИРОВАТЬ В МОДУЛЬ ВТОРОГО
ОБЪЕКТА CommandButton2.
Внести изменения, соответствующие использованию грамма-
тической конструкции Do Loop … while. Убедиться в правильно-
сти функционирования.
Последовательно повторить эти операции для всех видов опера-
торов цикла, т. е. до конструкции For Each … next включительно.
Программы табулирования разветвляющейся функции в VВА
с использованием операторов цикла
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim x As Double
Dim w As String
w = InputBox("w =", "очистить диапазон? - (Y,y,Д,д)/N")
If (w = "Y") Or (w = "y") Or (w = "Д") Or (w = "д") Then Range(Cells(7, 1),
Cells(28, 3)) = Clear
xn = InputBox("xn =", "Введите начало диапазона", -3)
Рис. 7.1

Страницы