Практическая работа № 10 Работа с массивами в Visual Basic

Цель: научиться использовать в работе массивы и циклические алгоритмы; закрепить навыки по работе с генератором случайных чисел.

Задание: Создать программу в среде Visual Basic, реализующую: заполнение массива с помощью генератора случайных чисел, нахождение максимального и минимального элементов данного массива.

Технология выполнения задания.

1. Запустить Visual Basic. Разместить на форме следующие элементы:

а) TextBox (полю Name присвоить Text1; поле Text очистить);

б) Command Button (полю Name присвоить zap; полю Caption «заполнение массива»);

в) Command Button (полю Name присвоить max; полю Caption «максимальный элемент»);

г) Command Button (полю Name присвоить min; полю Caption «минимальный элемент»);

д) Command Button (полю Name присвоить exit; полю Caption «выход»).

Форма должна выглядеть примерно так:

2. Объявите переменные:

Dim bytA(1 To 10), bytMin, bytMax, bytI As Byte

3. Создайте событийную процедуру заполнения массива для кнопки zap. Заполните пропуски.

Randomize

Text1.Text = ""

For bytI = 1 To ______

bytA(bytI) = Int(Rnd * 10)

Text1.Text = ___________ + Str(bytA(bytI))

Next ____________

4. Создайте событийную процедуру нахождения максимального элемента массива для кнопки max

bytMax = bytA(1)

bytN = 1

For bytI = 2 To 10

If bytA(bytI) > bytMax Then bytMax = bytA(bytI): bytN = bytI

Next bytI

MsgBox "максимальный элемент" & bytMax & " его индекс " & bytN

5. По аналогии с пунктом 4 создайте событийную процедуру нахождения минимального элемента массива для кнопки min.

6. Создайте событийную процедуру окончания работы для кнопки end.

7. Создайте командную кнопку (Summa). Разработайте событийную процедуру для нее нахождения суммы всех элементов массива.

8. Добавьте кнопки: очистить, произведение (при нажатии на кнопку вычисляется произведение всех элементов массива). Программный код для этих кнопок разработать самостоятельно.

Дополнительное задание. Измените проект таким образом, чтобы пользователь мог выбирать величину одномерного массива.

Практическая работа № 11 Перемещение шаг за шагом

Цель: научиться использовать в своей работе функцию drag and drop.

Задание: создать программу, которая позволяет пользователю перетащить три элемента в полную корзину. При переносе огня в корзину содержимое корзины "сгорает" и корзина становится пустой.

Технология выполнения задания.

1. Для выполнения этой работы потребуются файлы с расширением .ico. Под кнопкой Пуск выбираем поиск файлов *.ico и берем следующие файлы:

Копируем эти файлы в Вашу папку и на время забываем о них.

2. Запустите VB. Откройте новый проект. Щелкните на кнопке Label и создайте в верхней части формы поле по всей ее ширине.

3. С помощью средства Image создайте 6 рамок изображений. Проверьте, чтобы рамки изображений создавались в представленном на рисунке порядке.

4. Установите свойства для объектов, согласно приведенной таблице.

Объект	Свойство	Устанавливаемое значение
Label1	Caption	Перетащить и оставить шаг за шагом
	Font	Times New Roman, Bold, 12
Form1	Caption	Работа с корзиной
Image1	Stretch	True
	Picture	Recyfull.ico
Image2	Stretch	True
	Picture	Cdrom01.ico
	DragIcon	Cdrom01.ico
	DragMode	1 – Automatic
Image3	Stretch	True
	Picture	Fire.ico
	DragIcon	Fire.ico
	DragMode	1 – Automatic
	Tag(Тэг)	Fire
Image4	Stretch	True
	Picture	Point11.ico
	DragIcon	Point11.ico
	DragMode	1 – Automatic
Image5	Stretch	True
	Picture	Clock06.ico
	DragIcon	Clock06.ico
	DragMode	1 – Automatic
Image6	Stretch	True
	Picture	Waste.ico
	Visible	False

5. По завершении установки свойств ваша форма будет выглядеть так, как показано на рисунке.

6. Дважды щелкните на объекте Image1 (Полной корзине). В окне Code появится процедура Image1_Click. Откройте список Procedure (Процедура), затем щелкните на элементе DragGrop. Введите следующие программные операторы в процедуру:

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)

Source.Visible = False

If Source.Tag = "Fire" Then

Image1.Picture = Image6.Picture

End If

End Sub

7. Запустите вашу программу. Перетащите значок CD-ROM на изображение корзины и отпустите кнопку мыши. Перетащите остальные значки. В последнюю очередь отправьте в корзину зажигалку. При отпускании кнопки мыши корзина становится пустой, так как содержимое корзины "сгорает".

Дополнительное задание. Добавьте на форму еще несколько иконок. Добавьте кнопку с изображением капли воды, при перемещении которой в корзину, корзина будет менять вид опять на полную.