Сборник лабораторных работ для начала изучения возможностей объектно-ориентированного языка VB

Визуальное программирование
Запуск приложений
Выберите пункт меню Run, Start и вы запустите приложение, переведя VB из режима проектирования в режим выполнения приложения. Выбрав затем пункт меню Run, End, вернитесь в режим проектирования. Повторите те же операции
Свойства формы
Запомните значения свойств Top и Left и попробуйте перемещать (move) форму по экрану дисплея. Для этого совместите курсор мыши со строкой заголовка, нажмите левую кнопку мыши, сдвиньте окно в любом направлении, а затем отпустите кнопку. Убедитесь в изменении значений свойств Top и Left. А теперь введите в окне свойств новые значения свойств Top и Left и наблюдайте за перемещением формы по экрану.
Запомните назначение свойств Height и Width и, попробовав переместить мышью правую и нижнюю границы окна формы, убедитесь в изменении этих значений. А затем ведите в окне свойств новые значения свойств Height и Width и наблюдайте за перемещением границ формы на экране.
Свойству Visible присвойте значение False и загрузите приложение (Run, Start). Убедившись, что форма в момент загрузки исчезает с экрана, остановите приложение (Run, End) и возвратите свойству Visible значение True.
Выберите свойство BackColor, значение которого выражено шестнадцатеричной константой, соответствующей белому цвету. Выберите кнопку, раскрывающую список, и на экране появится цветовая палитра. Выбрав один из цветов, закройте палитру с помощью кнопки ее системного меню.
Подберите рисунок для своей формы. Для этого, воспользовавшись свойством Picture, выберите в раскрывшемся диалоговом окне загрузки рисунка Load Picture подходящий графический файл. Щелкните на кнопке Ок. загрузите приложение (Run, Start), и рисунок будет представлен на экране до тех пор, пока вы не выгрузите (Run, End) программу.
Практическая работа №1 Методы и события
Задание 1. Бип!
Для подготовки вашего приложения, которое мы назовем «Бип!», загрузите VB и раскройте форму двойным щелчком на окне формы или кнопкой Вид – Код в окне проекта. В открывшемся окне кода вы увидите шаблон кода будущей процедуры, содержащий первую и последнюю строки:
Private Sub Form_Load()
End Sub
Имя процедуры Form_Load() информирует вас, что VB предлагает поставить в соответствие объекту Form событие Load (загрузка приложения) и ждет, чтобы вы задали реакцию формы на это событие. Введите в свободную строку между операторами Sub и End оператор Beep. Закройте окно кода и загрузите ваше первое приложение. Вы обнаружите, что появление на экране пустой формы теперь будет сопровождаться звуковым сигналом. Остановите приложение.
Задание 2. Привет.
В дополнение к звуковому сигналу «научите» ваше первое приложение формировать текстовые сообщения. Для этого раскройте форму, выберите в списке процедур окна кода событие Click и подготовьте новую процедуру:
Private Sub Form_Click()
Print "Привет!"
End Sub
Закройте окно кода и загрузите приложение. Когда на экране появится пустая форма, пощелкайте по ней мышью и наблюдайте за реакцией вашей формы. Остановите приложение.
Задание 3. Много приветов.
Если оператор с методом Print завершается точкой с запятой (;), последующий вывод информации на экране будет выполняться в той же строке, где закончился предыдущий. Убедитесь в этом, дополнив оператор в процедуре Form_Click() точкой с запятой после слова «Привет!».
Задание 4. Чистый привет.
Усовершенствуйте приложение «Привет». Раскройте форму, выберите в списке процедур событие DblClick и подготовьте новую процедуру:
Private Sub Form_DblClick()
Cls
End Sub

Испытайте приложение, убедившись, что одиночный щелчок выводит на форму ваше приветствие на форму, а двойной щелчок удаляет его.
Задание 5. Сохранение.
Сохраните приложение «Чистый привет». Для этого выберите пункт меню Файл – Сохранить Проект Как… Введите в диалоговое окно имя файла проекта «Privet» и укажите диск и каталог. После выбора кнопки ОК заполните следующее диалоговое окно файла формы, присвоив вашей единственной пока форме любое имя (например, тоже Privet), и вновь выберите ОК.
Задание 6. Привет с салютом.
Усложните приложение «Чистый привет», дополнив в процедуре Form_DblClick() оператор Cls двумя методами:
Form1.Hide
Form2.Show
Затем создайте новую форму командой Добавить форму меню Проект. Процедуру Form2_Click() закодируйте любым сообщением по своему усмотрению, например Print «Салют!», и впишите в нее еще три оператора:
Cls
Form2.Hide
Form1.Show
Испытайте обновленный проект, состоящий из двух форм. Убедитесь, что двойной щелчок меняет формы на экране.
Задание 7. Салют с приветом.
Назначьте в качестве стартовой вторую из созданных вами форм. Испытайте приложение и сохраните обновленный проект командой меню Файл – Сохранить Проект или одноименной кнопкой инструментальной панели.
Задание 8. День и ночь.
Создайте приложение с изображением солнечного дня в одной форме и лунной ночи – в другой. Для этого инициализируйте свойства Picture форм соответствующими рисунками, предварительно подготовленными в графическом редакторе. Добейтесь, чтобы при щелчках по форме день сменялся ночью и наоборот.
Алгоритм вашей работы будет таким:
Загрузить графический редактор Paint.
Выполнить блок «Создание картинок».
Загрузить Visual Basic.
Задать свойства формы.
Закодировать события формы.
Выполнить созданное приложение.
Остановить приложение.
Выполнить блок «Отладка приложения».
Сохранить приложение.
Выгрузить Visual Basic.
Выгрузить Paint.
Алгоритм блока «Создание картинок»:
Если картинка есть, загрузить ее.
Рисовать и редактировать картинку.
Сохранить картинку.
Если нужна еще одна, перейти на а).
Алгоритм блока «Отладка приложения»:
Если приложение не выполняется, вернуться на 6.
Если работает правильно, перейти на 11.
Иначе переключиться в Paint.
Выполнить блок «Создания картинок».
Переключиться в Visual Basic.
Вернуться на 8.
Задание 9*. Движение.
Создайте приложение, с изображением объекта, который движется по экрану, «подгоняемый» щелчками (очевидно, двух форм здесь уже будет мало).
Окно элементов. Надписи
Задание 10. Приветствие.
Создайте приложение, которое выводит приветствие.
Для этого, загрузив VB, выберите в окне элементов объект Label (Надпись). Поместите курсор мыши в произвольную позицию формы и вычертите прямоугольник размером, например, 8х3 см. Внутри прямоугольника появится его имя Label1, а указатели места отметят его границы. Переместите объект Label1 в середину формы. Воздействуя на указатели места, потренируйтесь в изменении его размеров. Далее для выполнения задания можно выбрать несколько способов.
Первый способ: вы можете инициализировать свойство Caption объекта Label1 задуманным вами приветствием.
Второй способ не зависит от начального значения свойства Caption. Он предполагает автоматическую установку этого значения этого значения после загрузки формы. То есть если разрабатываемое приложение должно после загрузки вывести на экран задуманное вами приветствие (например, «Добрый день!»), то его следует закодировать так, чтобы в ответ на событие Load выполняется следующая процедура:
Private Sub Form_Load()
Label1.Caption = "Добрый день!"
End Sub
Для этого раскройте форму и впишите в ее шаблон соответствующий код. Испытайте оба способа.
Задание 11. Красивое приветствие.
Измените значение начальных свойств объектов приложения. Замените, например, значение свойства Caption с «Form» на «Приветствие», установите новые значения свойства BackColor, а надпись снабдите именем «Надпись». Поберите ей новый шрифт, изменив значения свойств FontBold, FontName, FontSize.
Раскройте форму и надпись, чтобы убедиться, что изменения названий отразилось в тексте процедуры. Закройте окно кода и вновь испытайте программу.
Задание 12. Щелчки.
Для создания этого приложения раскройте созданную в предыдущем задании форму и подготовьте процедуру:
Private Sub Form_Click()
Надпись.Caption = ""
MsgBox "Щелчок по форме"
End Sub
Затем раскройте элемент Label1 и создайте его процедуру:
Private Sub Надпись_Click()
Надпись.Caption = "Щелчок по надписи"
End Sub
Задание 13. Значок.
Подготовку самостоятельно работающего (автономного) приложения начните с выбора свойств формы Icon. В списке его значений выберите диалоговое окно загрузки значков Load Icon и в нем – подходящий файл. Затем в диалоговом окне, появившемся при выборе пункта меню Файл, Делать Exe-файл, задайте имя исполнительного файла, его каталог и подпись. Свернув форму в значок, убедитесь в корректности вашего выбора и вновь восстановите форму.
Практическая работа №2 Программное управление объектами
Как с помощью числового поля и присоединенного к нему счетчика пользователь сможет счетчика пользователь сможет управлять шрифтом, которым сделана надпись.
Для программы на форму потребуется ввести следующие объекты: надпись, поле и счетчик. Счетчик отличается от других объектов тем, что никогда не встречается сам по себе, а всегда присоединен к другому элементу управления, чаще всего к полю ввода.
Подготовка к работе:
Запустить систему VB и создать новый проект.
Сохранить его в своей папке «Счетчик».
4229100129540Счетчик является не основным компонентом, а дополнительным, по этому его потребуется подключить. Для этого:
Щелкните на панели компонентов правой кнопкой мыши.
В открывшемся контекстном меню выберите пункт Компоненты – откроется одноименное диалоговое окно.
2867025327660Установите флажок возле пункта Microsoft Windows Common Controls – 25 .0 (Стандартные элементы управления Windows – 25.0) и щелкните на кнопке ОК.
В нижней части панели компонентов появятся дополнительные кнопки.
Начнем с настройки надписи. Выберите компонент Label (Надпись) на панели компонентов. Поместите надпись в нижнюю часть формы.
задайте текст свойством Caption (Заголовок). Длинный текст не нужен, достаточно одной буквы, например Б.
Зададим начальные параметры шрифта. Щелкните на свойстве Font (Шрифт), а затем на кнопке настройки шрифта. Откроется диалоговое окно Выбор шрифта. В списке Шрифт вберите вариант Times New Roman. Задайте также размер шрифта равным 144 пункта. (это необходимо чтобы подобрать размеры окна программы.)
3771900573405Щелкните на кнопке ОК. Перетаскиванием подберите место для буквы на форме, а также измените размеры самой формы чтобы придать будущему окну программы более аккуратный вид. В верхней части формы оставьте немного места для размещения поля со счетчиком.
Задайте для свойства Autosize (Автоподбор размера) значение True (Да). Затем снова откройте диалоговое окно настройки параметров шрифта и задайте размер шрифта 24 пункта.
Выровняйте положение надписи по центру формы. Для этого дайте команду ФорматЦентрировать по форме Горизонтально. Надпись выровняется по центру формы. Кроме этого вберите для свойства Alignment (Выравнивание) значение 2 – Center (По центру). Благодаря этому надпись всегда будет оставаться в центре.
Создадим текстовое поле. На панели компонентов выберите компонент TextBox (Тестовое поле) и нарисуйте этот объект в верхней части формы. Размер поля выберите по своему усмотрению. Для поля нам нужна только одна настройка – начальное значение. Задайте для свойства Text (Текст) значение 24.
На панели компонентов выберите компонент UpDown (Счетчик) и нарисуйте его в правой части текстового поля или вплотную к нему. Именно так принято располагать этот элемент управления.

Объект «счетчик» имеет два режима работы: автономный и присоединенный. Мы знаем, что счетчик всегда связан с другим объектом, например с полем ввода. Значение счетчика и число, содержащееся в поле, должны быть согласованы. В присоединенном режиме за этим следит сам объект (поле ввода). В автономно режиме за этим должен следить программист. Нам проще применить присоединенный режим. Выделите счетчик щелчком левой кнопки мыши – на панели свойств откроются свойства этого объекта. Задайте для свойства AutoBuddy (Автоприсоединение) значение True (Да). Свойство BuddyControl (Присоединенный элемент) тут же получит значение Text1. Щелкните на свойстве BuddyProperty (Присоединенное свойство). Выберите в раскрывающемся списке нужное вам свойство объекта Text1 – Text (Текст). Преобразование введенной строки в число счетчик берет на себя.
Задайте минимальное, максимальное и текущее значения. Для свойства Max (Максимальное значение) задайте значение 144, для свойства Min (Минимальное значение) – число 1. текущее значение счетчика хранится в свойстве Value (Значение). Запишите сюда число 24.
Программируем работу текстового поля
Дважды щелкните на текстовом поле, но не на счетчике. Система VB создаст процедуру Text1_Change. Она обрабатывает событие Change, наступающее в момент изменения текста в поле ввода.
Первое, что нужно сделать, – исправить некорректные данные, если кто-то их введет во время работы программы. Если вместо размера шрифта пользователь захочет ввести свое имя, программа не должна «ломаться». Необходимо сделать так, чтобы в поле можно было вводить только цифры. Для этого примерим функцию Val. Она преобразует введенный текст в число. Если текст набран не цифрами (например, если набрано чье-нибудь имя), функция Val вернет значение 0, и это предупредит программу об ошибке.
Присвоим значение, возвращенное функцией, вспомогательной переменной i:
I = Val(Text1.Text)
Переменная i должна содержать размер шрифта. Если пользователь ведет слишком большое или отрицательное число, ее значение может выйти за допустимые пределы. Чтобы ограничить введенное число, запишем два условных оператора:
If i<1 then i = 1
If i>144 then i = 144
Эти операторы будут действовать только если значение переменной i оказалось за пределами разрешенного диапазона. В этом случае они заменят его ближайшим допустимым числом.
После этого мы должны присвоить свойству Text (Текст) текстового поля исправленное значение. Но здесь есть небольшая тонкость. Корректно преобразовать число в текст можно при помощи функции Str$. Она готовит число для вывода в текстовую строку и по этому добавляет перед ним пробел, чтобы оно не сливалось с другими словами предложения. Удалить ведущие пробелы в строке позволяет функция LTrim$. Поэтому запишем нужный оператор так:
Text1.Text = LTrim$( Str$(i))
Осталось последнее: задать размер шрифта для надписи. Параметры шрифта хранятся в свойстве Font (Шрифт), которое является составным. Размер шрифта определяется свойством Size. Нужный оператор надо записать так:
Label1.Font.Size = i
Обратите внимание на то, что здесь используется свойство, которое само имеет свойства. Способ доступа к свойствам (через точку) от этого не изменяется.
Ваша программа готова.
Практическая работа №3 Таблица умножения
Компьютеры предназначены для автоматизации математических вычислений. Таблица умножения, которую мы запрограммируем, для компьютера – очень простая задача. Но мы ее усложним. Сомножители, участвующие в операции, не вводятся с клавиатуры, а выбираются графическим способом – с помощью элемента управления, который называется движком.
Движок – это элемент, состоящий из шкалы и движущегося по нему бегунка. Бегунок передвигают методом перетаскивания или при помощи клавиш управления курсором. Для двух сомножителей нам потребуются два движка. Первым движком выбирается первый сомножитель, а вторым – второй сомножитель. При этом значение, установленное движком, можно увидеть в поле, которое сделано с помощью объекта Надпись.
Подготовительная работа
Запустить VB и создать новый проект.
Сохранить его в папке Умножение.
Для системы VB движки – это дополнительные компоненты. Необходимо их подключить. Для этого:
Щелкните на панели компонентов правой кнопкой мыши. В контекстном меню выберите пункт Компоненты.
Откроется одноименное диалоговое окно. Установите в списке флажок возле пункта Microsoft Windows Common Controls 6.0 (Стандартные элементы управления Windows). Щелкните на кнопке Ок. В нижней части компонентов появятся дополнительные кнопки.
На панели компонентов щелкнуть по кнопке Slider (Движок), а затем методом протягивания нарисуйте движок на форме.
Подберите размер области движка. Затем поместите на форму второй движок прямо под первым.
Пусть наша графическая таблица умножения будет работать только с однозначными и двухзначными числами. То есть значения сомножителей могут изменяться от 2 до 99. Настроим свойства движков одинаково. Для этого с помощью панели свойств изменим следующие свойства движков.
Min (Минимум). Минимальное значение движка. Оно достигается когда бегунок находится на левом краю полосы. Зададим здесь значение 2.
Max (Максимум). Максимальное значение движка – бегунок на правом краю полосы. Зададим для этого свойства значение 99.
Value (Значение). Это свойство задает текущее положение бегунка. При его движении это свойство изменяется автоматически. С помощью этого свойства удобно задать начальное положение бегунка. Пусть сначала бегунок находится в крайне левом положении. Укажем для этого свойства значение 2.
SmallChange (Малое изменение). Бегунок не обязательно перетаскивать с помощью мыши. Его можно двигать и курсорными клавишами: ВЛЕВО и ВПРАВО, ВВЕРХ и ВНИЗ. При этом значение, заданное движком, изменяется на величину, заданную этим свойством. Здесь надо задать минимальное значение: 1.
LargeChange (Большое изменение). Бегунок также можно двигать клавишами PAGE UP и PAGE DOWN. Тот же эффект дает щелчок левой кнопкой мыши на полосе движка рядом с бегунком. Значение движка при этом изменяется на величину, заданную этим свойством. Давайте зададим здесь значение 7.
TickFrequency (Частота засечек). Это свойство указывает, как плотно будут располагаться засечки на полосе движка. Засечки помогают следить за положением бегунка. Давайте укажем здесь число 7, такое же, как значение свойства LargeChange (Большое изменение). В этом случае по щелчку на полосе бегунок будет перепрыгивать от одной засечки к следующей.

Для второго движка все настройки задайте точно так же.
Заключим произведение в рамку. Для этого служит компонент Frame (Рамка). Выберите его на панели компонентов и нарисуйте рамку на форме методом протягивания. Можно сразу поместить ее ниже и правее движков. Позже уточним положение рамки.
Измените заголовок рамки, изменив свойство Caption (Заголовок) на слово Произведение.
Нам потребуется три надписи: две для сомножителей и одна для произведения. Выберите компонент Label (Надпись) и нарисуйте надпись на форме методом протягивания. Разместите ее справа от верхнего движка.
Остальные надписи добавляются на форму так же. Вторую надпись поместите рядом со вторым движком, а третью расположите внутри заготовленной рамки. Чтобы числа выглядели красиво выровняйте правые границы надписей по одной вертикальной линии.
Настроим созданные объекты. Так как движки установлены в крайнее левое положение, начальные значения множителей равны 2, а начальное значение произведения – 4. Введем нужные значения в свойство Caption (Заголовок) каждой из надписей.
Выровняем значения надписей по правому краю. Для того необходимо изменить значение свойства Alignment (Выравнивание) для объектов-надписей. Значение для всех трех надписей 1 – Right Justify (Выравнивание по правому краю).
Добавим и настроим флажок. Выберите компонент CheckBox (Флажок) на панели инструментов и нарисуем флажок под движками. Изменим свойство Caption (Заголовок) на значение Квадрат. Если выбрать в свойстве Alignment (Выравнивание) значение 1 – Right Justify (Выравнивание по правому краю) то метка флажка окажется не слева, а справа от подписи.

Программируем работу движков
Движки в нашей программе – это основные элементы управления. Для них мы должны предусмотреть два режима работы. Когда флажок сброшен, движки работают независимо. Однако если флажок установлен, то сомножители совпадают, а это значит, что оба движка должны иметь всегда одно и то же значение, а их бегунки – одно и то же положение.
Движок – это как бы счетчик, но не кнопочный, а графический. Его самое важное свойство – текущее значение. Поэтому нам надо обрабатывать событие Change (Изменение). Оно возникает всякий раз, когда положение бегунка меняется.
Щелкните правой кнопкой на верхнем движке. Откроется контекстное меню. Выберите в нем пункт Показать Код – откроется окно кода.
Первый объект-движок называется Slider1. Выберите название этого объекта в окне кода в раскрывающемся списке слева. В списке справа выберите событие Change (Изменение). Система VB создаст процедуру Slider1_Change() для обработки этого события.
Наша программа должна менять только надписи, но не надо забывать, что если поменяется хотя бы один из сомножителей, то изменится и произведение. Так, если поменяется положение первого бегунка, то изменять надо свойства надписей Label1.Caption и Label2.Caption.
Все это нам знакомо, но здесь есть одна трудность: надпись содержит строку текста, а положение движка – это число. Это не страшно – преобразовать число в строку может стандартная функция Str$. Итак, нам надо изменить две надписи, а значит, добавить два оператора.
Эти операторы ввела система
Private Sub Slider1_Change()
Эти операторы добавили мы сами
Label1.Caption = Str$(Slider1.Value)
Label3.Caption = Str$(Slider1.Value * Slider2.Value)
End Sub
Для обработки изменения второго движка надо создать аналогичную процедуру - обработчик. Выберите в окне кода в раскрывающемся списке слева Slider2. В списке справа выберите событие Change (Изменение).
Private Sub Slider2_Change()
Label2.Caption = Str$(Slider2.Value)
Label3.Caption = Str$(Slider1.Value * Slider2.Value)
End Sub
Проверьте работу программы, нажав клавишу F5.
Программируем влияние флажка
Если флажок установлен, бегунки должны всегда иметь одинаковые положения. При этом какой бы бегунок мы не двигали, второй должен двигаться точно также (в таких случаях говорят, что они должны двигаться синхронно). Это значит, что мы должны добавить процедуру обработки щелчка на флажке, а также изменить процедуры обработки движков с учетом влияния флажка.
Выберите в окне кода в раскрывающемся списке слева объект Check1 (это и есть флажок). Система VB сама создаст процедуру обработки щелчка Check1_Click().
Мы можем привести движки к одинаковому виду, просто сделав значение второго движка таким же, как у первого. Для этого нужен оператор:
Slider2.Value = Slider1.Value
Теперь необходимо внести изменения в обработчики события Change (Изменение) для движков. Выяснить, установлен флажок или сброшен, можно с помощью свойства Value (Значение). Если флажок сброшен, это свойство содержит 0, а если установлен – 1. Если флажок установлен, приводим второй движок к значению первого:
If Check1.Value = 1 Then
Slider2.Value = Slider1.Value
End If
Такие же операторы надо вставить и во вторую процедуру обработки. Единственное отличие состоит в том, что мы приводим первый движок в соответствие со вторым.
If Check1.Value = 1 Then
Slider1.Value = Slider2.Value
End If
Программа готова.
Полный текст программного кода будет выглядеть так:
Private Sub Check1_Click()
Slider2.Value = Slider1.Value
End Sub
Private Sub Slider1_Change()
Label1.Caption = Str$(Slider1.Value)
Label3.Caption = Str$(Slider1.Value * Slider2.Value)
If Check1.Value = 1 Then
Slider2.Value = Slider1.Value
End If
End Sub
Private Sub Slider2_Change()
Label2.Caption = Str$(Slider2.Value)
Label3.Caption = Str$(Slider1.Value * Slider2.Value)
If Check1.Value = 1 Then
Slider1.Value = Slider2.Value
End If
End Sub
Самостоятельная работа:
Подумайте, что можно изменить в свойствах объектов, чтобы программа могла находить произведения не только двухзначных, но и трехзначных чисел, например от 2 до 199.
Подумайте, что надо изменить в коде программы и сделайте это, чтобы вместо произведения двух чисел наша программа вычисляла их сумму.
Подумайте, что надо изменить в свойствах объектов, если программа будет вычислять сумму вместо произведения.
Управляющие конструкции в VB
Конструкция ветвления
Существует несколько разновидностей данной структуры.
1 вариант: если при выполнении какого-либо условия необходимо выполнить один оператор.
If условие then оператор (все оформляется в одной строке)
2 вариант: при выполнении условия требуется выполнить не один, а несколько операторов, то:
If условие then
Операторы
End if
3 вариант: при выполнения того или иного оператора (или блока операторов) в зависимости от результата проверки определенного условия:
If условие then
Операторы 1
Else
Операторы 2
End if
Или
If условие then
Операторы 1
Else: Операторы 2
End if
4 вариант: вложенные условия.
If условие1 then
Операторы 1
Else If условие2 then
Операторы 2
…
[Else Операторы N]
End if
5 вариант: возвращает одно из двух значений, в зависимости от проверенного условия
Iif (условие, значение 1, значение2)
Например
Dim intA As Integer, strA As String
intA=6
strA=Iif(intA MOD 2, “Четное”, “Нечетное”)
6 вариант: Оператор выбора. Используется в случае необходимости выбора значения из нескольких вариантов, или когда конструкция вложенных Если (If) слишком громоздка.
Select Case переменная
Case значение 1
Операторы 1
Case значение 2
Операторы 2
…
[Case Else Операторы N]
End Select
Например:
Select Case x
Case 1
X=x+1
Case 2, 3, 4
X=10
Case Else
X=20
End Select
Циклы
Циклическая структура применяется при многократном повторении оператора или ряда операторов
1. Цикл For … Next: используется в том случае, когда количество повторов заданного блока операторов известно заранее.
For счетчик = нач_значение to кон_значение [step шаг]
Операторы 1
[Exit for]
операторы 2
Next счетчик
Например:
For i = 1 to 25 step 0.4
S=S+i
Next i
2. Цикл Do.. Loop: применяется в том случае, когда число повторений операторов тела цикла заранее неизвестно. Существует четыре разновидности данной конструкции.
Do Until условие
Операторы
LoopЕсли результатом проверки условия является значение False, то блок Операторы выполняется. Если результатом проверки является значение True, то цикл не выполняется ни разу. В случае использования этих двух конструкций возможна ситуация, когда тело цикла не будет выполнено ни разу.
Do While условие
Операторы
LoopЕсли условие истинно, то выполняется блок операторов. Do
Операторы
Loop Until условие Блок операторов выполняется до тех пор, пока результатом проверки условия является значение False В случае использования этих двух конструкций тело цикла будет выполнено хотя бы один раз.
Do
Операторы
Loop While условие В случае ложности условия выполняется блок Операторы. While условие
Операторы
Wend Если условие истинно, то выполняется блок Операторы. Используется в том случае, когда число повторений тела цикла заранее неизвестно.
Задачи:
Создайте программу, которая из двух введенных чисел печатает заключение о том, какое число больше.
Создайте программу, проверяющую верно ли утверждение, что введенное число является четным.
Создайте программу, определяющую, пройдет ли график функции y=5x2-7x+2 через заданную точку с координатами (a,b).
Квадраты при игре в крестики-нолики перенумерованы, как показано на рисунке. Заданы номера трех квадратов: N1, N2, N3, причем N1<N2<N3.
1 2 3
4 5 6
7 8 9
Проверьте, лежат ли квадраты:
На одной диагонали;
На одной вертикали;
На одной горизонтали.
Создайте и произведите отладку программы, определяющей максимальное из всех введенных чисел. (Пусть признаком конца ввода чисел служит число 0.)
Вычислите сумму квадратов n четных чисел.
Вычислите: 1+2+4+8+…+210
Напишите программу, которая требует ввода пароля, например числа 111, и если пароль правильный, то выводит сообщение «Молодец!!!». Если после пятой попытки пароль неверен, выйти из программы.