Private Sub cmdPower_Click( )

Циклы в Visual Basic

В реальном занятии слушатель знакомится с основными повторяющимися конструкциями языка циклом с известным числом повторений For…Next и условным циклом Do…Loop.

1. Цикл For…Next в Visual Basic

Нередко в программках требуется неоднократное выполнение 1-го либо нескольких операторов. Для этого предусмотрены циклические конструкции либо просто циклы. Когда программеру понятно Private Sub cmdPower_Click( ), какое число повторений данной группы операторов нужно выполнить, можно пользоваться повторяющейся конструкцией For…Next.

Цикл For…Next является самой старенькой и самой обычный повторяющейся конструкцией Basic. Кусок блок-схемы, который реализует оператор For…Next, можно представить последующим образом:

Cинтаксис оператораFor…Next последующий:

For Cчетчик=Изначальное значение To Конечное значение Private Sub cmdPower_Click( ) [Step шаг]

Операторы блока S

Next [счетчик]

Операторы блока S именуется телом цикла. Строчка, начинающаяся с ключевика For, – заголовком цикла, строчка с главным словом Next – концом цикла.

Сначала выполнения цикла значение Счетчик устанавливается в Изначальное значение. При каждом “проходе” цикла переменная Счетчик возрастает на величину шага. Если она добивается Private Sub cmdPower_Click( ) Конечное значение, то цикл заканчивается и производятся последующие за ним операторы.

Создадим маленькой пример, чтоб на практике осознать, как “работает” оператор For…Next.

На форму поместим одну командную кнопку cmdFor, а значение характеристики Caption для нее зададим “For…Next”.

Составим код для командной кнопки cmdFor, включив в него цикл Private Sub cmdPower_Click( ). В теле цикла поместим строчку Print “Visual Basic”. Изначальное значение счетчика зададим равное единице, конечное значение - 10, шаг 1.

Private Sub cmdFor_Click( )

Dim I As Integer

CLS

For I = 1 To 10 Step 1

Print “Visual Basic”

Next I

End Sub

Сделайте этот код на компьютере и запустите проект на выполнение. Вы увидите, что на форме 10 раз распечаталась фраза “Visual Private Sub cmdPower_Click( ) Basic”.

Изменим сейчас строчку кода, подобающую заголовку цикла, последующим образом: не будем указывать шаг.

For I = 1 To 10

Если сейчас запустить проект и щелкнуть на командной кнопке, итог не поменяется. Если в цикле не указывать шаг, то предполагается, что он равен единице.

Произведем последующие конфигурации в коде. Шаг создадим 2. Заголовок Private Sub cmdPower_Click( ) цикла станет таковой:

For I = 1 To 10 Step 2

В итоге работы модифицированной программки фраза Visual Basic распечатается на форме 5 раз.

Составьте три варианта цикла, чтоб фраза Visual Basic распечатывалась на форме 10 раз. Меняйте всякий раз изначальное и конечное значения счетчика цикла и шаг. Проверьте их на компьютере.

Мало Private Sub cmdPower_Click( ) модифицируем наш проект последующим образом: не будем в коде задавать изначальное и конечное значения счетчика цикла и его шаг, а будем запрашивать все эти значения при помощи функции InputBox.

Private Sub cmdFor_Click( )

Dim I As integer

Dim BeginZn As Single

Dim FinishZn As Single

Dim StepZn As Single

Cls

i = 0

BeginZn = 0

FinishZn = 0

StepZn = 0

BeginZn=InputBox(“Число Private Sub cmdPower_Click( )”,“Изначальное значение счетчика”)

FinishZn=InputBox(“Число”, “Конечное значение счетчика”)

StepZn = InputBox (“Число”, “Значение шага”)

For I = BeginZn To FinishZn Step StepZn

Print “Visual Basic”

Next I

End Sub

2. Вычисление степени числа два

Попробуем сделать маленький проект, в каком для введенного юзером натурального показателя степени n рассчитывалось бы значение . Использовать при Private Sub cmdPower_Click( ) вычислении можно только действие умножение.

Начнем новый проект. На форму frmTwoPower поместим текстовое окно, в которое юзер будет вводить значение показателя степени иметку суказанием для юзера, что ему необходимо сделать. Не считая этого пусть на форме будут две командные кнопки: cmdExit для выхода из проекта и cmdPower для вычисления степени.

Форма Private Sub cmdPower_Click( ) после обрисованных действий может смотреться, к примеру, так:

Для вычислений организуем цикл For…Next. Будем множить на 2 накопленное произведение (n-1) раз:

For i = 1 To n - 1

TwoPower = 2 * TwoPower

Next i

TwoPower – это накопленное произведение, которое после окончания цикла и будет являться разыскиваемым значением, i – переменная цикла.

Разумеется, для вычислений нам пригодятся переменные. Объявим Private Sub cmdPower_Click( ) в разделе General формы последующие переменные:

Dim TwoPower As Long

Dim n As Integer

Dim i As Integer

Изначальное значение переменной TwoPower (до цикла) примем равным 2. Распечатывать итог расчетов можно, к примеру, при помощи способа Print на форме. Ах так может смотреться форма после того, как были произведены надлежащие расчеты Private Sub cmdPower_Click( ) и распечатан итог:

Распечатку результата расчета создадим в отдельной процедуре Printer( ), а в процедуре для cmdPower будем ее вызывать.

Допишите функцию для расчетов:

Private Sub cmdPower_Click( )

Call Printer

End Sub

Допишите функцию, печатающую на форме итог расчетов.

Private Sub Printer( )

End Sub

Опробуйте работу проекта на компьютере.


pritcha-o-dzenskom-monahe.html
pritcha-o-peshere-malo-pomalu-etot-mif-prevratilsya-v-simvol-metafiziki-gnoseologii-i-dialektiki-a-takzhe-etiki-i-mistiki-mif-kotorij-virazhaet-vsego-platona.html
pritcha-o-spasenii-rasskazi-iz-cerkovnoj-istorii-o-sile-veri-39.html