Основные возможности Visual Basic. Макова Н.Е. - 71 стр.

                а) вместо s=0 написать s=10;
                б) вместо s=s+a написать s=s+a+1;
                в) строки Next и Debud.Print поменять местами;
                г) строки s=0 и For поменять местами;
                д) строки For и InputBox поменять местами;
                е) строки s=s+a и Next поменять местами;

                   Вложение циклов в разветвления и наоборот

              Реальная процедура на VB может представлять собой слож-
         ную мозаику из циклических и разветвляющихся частей, вложен-
         ных друг в друга. Для тренировки определите, что напечатает
         следующий фрагмент:
              Private Sub Command1_Click()
              For i = 1 To 5
              a=9
              If i*i = a Then
              For k = 5 To 8
              Debug.Print k;
              Next k
              Else
              Debug.Print 1997
              End If
              Next i
           End Sub
              Здесь внутрь For i = 1 To 5 вложен If i*i = a, а внутрь него
         вложен For k = 5 To 8. Ответ:
                    1997
                    1997
                    5 6 7 8 1997
                    1997

                                      Вложенные циклы

              Вложенные циклы, или цикл внутри цикла, - весьма распро-
         страненная конструкция при программировании.
              Поставим себе задачу – напечатать таблицу умножения в
         таком виде:

                                                                             71

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com