- •Лабораторный практикум
- •3 Часть
- •Visual Basic. Основы программирования
- •Дмитров 2012
- •Содержание
- •Предисловие
- •Выбор в программе
- •ВетвлениеIf...Then...Else
- •Линейный формат:
- •Блочный формат:
- •Оператор множественного выбораSelectCase
- •Организация циклов
- •Цикл со счетчикомFor...Next(Для ... Следующий)
- •Универсальный циклDo...Loop(Делать ... Цикл)
- •Циклы с предусловием.
- •Циклы с постусловием
- •Программирование графики
- •Лабораторно-практические работы Общие рекомендации по выполнению работ
- •Лабораторно-практическая работа № 1
- •Лабораторно-практическая работа № 2
- •Лабораторно-практическая работа № 3
- •Лабораторно-практическая работа № 4
- •Лабораторно-практическая работа № 5
- •Лабораторно-практическая работа № 6
- •Лабораторно-практическая работа № 7
- •Лабораторно-практическая работа № 8
- •3 Часть
- •Лабораторно-практическая работа № 9
- •1 Часть
- •2 Часть
- •Лабораторно-практическая работа № 10
- •Лабораторно-практическая работа № 11
- •2 Часть
- •Лабораторно-практическая работа № 12
- •Лабораторно-практическая работа № 13
- •Задания для самостоятельного выполнения
Задания для самостоятельного выполнения
При выполнении ниже приведенных заданий должны быть выполнены следующие требования:
приложение должно иметь удобный интерфейс;
имена объектов управления должны иметь трехбуквенный префикс в соответствии с типом объекта;
имена переменных должны быть информативны;
все используемые переменные должны быть объявлены;
Задание № 1
Ввести три числа.
Вывести сообщение «да», если числа введены в порядке возрастания., в противном случае вывести «нет»;
Найти среднее арифметическое min и max.;
Найти разницу между min и max;
Найти сумму двух из них, которые не являются min.
Задание № 2
Ввести координаты для двух отрезков. Определить пересекаются ли они.
Ввести координаты центров для двух окружностей и их радиусы. Определить, пересекаются ли окружности.
Задание № 3
Ввести четыре числа:
Вывести два наибольших числа.
Вывести два из них, расположенных между max и min.
Задание № 4
Ввести стороны двух прямоугольников. Определить, у какого из них больше площадь.
Ввести стороны прямоугольника и радиус круга. Определить, поместится ли круг внутри прямоугольника.
Задание № 5
Ввести число N, определяющее номер месяца года Вывести название времени года
Ввести число от 0 до 1000000. Определить количество цифр в числе.
Ввести число, определяющее школьную оценку (2,3,4,5). Вывести текстовую запись оценки (неуд, удовлетворительно, хорошо, отлично).
Задание № 6
Разработать приложение, которое позволяет определять оценку за контрольную работу по физике. Оценка зависит от суммы набранных баллов так, как показано в табл. Форму разработать в соответствии с образцом.
-
Баллы
Оценка
Менее 15
От 15 до 24
От 25 до 34
Не менее 35
2
3
4
5
Задание № 7
Используя вложенный цикл, разработать приложение, которое рисует на форме несколько рядов одинаковых окружностей (см. образец)
Задание № 8
Разработать приложение, которое рисует на форме несколько окружностей разного радиуса, цент окружностей совпадает (см. образец)
Задание № 9
Разработать приложение, которое рисует на форме несколько разноцветных окружностей разного радиуса, цент окружностей смещен на одинаковую величину
(см. образец).
Задание № 10
Вывести все числа от 1 до 1000, которые:
являются квадратами четных чисел.
кратны 3 и не кратны 5
Задание № 11
Ввести два числа А и С.
Найти произведение этих чисел, используя только операцию сложения.
Вычислить АС, используя только операцию умножения.
Задание № 12
Ввести число. Определить:
количество цифр в числе.
сумму этих цифр.
Задание № 13
В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы.(В месяце 26 рабочих дней). Напечатайте “Бригада выполнила норму” или “Бригада не выполнила норму”, в зависимости от полученного результата.
Задание № 14
Ввести текст.
Вывести каждый второй символ.
Определить сколько раз в нем встречается буква “а”.
Определить сколько раз в строке встречается сочетание “ен”
Выведите этот текст, удалив все цифры (коды цифр с 48 до 57).
Задание № 15
Составить программу перевода десятичного числа в двоичное.
Составить программу перевода двоичного числа в десятичное
Список использованной литературы
Росс Нельсон, 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