Методические указания к выполнению лабораторной работы по программированию в VB

txtMonth.Text = Str(intMonth) txtDay.Text = Str(intDay) End Sub

7.Разместите в нижней части формы три текстовых -элемента, свойствам Name которых задайте значения txtBirth. txtNumDay, txtDay10000. Задайте свойствам Text элементов значения " " (пусто). Сверху над полями поместите надписи День рождения, Число дней, Дата 10000 дня.

8.Добавьте кнопку на форму frmBirthDay. В окне свойств задайте свойству Name кнопки Значение cmdBirth. Задайте свойству Caption КНОПКИ значение &Число дней от дня рождения.

Private Sub cmdBirth_Click()

Dim dlniNow As Date, dtmBirth As Date

Dim IngNumDay As Long

Dim intYear As Integer, intMonth As Integer, intDay As Integer

‘определяем сегодняшнюю дату dtmNow = Date

dtmBirth =CDate(txtBirth.Text)

‘определяем разность между датами в днях

IngNumDay = dtmNow'- dtmBirth txtNumDay = Str(lngNumDay)

'pаскладываем дату рождения на год, месяц и день intYear = Year(dtmBirth)

intMonth = Month (dtmBirth) intDay = Day (dtm Birth)

'увеличиваем число дней intDay = intDay + 10000

‘собираем дату из года, месяца и дня

txtDay10000.Text = DateSerial(intYear, intMonth, intDay) End Sub

9.Сохраните проект программы командой File, Save Project As (Файл, Сохранить Проект как) с именем z2-4, а также сохраните модуль формы командой File, Save frmBirthDay.frm As (Файл, Сохранить форму как) с именем z2-4.

10.Запустите программу командой Run, Start (Пуск, Старт).

Контрольные вопросы

1.Как описывается переменная типа дата/время?

2.Какими функциями можно выделить из даты год, день н месяц?

3.Какими функциями строковая переменная преобразуется в переменную типа

Задание 2.5 (дополнительное)

Составьте программу, которая вычисляет количество дней до нового года. Программа должна содержать два текстовых поля, в одном из которых показывается текущая дата, а в другом отображается число дней, отделяющих сегодняшнюю дату

Методические указания к выполнению лабораторной работы по программированию в VB

от даты очередного нового года. Расчет числа дней осуществляется при нажатии на кнопку «До нового года осталось».

Задание 2.6

Напишите программу, которая бы имела две кнопки Первое слово и Второе слово. При нажатии на эти две кнопки через окно ввода вводятся сначала Первое слово, а затем Второе слово. А при нажатии на третью кнопку «Объединить» в окне сообщения бы появлялась надпись Первое слово + Второе слово.

Технология выполнения задания

1.Создайте новый проект командой File, New Project (Файл, Новый проект)

2.Добавьте кнопку на форму Form1. В окне свойств задайте свойство Name кнопки значение cmdWordl. Задайте свойству Caption кнопки значение &Первое слово.

3.Добавьте кнопку на форму Form1. В окне свойств задайте свойство Name кнопки значение cmdWord2l. Задайте свойству Caption кнопки значение &Второе слово.

4.Добавьте кнопку на форму Forml. В окне свойств задайте свойству Name кнопки значение cmdUnit. Задайте свойству Caption кнопки значение &Обьединить.

5.Дважды щелкните на форме Forml, чтобы открыть окно программы. Вставьте следующие строки в секцию(General)(Declaration)

Option Explicit

Private strWord1 As String Private strWord2 As String

Если в начале формы содержится оператор Option Explicit и в LCKCTC программы есть необъявленные переменные, то при попытке запуска программы будет выдано сообщение об ошибке.

6.Дважды щелкните на кнопке cmdWordl, чтобы открыть окно программы. Откорректируйте процедуру события Click кнопки cmdWord1:

Private Sub cmdWord1_Click()

strWordl = InputВох("Введите первое слово:") End Sub

7.Дважды щелкните на кнопке cmdWord2, чтобы открыть окно программы. Откорректируйте процедуру события Click кнопки cmdWord2:

Private Sub cmdWord2_Click()

strWord2 = InputВох("Введите второе слово:") End Sub

8. Дважды щелкните на кнопке cmdUnit, чтобы открыть окно программы. Откорректируйте процедуру события Click кнопки cmdUnit:

Private Sub cmdUnit_Click() MsgBox strWord1 &" + "& strWord2 End Sub

Методические указания к выполнению лабораторной работы по программированию в VB

9. Сохраните проект программы командой File, Save Project As (Файл, Сохранить Проект как) с именем z2-5, а также сохраните модуль формы командой File, Save frm... .frm As (Файл, Сохранить форму как) с именем z2-5.

10. Запустите программу командой Run, Start (Пуск, Старт). Нажмите кнопку Первое слово, чтобы вызвать диалоговое окно InputBox для ввода первого слова. Затем нажмите кнопку Второе слово. А для получения сообщения нажмите кнопку Объединить.

Контрольные вопросы

1.Что такое область видимости переменных?

2.Приведите преимущества и недостатки глобальных и локальных переменных.

3.Что изменится, если описание переменных переместить из секции (General)(Declarations) формы в процедуру cmdUnit_Click()?

4.Что изменится, если в описании переменных ключевое слово Private заменить ключевым словом Dim?

5.Что изменится, если в описании переменных ключевое слово Private заменить ключевым словом Global?

6.Что означает оператор Option Explicit в секции (General)(Decla ration)?

3.Условные операторы.

3.1Оператор IF THEN

Задание 3.1

Создайте программу, которая бы определяла по числу набранных баллов, поступил абитуриент в университет или нет. Внешний вид программы показан на рис. 3.1.

Технология выполнения задания

1.Создайте новый проект командой File, New Project (Файл, Новый проект).

2.Задайте свойству Name формы имя frmPriem, а свойству Caption значение Приемная комиссия

3.Создайте на форме frmPriem два текстовых элемента и четыре элемента -надписи, расположив их, как показано на рис. 3.1. Два текстовых элемента будут использованы для ввода фамилии, имени, отчества абитуриента и количество набранных им баллов, одно поле надпись для вывода сообщения-резолюции. Три поля надписи используются для размещения поясняющих надписей.

4.Задайте свойству Name созданных текстовых элементов значения txtName и txtNum. Свойства Text задайте пустыми. Задайте размер шрифта 14, полужирный (свойство Font). Выберите синий цвет текста (свойство ForeColor, вкладка Набор).

Методические указания к выполнению лабораторной работы по программированию в VB

Рис. 3.1.

5.3адайте для правого нижнего элемента-надписи, в которое должна выводится резолюция, следующее значение свойства Name: lblResol. шрифта: 14, полужирный (свойство Font). Выберите черный цвет надписей (свойство ForeColor, вкладка Набор).

6.Создайте подписи над двумя текстовыми полями и над надписью (IblResol). Задайте значения свойство Caption для соответствующих элементовнадписей: "Фамилия, Имя, Отчество", "Число баллов", "Резолюция". согласно рис. 3.1.

7.Добавьте кнопку на форму frmPriem. В окне свойств задайте свойству Caption кнопки значение

&Прием, а у свойства Name измените значение на Priem.

8. Дважды щелкните на кнопке Прием, чтобы открыть окно программы. Откорректируйте процедуру события Click кнопки:

Private Sub crndPriem_Click() Dim intNum As Integer intNurn = Val(txtNum.Text)

If intNum > 100 Then IblResol.Caption = txtName.Text & "

принят" End Sub

Здесь используется самый простой вариант оператора ветвления, (однострочный оператор If...Then), который проверяет только один вариант. Если число балов больше 100, то свойству Caption элемента lblResol задается текст, включающий имя абитуриента и слово "принят".

9. Запустите программу командой Run, Start (Пуск, Старт). Вводим фамилию, имя, число баллов и нажимаем кнопку Прием. Если число баллов больше 100, то в Окне, озаглавленном Резолюция, появляется сообщение.

10. Усложним программу, заставив её выдавать сообщения при любом результате. Для этого откорректируем процедуру cmdPriem_Click()

Private Sub cmdPriem_Click() Dim intNum As Integer intNurn = VaKlxtN urn.Text) If intNum > 100 Then

Private Sub cmdPriem_Click() Dim intNum As Integer intNurn = VaKlxtN urn.Text) If intNum > 100 Then

" принят"

IblResol.Caption = txtName.Text & " не принят" End If End Sub

11. Запрограммируем событие Unload. Событие Unload для формы возникает в слу-