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

         2. Напишите программу для кнопки "Запуск программы":
              Sub Command1_Click ()
              Dim Начало_работы_процедуры
              Dim Окончание_работы_процедуры
              Dim I, k
                 Начало_работы_процедуры = Time
                 For I = 1 To 10000000
                   k=k+1
                 Next I
                 Окончание_работы_процедуры = Time
                 Label2.Caption = Начало_работы_процедуры
                 Label4.Caption = Окончание_работы_процедуры
              End Sub
              В этой программе мы используем новую функцию Time, ко-
         торая определяет текущее время; а также оператор цикла, в кото-
         ром значение переменной изменяется (увеличивается) от 1 до
         10000000.
         3. Запустите программу. Подождите несколько секунд, пока не
         появится результат. Обратите внимание на разницу во времени от
         начала до конца выполнения процедуры.
         4. Отредактируйте текст программы, указав типы переменных.
         Sub Command1_Click ()
         Dim Начало_работы_процедуры as Date
         Dim Окончание_работы_процедуры as Date
         Dim I As Long, k As Long
           Начало_работы_процедуры = Time
           For I = 1 To 10000000
              k=k+1
           Next I

                                                                             33

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