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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

51
стом - приглашением , кроме того оно содержит пустое поле, в котором
пользователь может ввести данные. Значение, возвращаемое InputBox, за-
висит от того , какую кнопку щелкнет пользователь . Если это – ОК, воз-
вращается введенная строка, если – Отмена (Cancel), то пустая . В нашем
примере буквы этой строки передаются в функцию Lcase, которая преоб-
разует их в строчные. В блоке, начинающемся сразу за ключевым словом
If, помещен цикл For-Each-Next (он подробно описан ниже в разделе
" Управляющая структура For-Each-Next”). В этом цикле перебираются все
листы активной рабочей книги , с каждым из которых выполняются два
действия – свойству Visible присваивается значение True и вызывается ме-
тод Unprotect. Первое действие позволяет пользователю видеть лист, вто -
рое – снимает с листа защиту паролем . У метода Unprotect есть один аргу -
мент – строка с паролем . Но в данном случае пароль для защиты листов мы
не использовали, поэтому Unprotect вызван без аргументов. В других бло -
ках программы свойство Visible и метод Unprotect вызываются выборочно ,
в зависимости от введенного пароля .
9.3. Управляющая структура For-Next
Она позволяет выполнять несколько команд заданное число раз . Рас-
смотрим пример 32; в нем число , присвоенное переменной Base, возводит-
ся в степень , содержащуюся в переменной Power.
Sub Proc32_ForNext ( )
Dim Base As Integer
Dim Power As Integer
Dim Result As Integer
Dim Count1 As Integer
Base = 4
Power = 5
Result = 1
For Count1 = 1 To Power Step 1
Result = Result*Base
Next
MsgBox Base & “raised to the” & Power & “the power = “& Result
End Sub
В этой программе с помощью цикла For-Next четыре возводится в
пятую степень . Надо отметить , что в VB есть оператор возведения в сте -
пень - ^, поэтому для подобного расчета достаточно написать
Num = 4 ^ 5
Рассмотрим элементы оператора For – Next, используемые в приме-
ре 32.
For Ключевое слово , отмечающее начало оператора
For-Next
Countl = 1 To Power Выражение, определяющее счетчик и его началь-
ное и конечное значения , задающие число повторе-
                                        51
сто м - приг лаш ением , кро ме то г о о но со держ итпусто е по ле, в ко то ро м
по льзо ватель мо ж етввести данны е. Значение, во звращ аемо е InputBox, за-
висито тто г  о , какую кно пкущ елкнетпо льзо ватель. Е сли это – О К , во з-
вращ ается введенная стро ка, если – О тмена (Cancel), то пустая. В наш ем
примере буквы это й стро ки передаю тся в функц ию Lcase, ко то рая прео б-
разуетих в стро чны е. В бло ке, начинаю щ емся сразуза клю чевы м сло во м
If, по мещ ен ц икл For-Each-Next (о н по дро бно о писан ниж е в разделе
"У правляю щ ая структура For-Each-Next”). В это м ц икле перебираю тся все
листы активно й рабо чей книг     и, с каж ды м из ко то ры х вы по лняю тся два
дей ствия – сво й ствуVisible присваивается значение True и вы зы вается ме-
то д Unprotect. П ерво е дей ствие по зво ляетпо льзо вателю видеть лист, вто -
ро е – снимаетс листазащ итупаро лем . У мето да Unprotect есть о дин арг       у-
мент–стро кас паро лем . Н о вданно м случае паро ль для защ иты листо вм ы
не испо льзо вали, по это муUnprotect вы зван без аргументо в. В друг    их бло -
ках про г рамм ы сво й ство Visible и мето д Unprotect вы зы ваю тся вы бо ро чно ,
взависимо стио твведенно го паро ля.

                   9.3. У правл яю щ ая стру кту ра For-Next

      О напо зво ляетвы по лнять неско лько ко манд заданно е число раз. Рас-
смо трим пример 32; внем число , присво енно е переменно й Base, во зво дит-
ся встепень, со держ ащ ую ся впеременно й Power.
Sub Proc32_ForNext ( )
       Dim Base As Integer
      Dim Power As Integer
      Dim Result As Integer
      Dim Count1 As Integer
      Base = 4
      Power = 5
      Result = 1
      For Count1 = 1 To Power Step 1
            Result = Result*Base
      Next
      MsgBox Base & “raised to the” & Power & “the power = “& Result
End Sub
      В это й про грамме с по мо щ ью ц икла For-Next четы ре во зво дится в
пятую степень. Н адо о тметить, что в VB есть о перато р во зведения в сте-
пень - ^, по это мудля по до бно г
                                 о расчетадо статочно написать
                                      Num = 4 ^ 5
      Рассмо трим элементы о перато ра For – Next, испо льзуемы е в приме-
ре32.
For                       К лю чево е сло во , о тмечаю щ ее начало о перато ра
                         For-Next
Countl = 1 To Power      В ы раж ение, о пределяю щ ее счетчик и ег  о началь-
                         но е и ко нечно е значения, задаю щ ие число по вто ре-

Страницы