Проект № 9 «Дата»

  • Карточки-задания
  • doc
  • 10.03.2017
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

1. Разместить на форме кнопку cmd1 и ввести событийную процедуру cmd1_Click(): Dim dtmA, dtmB As Date Sub cmd1_Click() dtmA = date dtmB = #1/1/2001# Print “Сегодня “; dtmA Print “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “ End Sub 2. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и количество дней, прошедших с начала третьего тысячилетия.
Иконка файла материала Проект9_10.doc
Проект № 9 «Дата» 1. Разместить на форме кнопку cmd1  и ввести событийную процедуру cmd1_Click(): Dim dtmA, dtmB As Date Sub cmd1_Click() dtmA = date dtmB = #1/1/2001# Print “Сегодня “; dtmA Print “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “ End Sub 2. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и  количество дней, прошедших с начала третьего тысячилетия. Поместить на форму текстовое поле txtTime. Ввести событийную процедуру tmr1_Timer(): Проект № 10 «Секундомер» 1. Разместить на форме объект Timer и присвоить ему имя tmr1, а свойству Interval – значение 1000.  Sub tmr1_Timer() txtTime.Text = Time$ End Sub 2. Запустить проект. В текстовое окно с интервалом в одну секунду будет выводится сист емное  время компьютера. Проект № 9 «Дата» 3. Разместить на форме кнопку cmd1  и ввести событийную процедуру cmd1_Click(): Dim dtmA, dtmB As Date Sub cmd1_Click() dtmA = date dtmB = #1/1/2001# Print “Сегодня “; dtmA Print “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “ End Sub 4. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и  количество дней, прошедших с начала третьего тысячилетия. Поместить на форму текстовое поле txtTime. Ввести событийную процедуру tmr1_Timer(): Проект № 10 «Секундомер» 2. Разместить на форме объект Timer и присвоить ему имя tmr1, а свойству Interval – значение 1000.  Sub tmr1_Timer() txtTime.Text = Time$ End Sub 2. Запустить проект. В текстовое окно с интервалом в одну секунду будет выводится сист емное  время компьютера.