Введение в информатику. Хамухин А.А. - 184 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

183
Порядок работы
Уровень
A
1. Набрать на листе 1 в первых двух столбцах таблицу исходных
данных X и Y, например: «Прогноз температуры» на 10 дней
(A2:A11, B2:B11), первую строку использовать для подписи
заголовков столбцов. В ячейку B14 занести количество точек в
массивах.
2. На листе 1 разместить 3 командных кнопки, одну подписать
«ЧТЕНИЕ С ЛИСТА», вторую «ЗАПИСЬ НА ЛИСТ», третью
«ОЧИСТКА».
3. Через кнопку «ЧТЕНИЕ С ЛИСТА» открыть редактор VBA и
набрать программу считывания данных с листа 1 в переменные VBA
(X, Y, N). С помощью пошаговой отладки убедиться, что переменные
VBA заполняются числами из 1 и 2 столбцов листа Excel.
4. Через кнопку «ЗАПИСЬ НА ЛИСТ» открыть редактор VBA и
набрать программу записи данных на лист 2. С помощью кнопки
«ОЧИСТКА» набрать программу, стирающую результаты с листа 2.
5. Проверить работу кнопок: после нажатия кнопок «ЧТЕНИЕ С
ЛИСТА», «ЗАПИСЬ НА ЛИСТ», на листе 2 должны появиться все
данные с листа 1. После нажатия на кнопку «ОЧИСТКА» все данные
с листа 2 должны исчезнуть. Если нажимается только кнопка
«ЗАПИСЬ НА ЛИСТ», без нажатия на кнопку «ЧТЕНИЕ С ЛИСТА»,
то лист 2 должен оставаться пустым.
B
6. Дополнить исходные данные в соответствии индивидуальным
числом N (как в лаб.4), внести изменения в программу и проверить
правильность работы. По ходу работы составить отчет
Программа
Dim X(), Y(), N As Variant ' объявление переменных уровня модуля
‘ фрагмент программы под кнопку «ЧТЕНИЕ С ЛИСТА»
Private Sub CommandButton1_Click()
N = Worksheets(1).Range("B14").Value ' чтение ячейки B14 листа 1 в
переменную N
ReDim X(N), Y(N)
' цикл считывания N ячеек первого и второго столбца листа 1 в массивы X
и Y
For i = 1 To N
X(i) = Worksheets(1).Cells(i + 1, 1).Value
Y(i) = Worksheets(1).Cells(i + 1, 2).Value
Next i
End Sub

Страницы