- •Лабораторный практикум
- •5 Часть
- •Visual Basic. Основы программирования
- •Дмитров 2012
- •Содержание
- •Предисловие
- •Массивы данных
- •Статические массивы
- •Динамические массивы
- •Массивы объектов
- •Создание и использование вызываемых процедур и функций
- •ПроцедурыSub
- •Функции
- •Рекурсивные процедуры и функции
- •Лабораторно-практические работы лабораторно-практическая работа № 1
- •Лабораторно-практическая работа № 2
- •Лабораторно-практическая работа № 3
- •Лабораторно-практическая работа № 4
- •Лабораторно-практическая работа № 5
- •Лабораторно-практическая работа № 6
- •Лабораторно-практическая работа № 7
- •Лабораторно-практическая работа № 8
- •Лабораторно-практическая работа № 9
- •1 Часть
- •2 Часть
- •Лабораторно-практическая работа № 10
- •Лабораторно-практическая работа № 11
- •1 Часть
- •2 Часть
- •Задания для самостоятельного выполнения
Задания для самостоятельного выполнения
При выполнении ниже приведенных заданий должны быть выполнены следующие требования:
приложение должно иметь удобный интерфейс;
имена объектов управления должны иметь трехбуквенный префикс в соответствии с типом объекта;
имена переменных должны быть информативны;
все используемые переменные должны быть объявлены;
Задание № 1
Одномерный массив из 12 элементов.
Заполнить случайными числами.
Все элементы с нулевыми значениями заменить на единицу.
Значения всех элементов увеличить в два раза.
Массив вывести до и после преобразования.
Задание № 2
Одномерный массив из 15 элементов.
Заполнить случайными числами от 0 до 20 и вывести
Вывести номера тех элементов массива, значения которых больше 10.
Найти среднее арифметическое значение элементов, имеющих нечетный номер.
Задание № 3
Одномерный массив из 8 элементов.
Заполнить с клавиатуры
Определить, имеются ли в массиве два подряд идущих нулевых элемента.
Все элементы массива, имеющие значения менее 10, заменить нулем.
Вывести номера тех элементов массива, значения которых превышает среднее арифметическое значение всех элементов массива.
Задание № 4
Одномерный массив из 10 элементов.
Заполнить только из нулями и единицами
Вывести сообщение “да”, если они строго чередуются.
Определить чего больше – нулей или единиц
Задание № 5
Имеются данные о ценах на 10 видов товаров. Определить цену самого дорого товара, который может приобрести покупатель , имеющий заданную сумму денег.
Задание № 6
Массив заполнить числами 1,3,5,7,9,11,13,15,17,19. Вывести на экран два соседних элемента: первый и второй, второй и третий, третий и четвертый и т.д., а также их сумму или произведение, при чем при сумме больше 15 выводить сумму, в противном случае - произведение.
Задание № 7
Одномерный массив из 12 элементов.
Заполнить случайными числами.
Определить номер первого элемента, значение которого больше 25.
Определить номер последнего элемента, значение которого больше 10.
Определить количество элементов массива, значения которых попадают в интервал от N до M (N и M ввести с клавиатуры)
Задание № 8
Двумерный массив из 3 строк и 5 столбцов.
Заполнить случайными числами и вывести
Найти сумму элементов для каждой строки.
Найти произведение для каждого столбца
Задание № 9
Двумерный массив из 4 строк и 4 столбцов.
Заполнить случайными числами
Вывести на экран элементы главной диагонали.
Вывести все элементы, располагающиеся выше главной диагонали.
Поменять местами элементы симметрично относительно главной диагонали.
Задание № 10
Двумерный массив из 6 строк и 3 столбцов.
Вывести элементы 4 строки
Вывести элементы 2 столбца
Найти максимальный элемент и его индексы (номер строки и столбца).
Определить количество четных значений в массиве
Задание № 11
Разработайте приложение «Клавиатура».приложение должно работать следующим образом:
При щелчке по одной из «клавиш» в текстовое окно добавляется выбранная буква или пробел
При щелчке по кнопке «Очистить», текст полностью исчезает.
Клавиши – это массив объектов (командные кнопки или метки)
Задание № 12
Расположите на форме таймер и несколько изображений (массив изображений)
Разработайте программный код для того чтобы приложение работало следующим образом:
После загрузки приложения картинки меняют свои координаты случайным образом. (скорость перемещения отрегулируйте сами)
При щелчке по любой картинке, она становится невидимой.
Работа программы заканчивается тогда, когда все изображения становятся невидимыми.
Задание № 13
Разработайте тестовую программу для контроля знаний по Visual Basic.(за основу возьмите пр.работу № 7 ) Тест должен содержать не менее 10 вопросов, на каждый вопрос – 4 варианта ответа. В конце тестирования вывести оценку, которая определяется следующим образом:
Все ответы верные – 5
8 или 9 верных ответов - 4
6 или 7 3
в остальных случаях 2
Задание № 14
Разработайте программу «Кроссворд», содержащую вопросы по теории Visual Basic. В кроссворде должно быть не менее 10 слов.
Задание № 15
Разработать приложение, которое для указанных пяти сторон и двух диагоналей определяет площадь пятиугольника. В программном коде использовать функцию определения площади треугольника по трем сторонам.
Задание № 16
Для следующей программы написать функцию, которая определяет выполняется теорема Пифагора для трех величин.
A=VAL(TEXT1.TEXT)
B=VAL(TEXT2.TEXT)
C=VAL(TEXT3.TEXT)
IF PIF(A,B,C)=0 AND PIF(B,C,A)=0 AND PIF(A,C,B)=0 THEN
? «ТРЕУГОЛЬНИК НЕ ПРЯМОУГОЛЬНЫЙ»
ELSE
?»ПРЯМОУГОЛЬНЫЙ»
END IF
Список использованной литературы
Росс Нельсон, Running Visual Basic 3 for Windows, пер. с англ. – М.: Издательский отдел «Русская Редакция» ТОО «Channel Trading Ltd.», 1995
Кауэлл Дж.Visual Basic 4.0: просто - о самом существенном, Пер. с англ. - М. :ИНФРА-М, 1998.
Волченков Н.Г. Учимся программировать: Visual Basic 5, - М.:»Диалог-МИФИ», 1998
Волченков Н.Г, Программирование на Visual Basic 6 в 3-х ч., М.:ИНФРА-М, 2000
Visual Basic 6.0, Руководство для профессионалов, пер. с англ.- СПб.:БХВ – Санкт-Петербург, 1999