Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Технологии программирования. Практикум для студентов, обучающихся по направлению подготовки 51.03.06 «Библиотечно-информационная деятельность», профил
.pdf
7. Реализуйте следующую задачу: «Известна процентная став-
ка банка. Введите сумму начального вклада и число, определяющее, во
сколько раз Вы хотите увеличить сумму вклада. Определите, через
сколько лет произойдет увеличение вклада и какое значение он примет». Добавьте на форму следующие объекты и измените для них
свойства (таблица 18).
Таблица 18 – Используемые объекты с указанием свойств
и значений на второй пользовательской форме
Объект Свойство Значение
Командная кнопка Name Cmd2
Caption Вычислить
Текстовые окна Name TxtProzent
Name TxtSumma0
Name TxtN
Name TxtYear
Name TxtItog
Метки
8. Приведите свою форму в соответствие с рисунком 26.
Рисунок 26 – Внешний вид формы
9. В окне кода процедуры обработки события Click для объекта
Cmd2 наберите:
proz = Val(TxtProzent.Text) / 100 + 1
s0 = Val(TxtSumma0.Text)
51
n = Val(TxtN.Text)
summa = s0; y = 0
Do While summa < s0 * n
y = y + 1
summa = summa * proz
Loop
TxtItog.Text = summa
TxtYear.Text = y
10. Проверьте работу программы.
11. Реализуйте следующую задачу: «Дан год, численность в
этом году и ежегодный прирост населения. Введите число, определяющее, во сколько раз увеличится численность населения. Создайте
список, содержащий данные о численности для каждого следующего
года». Для этого установите на форме следующие объекты и измените
им свойства (таблица 19).
Таблица 19 – Используемые объекты с указанием свойств
и значений на пользовательской форме
Объект Свойство Значение
Командная
Name Cmd3
кнопка
Caption Определить
Текстовые окна Name TxtGod
Name TxtPrirost
Name TxtK
Name TxtMan0
Список Name List2
Метки
12. Приведите свою форму в соответствие с рисунком 27.
52
Рисунок 27 – Внешний вид формы
13. В окне кода процедуры обработки события Click для объек-
та Cmd3 наберите:
x = Val(TxtMan0.Text)
y = Val(TxtGod.Text)
d = Val(TxtPrirost.Text) / 100 + 1
k = Val(TxtK.Text)
summa = x
Do Until summa >= x * k
y = y + 1
summa = summa * d
List2.AddItem Str(y) + " год " + Str(summa)
Loop
14. Проверьте работу программы.
Контрольные вопросы:
1. Как организуется оператор цикла по условию?
2. Что означает оператор val?
3. Охарактеризуйте фрагмент программы «List1.Clear».
Список литературы:
1. Visual Basic. Самоучитель для начинающих [Электронный
ресурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 151–159. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
2. Грошев, А. С. Информатика: учебник для вузов [Электронный
ресурс] / А. С. Грошев. – Москва; Берлин: Директ-Медиа, 2015. –
С. 391–397. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/ index.php?page=book&id=428591
53
Лабораторная работа № 9
(2 часа)
Одномерный массив
Цель работы: освоить приемы работы с одномерными масси-
вами.
Задачи работы:
- овладеть практикой построения одномерных массивов;
- получить навыки использования оператора Dim для одномер-
ных массивов.
Обеспечивающие средства: ОС Windows 7 или выше; интегри-
рованная среда разработки Visual Basic 2010.
Теоретическая часть
Массив – упорядоченная совокупность однотипных данных, обо-
значенных одним именем. Имя массива образуется по тем же прави-
лам, что и имена переменных.
Отдельные величины, образующие массив, называются элемен-
тами массива. Каждый элемент в массиве имеет номер (индекс), по
которому можно обратиться к значению элемента. Индекс – числовое
значение целого типа.
Количество элементов в массиве называется размером массива.
Массивы бывают:
одномерные – элемент определяется одним индексом (можно
сравнить с таблицей из одной строки).
двумерные – два индекса определяют элемент (таблица из
нескольких строк и столбцов).
Перед использованием в программе массив должен быть объяв-
лен оператором DIM, который резервирует память:
Dim ИмяМассива (границы) [As тип]
При объявлении статического массива можно указывать
(верхнюю и нижнюю).
54
границы
Примеры объявления массивов:
Dim A (10 to 15) – одномерный массив, индексы элементов с 10
до 15;
Dim B (12) – одномерный массив из 13 элементов (если верх-
няя граница не указана, то она = 0);
Dim C (3,10) – двумерный массив из 4 строк и 11 столбцов;
Dim N (5 to 10, 3 to 13) – двумерный массив из 6 строк и
11 столбцов.
Технология работы
1. Создайте форму и добавьте на нее компоненты, указанные в
таблице 20.
Таблица 20 – Используемые объекты с указанием свойств
и значений на пользовательской форме
Объект Свойство Значение
Командные кнопки Name CmdMas
Caption Заполнение и вывод массива
Name CmdSort
Caption Сортировка массива
Name CmdMAx
Caption Определить
Name CmdSr
Caption Определить
Рамки Caption Max и Min значения в массиве
Caption Среднее значение
Текстовые окна Name TxtMas
Name TxtSort
Name TxtMax
2. Приведите свою форму в соответствие с образцом, представ-
ленным на рисунке 28.
Name TxtMin
Name TxtSr
55
Рисунок 28 – Внешний вид формы
3. В разделе общих объявлений объявите массив Dim Mas(10).
4. В окне кода процедуры обработки события Click для объекта
CmdMas наберите:
'заполнение случайными числами
txtMas.Text = ""
For i = 1 To 10
mas(i) = Int(Rnd * 100)
txtMas.Text = txtMas.Text + " " + Str(mas(i))
Next i
5. В окне кода процедуры обработки события Click для объекта
CmdSort наберите:
For i = 1 To 10
For j = 1 To 9
If mas(j) > mas(j + 1) Then
k = mas(j)
mas(j) = mas(j + 1)
mas(j + 1) = k
End If
Next j
Next i
56
txtSort.Text = ""
For i = 1 To 10
txtSort.Text = txtSort.Text + " " + Str(mas(i))
Next i
6. В окне кода процедуры обработки события Click для объекта
CmdMax наберите:
Max = mas(1)
For i = 2 To 10
If mas(i) > Max Then Max = mas(i)
Next i
TxtMax.Text = Max
7. Самостоятельно наберите код для нахождения минимального
значения в массиве.
8. В окне кода процедуры обработки события Click для объекта
CmdSr наберите:
s = 0
For i = 1 To 10
s = s + mas(i)
Next i
TxtSR.Text = s / 10
9. Проверьте работу программы.
10. Измените программу так, чтобы массив заполнялся
буквами
русского алфавита, для этого измените тип массива. В окне кода про-
цедуры обработки события Click для объекта CmdMas наберите:
txtMas.Text = ""
For i = 1 To 10
mas(i) = Chr((Rnd * 32) + 224) ' коды русских букв от 224 до 255
txtMas.Text = txtMas.Text + " " + mas(i)
Next i
В остальных процедурах уберите обращение к функции Str().
11. Проверьте работу программы. Объясните причину ошибки
при вызове программы, определяющей среднее значение.
57
Контрольные вопросы:
1. Что такое массив? Для чего используются массивы?
2. Как в Visual Basic реализуется одномерный массив?
Список литературы:
1. Visual Basic. Самоучитель для начинающих [Электронный
ресурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 256–269. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
2. Грошев, А. С. Информатика: учебник для вузов [Электронный
ресурс] / А. С. Грошев. – Москва; Берлин: Директ-Медиа, 2015. –
С. 384–388. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/ index.php?page=book&id=428591
3. Синицын, С. В. Программирование на языке высокого
уровня [Текст]: учебник для студентов высших учебных заведений /
С. В. Синицын, А. С. Михайлов, О. И. Хлытчиев. – Москва: Академия, 2010. – С. 216–218.
Лабораторная работа № 10
(2 часа)
Многомерный массив
Цель работы: освоить приемы работы с многомерными масси-
вами.
Задачи работы:
- научиться работать с многомерным массивом данных;
- получить навыки использования оператора Dim для многомер-
ных массивов.
Обеспечивающие средства: ОС Windows 7 или выше; интегри-
рованная среда разработки Visual Basic 2010.
Теоретическая часть
В Visual Basic разрешается определять многомерные массивы
как массивы объектов (элементов управления), если в программе
58
имеются группы объектов, действующих примерно одинаково. Такие
массивы позволяют «привязывать» разные элементы управления к
одной процедуре обработки события.
Существует два способа создания массива объектов:
1. Установите на форму первый элемент управления, полностью
опишите его свойства, скопируйте его необходимое количество раз и
расставьте на форме уже готовые копии.
2. Установите объект, измените
необходимые свойства, уста-
новите следующий объект, присвоив ему такое же имя (Name), как
и у первого объекта.
Элементы массива объектов имеют одинаковые имена и различаются по индексу (Index), остальные свойства могут совпадать или
отличаться. Для обращения к элементу массива объектов необходимо
указать имя объекта и в круглых скобках индекс.
Технология работы
1. Установите на форме следующие объекты и измените им
свойства (таблица 21).
Таблица 21 – Используемые объекты с указанием свойств
и значений на пользовательской форме
Объект Свойство Значение
Метка Caption Вопрос
Name LblVopros
Caption (отсутствует)
Рамка Caption Выбери правильный ответ
Массив переключателей
OptOtvet
Font 10, полужирный
Index От 1 до 3
Caption (отсутствует)
Командная кнопка Name Cmd
Caption Далее
2. Приведите свою форму в соответствие с рисунком 29.
59
3. В разделе общих объявлений наберите:
Dim Test (4, 5) As String 'массив с вопросами и ответами
Dim Verno As Integer 'кол-во верных ответов
Dim n As Integer 'номер текущего вопроса
Dim s As Integer 'номер выбранного ответа
4. В окне кода процедуры обработки события Load для объекта
Form наберите:
For i = 1 To 3
OptOtvet(i).Value = False
Next i
Рисунок 29 – Внешний вид формы
n = 0 : Verno = 0
Test (0, 1) = "единица измерения памяти" 'первый вопрос
'варианты ответов на первый вопрос
Test (1, 1) = "тактовая частота"
Test (2, 1) = "байт"
Test (3, 1) = "количество точек"
Test (4, 1) = "2" 'номер правильного ответа на первый вопрос
'данные 2 вопроса
Test (0, 2) = "устройство обработки информации"
Test (1, 2) = "процессор"
60
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]