Методичка_VBA

129

MsgBox "Поднимите флажок:какой максимальный " _

&"период непрерывного увеличения добычи нефти " _

&"нужно найти-первый или последний."

Exit Sub

End If

'переменная f будет фиксировать факт наличия п ериода

'нарастания хотя бы у одной компании

'k — счетчик строк на рабочем листе при выводе данных f = 0

k = 1

'j —счетчик внешнего цикла для перебора комп аний

'i — счетчик внутреннего цикла для перебора номера года 'l — текущая длительность периода для данной ко мпании 'MaxL — максимальная длина периода увеличения

'добычи нефти для текущей компании.

For j = 1 To n l = 0

'fl — переменная типа Boolean,

'принимающая значения либо ложь либо истина .

'В зависимости от выбора флажка проверяется истинность

'различных неравенств .

If CheckBox1 = True Then fl = (l > MaxL) st1 = "Первый"

Else

fl = (l >= MaxL) st1 = "Последний"

End If

'Если длина текущего периода оказалась больше чем MaxL,

'переопределяем значение переменной MaxL и вычисляем

'последний год периода возрастания добычи

If fl Then MaxL = l: fin = a(m) - m + i

Next

If MaxL > 0 Then

'Выводим результаты в рабочий лист,

'если нашелся период возрастания

'в столбец B рабочего листа выводим начало периода возрастания

130

With Sheets("Результат")

.Cells(k + 2, 1) = Naz(j)

.Cells(k + 2, 2) = fin - MaxL

.Cells(k + 2, 3) = fin End With

k = k + 1 End If

Next

If f = 0 Then MsgBox "Таких компаний нет"

Else

MsgBox " Неправильно определены диапазоны"

Exit Sub End If

'Управление видимостью элементов управления

CommandButton1.Visible = False

CommandButton2.Visible = True

Sheets("Результат").Activate

'Создание названия и заголовка таблицы р езультатов st2 = rng1.Cells(1, 1)

st3 = rng1.Cells(m, 1)

st = st1 & "максимальный период увеличения добычи " _ & "нефти за" & st2 & "-" & st3 & "г."

With Sheets("Результат")

.Cells(1, 1) = st

.Cells(2, 1) = "Имя компании"

.Cells(2, 2) = "Начало периода"

.Cells(2, 3) = "Конец периода"

End With

Exit Sub

'Обработка ошибок 'Окно сообщения формируется в зависимости от кода оши бки

ErrorHandler:

Select Case Err.Number Case 13

MsgBox "Неправильно введены числовые данные", 48

Exit Sub Case 56

MsgBox "Ошибка ввода/вывода", 56 Exit Sub

Case 1004

MsgBox "Заполните правильно адреса диапазонов", 1004 Exit Sub

Case 9

MsgBox "Создайте лист Результат", 9

131

Unload UserForm1 Case else

MsgBox "Непредвиденная ошибка" End Select

End Sub

Private Sub CommandButton2_Click()

'Выгрузка формы из оперативной памяти

Unload UserForm1 End Sub

Private Sub UserForm_Initialize()

'При открытии формы очищаем диапазон,

'содержащий таблицу результатов

Sheets("Результат").Range("A:C").Clear

End Sub

3.5.Выполнить команду Debug/Compile VBA Project.

4.Процесс создания диалогового окна и процедур, связанных с ним, завершен.

Не забудьте удалить символ «'» в начале 10 строки. Для того чтобы проверить,

как работает созданная программа, нажмите кнопку F5. Создайте различные ситуации, приводящие к вызову оператора On Error.

5.Создайте на рабочем листе кнопку для запуска разработанной формы.

132

Примеры вопросов теста по программированию

1. Определить какую задачу можно решить с помощью процедуры PRY.

Public Sub PRY()

kol = 0: m = 5000000000 For i = 1 To 10

x = InputBox("Введите число") If x = m Then kol = kol + 1 If m>x Then

m = x kol = 1

End If Next

MsgBox "m=" & CStr(m) & " Таких чисел " & CStr(kol) End Sub

1)Определить максимальное значение и количество чисел равных максимуму в последовательности вводимых чисел.

2)Определить минимальное значение в последовательности вводимых чисел и максимальный индекс числа равного минимуму.

3)Определить максимальное значение в последовательности вводимых чисел и максимальный индекс числа равного максимуму.

4)Определить минимальное значение и количество чисел равных минимуму в последовательности вводимых чисел.

5)Нет правильного варианта ответа.

2.В программе, записанной на объектно-ориентированном языке программирования Visual Basic, определить, что является свойством объекта.

Private Sub CommandButton1_Click() Label1.Visible = True Sheets(1).Activate

End Sub

1)CommandButton1_Click 2)Range("A1") 3)True 4)Activate 5)Visible

3. После выполнения фрагмента программы

A = Array(-6, 2, 4, 0, -1, 3) For n = 1 To 3

For m = n + 1 To 4

If A(n) < A(m) Then

c = A(n): A(n) = A(m): A(m) = c End If

Next

Next

порядок элементов в массиве A будет следующий

1) -6, -1, 0, 2, 3, 4 2) 4, 3, 2, 0, -1, -6 3) -6, 4, 2, 0, -1, 3

4. Определить выходные значения переменных A и C после выполнения алгоритма (см. рисунок)

1) -2,3 2) 0, 3 3) -1, 2 4) 1,4 5) зацикливание

5.В какой строке приведенного фрагмента программного кода содержится ошибка?

10Dim a(50) As Integer

20For i = 1 To 50

30a(i) = Range(i, 1)

40Next

6.Фрагмент программы, в котором значения двумерного массива задаются с помощью вложенных циклов, записан в VB. Определите, какое значение приобретет элемент массива А[2,3].

For n=1 to 5

For k=1 to 5

If n>=k and n+2<5 Then A(n,k)=n+k^2 Else A(n,k)=n*k^2

Next k Next n

1)-5 2)0 3)18 4)11

138

7. Реализовать решение задачи в среде VBA. Ввод и вывод данных выполнять в ячейки рабочего листа.

8. * Выполнить формализацию задачи. Разработать алгоритм решения. Написать и отладить программу, реализующую алгоритм. Входные и выходные данные хранить в ячейках различных рабочих листов Excel. Спроектировать пользовательский интерфейс с использованием элементов управления: RefEdit, кнопка, рамка, метка. Остальные элементы управления использовать по необходимости. Запрограммировать перехват ошибок. Исходные данные сгенерировать с помощью датчика случайных чисел. Сделать отчет.