Ооператор цикла с параметрами For-Next
Оператор цикла For позволяет повторять группу операторов заданное число раз. Синтаксис записи оператора:
For <счетчик цикла>=<начало> To <конец> [Step шаг]
<операторы>
[Exit For]
Next <счетчик цикла>
где – <счетчик цикла> – любая числовая переменная, в которой сохраняется информация о количестве выполненных проходов цикла;
– параметры <начало> и <конец> - это числовые выражения, задающие начальное и конечное значение счетчика и определяющие количество проходов цикла;
– числовая переменная шаг задает приращение, на которое увеличивается счетчик цикла при каждом проходе. [Step шаг] необязательная фраза, при её отсутствии VBA увеличивает счетчик цикла на единицу;
Работает оператор следующим образом: переменной <счетчик цикла> присваивается значение параметра <начало> и проверяется условие счетчик цикла меньше <конец>. Если условие неверно, то управление передается оператору, следующему за ключевым словом Next. Если же условие верно, то выполняются все операторы, входящие в блок, обозначенный как <операторы>, вплоть до ключевого слова Next. После этого значение переменной <счетчик цикла> увеличивается на величину, заданную во фразе [Step шаг] или на единицу, если фраза опущена, и управление возвращается на ключевое слово For. Данный процесс будет выполняться, пока значение <счетчик цикла> не достигнет значение <конец>. Досрочно завершить цикл For – Next можно с помощью оператора Exit For.
|
|
|
На блок – схеме оператор изображается как показано на рисунке 10.1.
Рисунок 10.1 – Оператор цикла на блок-схеме
Элемент управления OptionButton
Элемент управления OptionButton (переключатель) позволяет выбрать, один из нескольких взаимоисключающих параметров или действий. Переключатели обычно отображаются группами, созданными с помощью элемента управления Frame , обеспечивая возможность выбора альтернативного варианта.
Основными событиями переключателя являются события Click и Change.Наиболее часто используемые свойства элемента управления OptionButton представлены в таблице 18.1.
Таблица 18.1 – Свойства элемента управления OptionButton
| Свойство | Описание |
| Value | Возвращает True, если переключатель выбран и False в противном случае |
| Enabled | Допустимые значения: True (пользователь может выбрать переключатель) и False (в противном случае) |
| Visible | Допустимые значения: True (переключатель отображается во время выполнения программы) и False (в противном случае) |
| Caption | Надпись, отображаемая рядом с переключателем |
Задание 18.1
Выполнить задания согласно варианта, используя переключатели.
|
|
|
| № варианта | задание |
| 1 | Выбирается число от 1 до 4, определяющее пору года. Вывести название этой поры. |
| 2 | Выбирается число от 1 до 7, определяющее день недели. Дать название этого дня. |
| 3 | Выбирается число от 1 до 5. Дать название этого числа. |
| 4 | Вводится нецелое число. Вывести либо его целую часть, либо дробную в зависимости от выбора пользователя |
| 5 | Банк предлагает три вида срочных вкладов: на 3 месяца под 27 %, на 6 месяцев под 29 % и на год под 30 %. Вкладчик положил N у. е. на один из срочных вкладов. Какую сумму он получит по истечение срока? |
| 6 | Дан объем в литрах. Пересчитать этот объем в пинтах, галлонах, бушелях и квартах (английские меры объема жидких и сыпучих тел) на выбор пользователя (1 литр=1,706 пинты, 1 литр=0,220 галлона, 1 бушель=36,35 литра, 1 кварта=1,136 литра). |
| 7 | Задано расстояние в метрах. Пересчитать это расстояние в километрах, милях, футах или ярдах на выбор пользователя ( 1 миля=1,609 километра, 1 метр=1,094 ярда, 1 метр=3,281 фута). |
| 8 | Дана масса в килограммах. Пересчитать эту массу в пудах, фунтах, центнерах или тоннах на выбор пользователя (1 пуд=16,38 кг, 1 фунт=0,409 кг, 1т=1000 кг, 1 ц=100 кг.). |
| 9 | Дано расстояние в метрах. Пересчитать его в верстах, саженях, аршинах или вершках на выбор пользователя (1 верста=1,067 км, 1 сажень=2,134 м, 1 аршин=0,7112 м, 1 вершок=4,445 см.). |
| 10 | Разработать пользовательскую форму для нахождения периметра или площади прямоугольника по заданным сторонам. |
|
|
|
Пример Разработать программу выполнения одной из четырех арифметических операций над двумя числами по выбору пользователя. Исполняемая операция устанавливается за счет выбора соответствующего переключателя.
Порядок выполнения работы:
1. Запустите редактора Visual Basic
2. Выполнить команду Вставка ( Insert) ® UserForm
3. Поместить на форму элементы, требуемые для решения задачи, с панели элементов, и расположить их нужным образом, как показано на рисунке 18.1.
Рисунок 18.1 – Вид пользовательской формы
7. Изменить свойства объектов (таблица18.1) на форме c помощью окна свойств. Вид пользовательской формы после назначения свойств представлен на рисунке 18.2.
Таблица 18.1 – Свойства объектов
| Свойство | Значение свойства |
| Label1.Caption | a |
| Label2.Caption | в |
| Label3.Caption | с |
| СоmmandButton1.Caption | Расчет |
| OptioButton1.Caption | Сложение |
| OptioButton2.Caption | Вычитание |
| Для всех объектов свойство .BackColor | По своему вкусу выбрать цвет из палитры цветов |
| Для Label1, Label2 ,Label3 свойство .Font | В ДО “Шрифт”, которое появится после щелчка по кнопке  , расположенной напротив свойства Font, выбрать размер 16
|
|
|
|
Рисунок 18.2 – Вид пользовательской формы после назначения свойств
8. Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке Расчет и перейти в окно программы, где набрать текст процедуры обработки события Click() для кнопки CommandButton1:
Private Sub CommаndButton1_Click()
Dim a As Integer, b As Intуger, c As Integer
a = TextBox1.Value
b = TextBox2.Value
If OptionButton1.Value = True Then
c = a + b
End If
If OptionButtоn2.Value = True Then
с = a - b
End If
TеxtBox3.Value = c
End Sub
Дата добавления: 2019-11-16; просмотров: 343; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!