End Sub. 7. Напишите самостоятельно обработчик события Click для кнопки «Очистить», используя навыки, полученные при выполнении предыдущих лабораторных работ

Ход работы.

End Sub

7. Напишите самостоятельно обработчик события Click для кнопки «Очистить», используя навыки, полученные при выполнении предыдущих лабораторных работ.

8. Сохраните проект (выбрав File–Save frmМассив.frm и Save Массив.vbp) в папке 9.1.

9. Проверьте работоспособность проекта, запустив его на выполнение. Примерный вид приложения во время работы приведен на Рис.9.2.

10. Создайте exe-файл программы с помощью команды File → Make Массив.exe.

11. Выйдите из среды Visual Basic.

12. Запустите на выполнение файл Массив.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Задание 2. Заполнение массива произвольными числами.

Постановка задачи.

Разработать приложение, которое позволяет заполнить массив случайными целыми числами в диапазоне от 0 до 100.

1. Создайте в папке Лабораторная_работа_№9 папку 9.2.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 2 компонента CommandButton, 2 компонента TextBox и 2 компонента Label.

5. Присвойте свойству Name формы значение frmМассив2.

6. Остальные свойства формы и компонентов оставьте такими же, как в задаче 9.1. Внешний вид формы может остаться таким же, как и в предыдущем задании.

7. Напишите обработчик события по кнопке «Заполнение массива», не забывая объявить переменные в начале программы. После знаков апострофов приведены необходимые комментарии.

Dim a() As Single ' Массив объявлен как динамический

Dim n As Integer ' n - количество элементов в массиве

Dim i As Integer ' i - счетчик цикла

Private Sub CmdЗаполнить_Click()

n = Val(txtN.Text) ' Вводим количество элементов в массиве

ReDim a (1 To n) ' переопределение массива

txtМассив.Text = ""

Randomize Timer

For i = 1 To n

a(i) = Int(101*Rnd())

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i

8. Напишите самостоятельно обработчик события Click для кнопки «Очистить», используя навыки, полученные при выполнении предыдущих лабораторных работ.

9. Сохраните проект (выбрав File–Save frmМассив2.frm и Save Массив2.vbp) в папке 9.2.

10. Проверьте работоспособность проекта, запустив его на выполнение.

11. Создайте exe-файл программы с помощью команды File → Make Массив2.exe.

12. Выйдите из среды Visual Basic.

13. Запустите на выполнение файл Массив2.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Задание 3. Заполнение массива и работа с его элементами.

Постановка задачи.

Разработать приложение, которое:

1) позволяет заполнить массив двумя способами:

- случайными целыми числами в диапазоне, указанном пользователем;

- путем ввода чисел с клавиатуры (не обязательно целых).

2) выполнять с элементами массива различные действия: нахождение максимального и минимального элементов, вычисление суммы элементов и среднего арифметического элементов, а также сортировку по возрастанию и убыванию. Примерный результат работы программы – на Рис.9.3.

Дата добавления: 2014-12-23