Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Живодерова В В / VB Лабораторный практикум 3часть.doc
Скачиваний:
72
Добавлен:
26.03.2016
Размер:
2.82 Mб
Скачать

Задания для самостоятельного выполнения

При выполнении ниже приведенных заданий должны быть выполнены следующие требования:

  • приложение должно иметь удобный интерфейс;

  • имена объектов управления должны иметь трехбуквенный префикс в соответствии с типом объекта;

  • имена переменных должны быть информативны;

  • все используемые переменные должны быть объявлены;

Задание № 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

  • Составить программу перевода десятичного числа в двоичное.

  • Составить программу перевода двоичного числа в десятичное

Список использованной литературы

  1. Росс Нельсон, Running Visual Basic 3 for Windows, пер. с англ. – М.: Издательский отдел «Русская Редакция» ТОО «Channel Trading Ltd.», 1995

  2. Кауэлл Дж.Visual Basic 4.0: просто - о самом существенном, Пер. с англ. - М. :ИНФРА-М, 1998.

  3. Волченков Н.Г. Учимся программировать: Visual Basic 5, - М.:»Диалог-МИФИ», 1998

  4. Волченков Н.Г, Программирование на Visual Basic 6 в 3-х ч., М.:ИНФРА-М, 2000

  5. Visual Basic 6.0, Руководство для профессионалов, пер. с англ.- СПб.:БХВ – Санкт-Петербург, 1999