Технология работы. 1. Создайте файл «Переменные»

1. Создайте файл «Переменные». Запустите редактор VBA. Создайте пользовательскую форму с именем «Проверка типов» по образцу.

2. Напишите программу для кнопки «Запуск рограммы».
Private Sub CommandButton1_Click()

Dim Начало_работы_процедуры

Dim Окончание_работы_процедуры

Dim I

Dim k

Начало_работы_процедуры = Time()

For I = 1 To 10000000

k=k+1

Next I

Окончание_работы_процедуры = Time()

Label2.Caption= Начало_работы_процедуры

Label4. Caption = Окончание_работы_процедуры

End Sub

В этой программе используется новая функция Time(), которая определяет текущее время. А также оператор цикла, в котором значение переменной изменяется (увеличивается) от единицы до десяти миллионов.

3. На рабочем листе Excel создайте кнопку для ввода формы на экран.

4. Нажмите на кнопку «Запуск программы». Если программа выполнилась очень быстро, увеличьте конечное значение переменной I.

5. Заполните ячейки таблицы, представленной в конце задания.

6. Отредактируйте текст программы, указав типы переменных.

Private Sub CommandButton1_Click()

Dim Начало_работы_процедуры As Date

Dim Окончание_работы_процедуры As Date

Dim I As Long

Dim k As Long