2. Работа с календарными датами

Задание

В модуле кода формы написать следующее.

Option Explicit

Dim d1 as Date

Dim d2 as Date

Dim n

Private Sub cmdGo_Click()

Print "Сегодня", "Рождение", "Прожито"

d1 = Date() 'Запись в d2 текущей даты

d2 = "25/12/1946"

n = d1 - d2

Print d1, d2, n

End Sub

Вопросы к заданию

1. Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. В отчёте перечислить возможные математические действия с датами, имеющие смысл для человека.

3. Объяснить смысл программы и добавить комментарии в тексте программы.

4. Задать в программе тип переменной n и обосновать его выбор.

5. Добавить на форме ещё два текстовых поля: для ввода пользователем даты начала и окончания произвольного периода. Изменить текст программы так, чтобы рассчитывался период между датами, введёнными в текстовые поля. В отчёте описать смысл сделанных изменений и проиллюстрировать их.

3. Работа со строками

Задание

В модуле кода формы написать следующее.

Private Sub cmdGo_Click()

Print txtIn1.Text + 1

Print txtIn2.Text + 1.23

Print txtIn3.Text + "1.23"

Print txtIn4.Text + 1,23

Print txtIn5.Text + "Тысяча"

End Sub

Вопросы к заданию

1. Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. Добиться работоспособности программы и объяснить выводимые значения.

3. В каждом операторе Print добавить функцию Val() для обработки содержимого поля ввода:

Val(txtIn.Text)

Объяснить выводимые результаты, используя справку по функции Val().

4. В каждом операторе Print вместо функции Val() использовать функцию Str() для обработки второго слагаемого и заменить знак «+» на знак «&» для сцепления цепочек символов.

Было: Print Val(txtIn.Text)

Сделать: Print Val(txtIn.Text) & Str(1.23)

Объяснить результаты, используя справку по функции Str().

5. Добиться работоспособности программы. Объяснить сделанные изменения.

4. Работа с числовыми данными

Задание

В модуле кода формы написать следующее.

Option explicit

Dim a as Integer

Dim b as Integer

Dim c as Integer

Dim d as Integer

Dim e as Integer

Dim f as Integer

Const G as Variant = 40 000 ‘Объявление и

Const H as Variant = 42 000 ‘инициализация констант

Private Sub cmdGo_Click() 'Реакция на щелчок кнопки

k = H + G

f = H - G

m = "OK!"

Print k, f, m

End Sub

Вопросы к заданию

1. Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. В отчёте объяснить результаты работы программы.

3. Поменять местами переменные k и f в строках с вычислениями. Объяснить результат.

4. Добиться работоспособности программы и описать смысл сделанных изменений.

5. Изменить код программы, чтобы получился следующий результат: OK! 82 000 4 000 000 В отчёте показать сделанные изменения в коде программы.

6. Убрать из текста программы ненужные операторы. В отчёте объяснить отличия в работе начального и конечного вариантов программы.

5. Работа с числовыми данными

Задание

В модуле кода формы написать следующее.

Option Explicit

Private Sub cmdGo_Click() 'Реакция на щелчок кнопки

Const G as Variant = 40000

Const H as Variant = 42000

k = H + G

m = "OK!"

Print k, m

End Sub

Вопросы к заданию

1. Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. Добиться работоспособности программы. В отчёте описать смысл сделанных изменений и привести соответствующий фрагмент текста программы.

3. Подобрать более подходящий тип данных для констант. Обосновать.

4. Добавить на форму поле метки. Изменить текст программы так, чтобы вывод результатов осуществлялся в окно добавленной метки. В отчёте привести фрагмент кода для вывода данных в окно метки.

5. Изменить внешний вид окна метки с помощью настройки его свойств в окне «Свойства» таким образом, чтобы оно внешне походило на текстовое поле. Описать в отчёте выполненные действия.

6. Добавить на форму ещё три поля метки для вывода результатов действий вычитания, умножения и деления констант друг на друга. Результат каждого действия должен присваиваться отдельной переменной, а значение переменной — выводится в соответствующее поле на форме. Обосновать тип каждой переменной.