Visual Basic. Теория. Нагина Е.К - 52 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

52
ний цикла. В данном случае в качестве счетчика
используется переменная Countl. Ключевое слово
То разделяет начальное (1) и конечное (Power)
значения счетчика. При первом обращении к циклу
переменной Countl присваивается значение 1, и на-
чинается выполнение цикла
Step 1 Ключевое слово , задающее шаг приращения счет-
чика при завершении очередного цикла. Чаще все-
го в циклах For-Next он равен 1, но может быть
любым целым числом, в том числе и отрицатель-
ным (тогда значение счетчика в каждом цикле
уменьшается ). В начале очередного цикла значение
счетчика сравнивается с его конечным значением .
Если разница положительная (значение счетчика
превосходит его конечное значение), управление
передается оператору, заданному после ключевого
слова Next. То же самое происходит и при отрица-
тельной разнице. Указание ключевого слова Step и
величины шага не является обязательным. Если
они не определены , VBA выполняет цикл с шагом
1
Result = Result*Base Тело цикла. Может состоять из нескольких опера-
торов
Next Ключевое слово , отмечающее конец структуры
For-Next. При достижении ключевого слова Next
значение счетчика увеличивается на величину ша-
га , после чего управление передается на начало
цикла. Затем происходит сравнение счетчика с ко -
нечным значением , и цикл при необходимости по -
вторяется снова
В программе Proc33 – еще один пример применения цикла Fox-Next.
Функция InputBox программы выдает на экран запрос на ввод числа, а за-
тем , используя цикл For-Next и два условных оператора If-Then-Else, вы -
числяет его факториал (факториал числа n равен произведению всех целых
чисел от 1 до n; факториал 0, по определению , равен 1; n должно быть
больше либо равно 0).
Sub Proc33_ForNextIfThenElse ( )
Dim NumberString As String
Dim Num As Integer
Dim Factorial As Double
Dim Count1 As Integer
NumberString = InputBox (“Enter Number:”.”Calculate Factorial”)
If IsNumeric (NumberString) Then
Num = Val (NumberString)
If Num >= 0 Then 
                                       52
                         ний ц икла. В данно м случае в качестве счетчика
                         испо льзуется переменная Countl. К лю чево е сло во
                         Т о разделяет начально е (1) и ко нечно е (Power)
                         значения счетчика. П ри перво м о бращ ении к ц иклу
                         переменно й Countl присваивается значение 1, и на-
                         чинается вы по лнение ц икла
Step 1                   К лю чево е сло во , задаю щ ее ш агприращ ения счет-
                         чика при заверш ении о чередно г    о ц икла. Ч ащ е все-
                         г о в ц иклах For-Next о н равен 1, но мо ж етбы ть
                         лю бы м ц елы м число м, в то м числе и о триц атель-
                         ны м (то г да значение счетчика в каж до м ц икле
                         уменьш ается). В начале о чередно го ц иклазначение
                         счетчика сравнивается с ег     о ко нечны м значением .
                         Е сли разниц а по ло ж ительная (значение счетчика
                         прево схо дитег  о ко нечно е значение), управление
                         передается о перато ру, заданно мупо сле клю чево го
                         сло ва Next. Т о ж е само е про исхо дити при о триц а-
                         тельно й разниц е. У казание клю чево го сло ва Step и
                         величины ш аг    а не является о бязательны м. Е сли
                         о ни не о пределены , VBA вы по лняетц икл с ш агом
                         1
Result = Result*Base     Т ело ц икла. М о ж етсо сто ять из неско льких о пера-
                         то ро в
Next                     К лю чево е сло во , о тмечаю щ ее ко нец структуры
                         For-Next. П ри до стиж ении клю чево г    о сло ва Next
                         значение счетчика увеличивается на величинуш а-
                         г а, по сле чег о управление передается на начало
                         ц икла. Затем про исхо дитсравнение счетчика с ко -
                         нечны м значением, и ц икл при нео бхо димо сти по -
                         вто ряется сно ва
       В про г рамме Proc33 – ещ е о дин пример применения ц иклаFox-Next.
Ф ункц ия InputBox про г  рамм ы вы даетна экран запро с на вво д числа, а за-
тем, испо льзуя ц икл For-Next и два усло вны х о перато ра If-Then-Else, вы -
числяетего факто риал (факто риал числаn равен про изведению всех ц елы х
чисел о т1 до n; факто риал 0, по о пределению , равен 1; n до лж но бы ть
бо льш е либо равно 0).
Sub Proc33_ForNextIfThenElse ( )
     Dim NumberString As String
     Dim Num As Integer
     Dim Factorial As Double
     Dim Count1 As Integer
     NumberString = InputBox (“Enter Number:”.”Calculate Factorial”)
     If IsNumeric (NumberString) Then
           Num = Val (NumberString)
           If Num >= 0 Then

Страницы