2015-05-10
323
Наполнение процедуры должно выглядеть следующим образом:
| Private Sub UserForm_Activate() | Начало процедуры выполняемой при событии загрузки формы в память |
| Dim Chas As String | Создаётся переменная с именем Chas, как строковая, т.е. как набор символов. |
| Chas = " Час минає! - Звикли говорити ви внаслідок невірного поняття. Час вічний: минаєте ви!: " | Переменной Chas присваивается значение " Час минає! - Звикли говорити ви внаслідок невірного поняття. Час вічний: минаєте ви! " |
| Label1.Caption = Chas & Format(Now, "dddddd, hh ч. mm мин.") | Меняет свойство Caption текстового поля Label1 на значение переменной Chas и возвращает текущую компьютерную дату и время в указанном в скобках формате. |
| End Sub | Конец процедуры. |
Тестирование программы.
