Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







Этап 1. Знакомства с событиями Click и KeyPress.





1. Выполните пункты 1…5 Задания 1.1

2. Выделите форму, щелкнув по ней левой кнопкой мыши на любом свободном месте формы. Задайте значение двух свойств формы Name и Caption, имена которых указаны в панели Properties (Параметры):

• свойству Name присвойте значение frmZadanie1_3;

• свойству Caption присвойте значение Изучение событий.

3. Выполним команду View, Code (Вид, Код), откроем окно программ. В верхнем левом окне панели выберем объект UserForm (окно вверху Слева), а в верхнем правом окне выберем события Click и KeyPress. Введем тексты программ для процедур обработки событий Click и KeyPress для объекта UserForm.

4. Подпрограмма, реализующая событие Click для объекта Form, представлена ниже. Подпрограмма меняет свойства Left и Top, Height и Width формы и выводит в заголовок формы новую надпись «Щелчок мышью».

 

Private Sub UserForm_Click()

frmZadanie1_3.Left = 200

frmZadanie1_3.Top = 200

frmZadanie1_3.Height = 100

frmZadanie1_3.Width = 150

frmZadanie1_3.Caption = " Щелчок мышью "

End Sub

5. Подпрограмма, реализующая событие KeyPress для объекта UserForm. Подпрограмма UserForm_KeyPress также как и предыдущая меняет свойства формы. Подпрограмма Form_KeyPress имеет один аргумент KeyAscii, который описан как целое число (Integer) и представляет код нажатой клавиши.

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

frmZadanie1_3.Left = 100

frmZadanie1_3.Top = 100

frmZadanie1_3.Height = 200

frmZadanie1_3.Width = 250

frmZadanie1_3.Caption = " Нажатие любой клавиши на клавиатуре"

End Sub

6. Запустите программу кнопкой . Вы увидите пустую форму. Щелкнув на ней мыщью, Вы генерируете событие Click (подпрограмма UserForm_Click), которое изменяет положение, размеры формы и заголовок формы. Нажав любую клавишу, Вы генерируете событие KeyPress (подпрограмма UserForm_KeyPress), которое изменяет размеры формы. Завершите программу, нажав кнопку на форме.

Этап 2. Освоение режима отладки



1. Нажмите кнопку F8. Далее в открывшемся окне программы щелкните левой

копкой мыши по форме (т.е. сгенерируете событие Click). После того как высветится строка программного кода, можно нажимать кнопку F8 или выполнить команду Debug, Step Into (Отладка, Пошаговый ввод) для перехода к следующему оператору и наблюдать, как изменяются значения переменных.

Повторите предыдущий пункт, но при этом не щелкайте кнопкой мыши, а нажмите любую клавишу (т.е. сгенерируйте событие KevPress).

Контрольное задание.

1. Измените данную программу так, чтобы при событии Click изменялся цвет текста, выводимого на форме, а для события KeyPress изменялся цвет фона формы . Для установления цвета используйте константы: vbGreen — зеленый, vbRed — красный.

2. Измените учебную программу, добавив в нее кнопку, при нажатии на которую все надписи на форме будут стираться (используйте метод Cls). Обратите внимание, на свойство формы KeyPreview.

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

1. Когда возникает событие Click?

2. Когда возникает событие KeyPress?

3. При каких действиях обрабатываются события в программе, описанной выше?

4. Если для объекта АААА происходит событие ВВВВ, то какое будет иметь имя подпрофамма, которой будет передано управление?

5. Для чего в процедуре Form_KeyPress необходим аргумент KeyAscii?

6. Что происходит при использовании метода формы Print?

Задание для закрепления полученных знаний.

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

Лабораторная работа 2. Стандартные типы данных

Строковые переменные

Основная цель

1. Изучить тип данных «строковые переменные».

2. Изучить две стандартные функции: окно сообщений MsgBox и InputBox.

Краткая справка

Для хранения данных в VB используются переменные и константы. Переменной называется имя, определяющее область памяти для хранения временной величины. Такая величина получает свое значение в период выполнения программы и сохраняет его, пока ей не будет присвоено новое значение. В Visual Basic существует несколько типов переменных, называемых тинами данных. Каждый тип данных обладает собственными характеристиками (см. Приложение 2).

Чтобы работать с переменной, нужно выполнить ряд предварительных действий:

• выбрать имя переменной;

• описать переменную с помощью ключевых слов определяющих тип данных (Integer, String, Single и т.д.);

• задать значение переменной.

Давайте создадим простую строковую переменную. Для этого зададим ей имя, например, strName. Рекомендуется имя переменной начинать с короткого префикса, который является стандартным для данного типа. Префикс состоит из трех строчных литер. За префиксом следует собственно имя переменной, отражающее его назначение, при этом первый символ имени должен представлять собой заглавную литеру. Префикс str обычно говорит о том, что переменная имеет строковый тип. Он может пригодиться во время отладки, если вы не уверены, к какому типу относится переменная. Следующим шагом должно стать объявление строковой переменной. Для объявления переменных используется ключевое слово Dim:

Dim strName As String

При объявлении для переменной выделяется область памяти. Visual Basic резервирует достаточно памяти, чтобы в ней поместился объект соответствующего типа. Название переменной можно присвоить значение: strName = "Привет"

Константой называется имя, определяющее область памяти для хранения постоянной величины. Константы получают своё значение на этапе разработки ирофаммы, и в период выполнения их значения изменить нельзя. Константы применяют в случаях, когда требуется много раз использовать в программе одно и то же значение. Изменить значение константы можно только путем изменения оператора объявления константы. При вызове многих функций используются предопределенные константы VB.

Строковые переменные.

Строковые переменные (тип String) занимают в памяти цепочку последовательных байтов и могут содержать буквы, цифры, а также другие знаки. Некоторые свойства, с которыми нам уже приходилось работать, на самом деле представляли собой строковые переменные. Так, свойства Name и Caption имеют алфавитно-цифровые значения. Если строке присваивается непосредственное значение, его следует заключить в кавычки. Присвоив переменной значение, можно воспользоваться им для дальнейших вычислений, например, передать eго в качестве параметра процедуры или присвоить элементу на форме:

frmPrivet.Caption = sti Name

Для соединения двух строк в одну используется знак конкатенации & Например:

strReclam= strMyName & "лучше всех "

Диалоговые функции

В проектах Visual Basic часто встречаются две разновидности диалоговых окон: окна сообщений и окна ввода. Окно сообщения (MsgBox) выводит простейшие сообщения для пользователя, а окно ввода (InputBox), напротив. служит для ввода информации.

Окно сообщения

Окно сообщений обычно создается следующей подпрограммой, которая выглядит так:

Sub ОкноСообщений()

Dim strMsg As String

strMsg = "Позвольте сообщить Вам о том, что ..."

MsgBox strMsg, , "Важное сообщение"

End Sub

В данном случае сообщение — это текст, отображаемый в следующем диалоговом окне:

Окно ввода

Окно ввода текста создается следующей процедурой:

Sub ОкноВводаТекста()

Dim strMyName As String

strMyName = Application.InputBox(prompt:="Введите Ваще имя", Type:=2)

End Sub

Задание 2.1

1. Создайте программу, которая при нажатии элемента управления – кнопка запрашивает ввод вашего имени, и после его ввода приветствует вас по имени.

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

1. Выполните пункты 1…5 Задания 1.1

2. Задайте свойству Name значение frmZadanie2_1, а свойству Caption значение «Введите ваше имя»

3. Разместите в нижней части формы элемент надпись (Label). Дайте ему имя lblName (свойство Name), свойство Caption сделайте пустым. Для того чтобы текст надписи размещался по центру, задайте свойству Alignment значение Center.

4. Добавьте кнопку на форму frmZadanie2_1. В окне свойств задайте свойству Name кнопки значение cmdTryMe. Задайте свойству Caption кнопки значение Нажмите эту кнопку.

5. Дважды щелкните на кнопке cmdTryMe, чтобы открыть окно программы.

6. Откорректируйте процедуру события Click кнопки cmdTryMe:

Private Sub cmdTryMe_Click()

Dim sti MyNanie As String

Dim strMsg As String

strMyName = InputВох("Введите ваше имя")

strMsg="Привет, " & strMyName & "!"

MsgBox strMsg ,, "Регистрация"

lblName.Caption= slrMsg

End Sub

8. Запустите программу. Нажмите кнопку с названием Нажмите эту кнопку, чтобы вызвать диалоговое окно InputBox. Введите в появившемся текстовом поле свое имя и нажмите кнопку ОК.

Этот маленький пример в общих чертах показывает, как работают диалоговые Окна MsgBox и InputBox. Если все сделано правильно, в окне ввода вам будет предложено ввеcти имя, после чего Visual Basic выдает окно сообщения со строкой типа «Привет, Андрей!» (разумеется. в вашем случае будет выведено имя, заданное в окне ввода).

Контрольное задание.

Измените учебную программу 2.1 так, чтобы она прощалась с Вами.

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

 

1. MsgBox является функцией, методом или подпрограммой ?

2. InputBox является функцией, методом или подпрограммой ?

3. Для чего используется в вышеприведенных программах символ &?

4. Что такое строковая переменная? Как она описывается?

5. Почему переменная strMyName вышеприведенной программе описана как строковая?

Задание для закрепления знаний закрепления знаний

 

Напишите программу с кнопкой СТАРТ, при нажатии на которую программа сначала запрашивала бы вашу фамилию (первое окно ввода), далее название факультета (второе окно ввода), и наконец, номер группы (третье окно ввода). А затем бы выводила через окно сообщений текст Студент <Фамилия> факультета <Название факультста> группы <Номер групны> зарегистрирован. В этом сообщении переменная часть выделена угловыми скобками.

При разработке программы для хранения введенных пользователем значений

вам нужно использовать три строковые переменные.

Задание 2.2. Целые переменные

Основная цель задания

1. Изучить два основных типа целых переменных.

2. Познакомиться со стандартными функциями преобразования чисел в строки и строк в числа (Str() и Val()).

Краткая справка

Целый тип также используется для описания целых чисел (т.е. чисел без дробной части). Целый тип удобен для простых вычислений, при которыхзначения заведомо остаются целочисленными величинами. Кроме того, целые переменных являются int для типа Integer и lng для типа Long. Ниже приведены основные операции для работы с числами.

Операция Название
+ Сложение.
- Вычитание
* Умножение.
/ Деление.
\ Целочисленное деление. Результат — целая часть отношения целых чисел.
MOD Деление по модулю. Результат дробная часть отношения целых чисел.
^ Возведение в степень

Задание 2.3

Напишите программу, которая производит перемножение двух чисел, которые изменяются в диапазоне от 0 до 100.Примерный вид программы показан на рис. 2.2.

Рис.2.2

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

1. Выполните пункты 1…5 Задания 1.1 Задайте свойству Name формы значение frmZadanie2_2, а свойству Caption значение Калькулятор.

2. Создайте на форме frmZadanie2_2 три текстовых элемента и два элемента -надписи, расположив их по горизонтали в следующем порядке: текстовый элемент, элемент надпись, текстовый элемент, элемент надпись, текстовый элемент (рис. 2.2).

3. Задайте для созданных текстовых элементов свойства Name: txtTextl, txtText2, txtText3. Свойства Text задайте пустыми. Задайте размер шрифта 18 (свойство Font).

4. Задайте для элементов надписей значение свойства Caption: "X" и "=", соответственно. Отрегулируйте размеры элементов так, чтобы они представляли строку калькулятора.

5. Дважды щелкните на элементе-кнопке и поместите кнопку на форме. Задаем для свойства Name значение cmdCalc , а для свойства Caption — значение Пуск.

6. Дважды щелкните на кнопке и откройте окно с подпрограммой cmdCalc_Clickf(). Откорректируйте подпрограмму следующим образом

Private Sub cmdCalc_Click()

Dim intNum1 As Integer

Dim intNum2 As Integer

Dim intNum3 As Integer

intNum1 =Val(txtText1.Text)

intNum2 = Val(txtText2.Text)

intNum3= intNum1* intNum2

txtText3.Text = Str(intNum3)

End Sub

В этой процедуре используются две стандартные функции Val и Str. Функция Val преобразует строку в число. Функция Str преобразует число любого типа в строку.

7. Запустите программу клавишей F5.

Контрольное задание

1. Измените учебную программу "Калькулятор" так, чтобы она выполняла умножения четырехзначных целых чисел.

2. Измените учебную программу "Калькулятор" так, чтобы она выполняла целочисленное деление целых чисел.

3. Измените учебную программу "Калькулятор" так, чтобы она вычисляла остаток от деления двух целых (деление по модулю).

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

1. Что такое переменная? Чем она отличается от константы?

2. С какой целью переменным назначаются типы данных?

3. Какие операторы используются для объявления переменных или констант?

4. Что такое целая переменная? Какой ее диапазон значений?

5. Что такое оператор присваивания? Приведете пример такого оператора из учебного задания?

6. Что такое целочисленное деление и деление по модулю?

7. Почему переменные intNum1, intNum2, intNum3 вышеприведенной программы описаны как Integer? Чем отличается тип Integer от типа Long? IB каком случае переменную intNum3 необходимо описывать как Long?

8. Какое событие возникает при нажатии кнопки Пуск?

9. Для чего рекомендуется имя переменной начинать с префикса?

10. Что означает конструкция txtTextl.Text? Что означает текст, стоящий слева от точки?

11. Какие действия происходят при выполнении оператора

intNum1 = Val(txtText1.Tеxt)?.

12. Какие действия происходят при выполнении оператора

txtTextS.Text = Str(intNum3)?

14. Какие стандартные функции используются в учебном задании?

Задание для закрепления знаний.

Рассмотрим ситуацию, когда деньги помещаются на банковский депозит под определенный процент. Стоимость вклада будет расти по мере накопления процентов. Предлагается составить программу, которая будет определять будущую стоимость вклада по простой процентной ставке. Используется: следующая формула:

 

Новая стоимость = Сумма основного вклада*(1 + N*R/100).

Здесь R — простая процентная ставка в долях единицы (т.е. изменяется от 0 до 1), N — срок вклада в годах.

Программа должна иметь текстовые окна TextBox, через которые пользователь задает сумму основною вклада, простую процентную ставку, срок вклада в годах. Кроме того, программа должна иметь кнопку Расчет новой стоимости, при нажатии на которую вычисляется новая стоимость вклада. Полученный результат помещается в поле-надпись (Label). Все поля должны иметь заголовки (для этого используйте элементы Label)

 

Задание 2.4. Вещественные переменные.

Основная цель задания.

1. Изучить тип данных "вещественные переменные".

2. Продолжить изучение стандартных функций Str, Val.

 

Краткая справка.

 

Вещественный тип также принадлежит к фундаментальным типам данных. Они могут принадлежать интервалу от ± 1.4×10- 45 до ± 3.4×10+45 (тип Single) и от ± 4.94× 10-324 до ±1.79× 10+308 (тип Double). Вещественный тип используется для большинства арифметических операций. Префиксом вещественных переменных являются sng для типа Single и dbl для типа Double.

Основные операции для работы с вещественными числами: сложение, деление, умножение, деление, возведение в степень.

Некоторые функции для работы с вещественными числами:

• Rnd(Число) — генерирует случайное число в диапазоне от 0 до 1. Необязательный параметр Число позволяет выполнить предустановку псевдослучайной последовательности

• Sin(Число), Соs(Число), Таn(Число) — вычисляют синус, косинус, тангенс от значения параметра в радианах.

• Аbs(Число) — возвращает абсолютное значение числа.

• Sqr(Число) — вычисляет квадратный корень от значения параметра. Полный список функций приведен в Приложении 3.

Задание 2.5

Напишите программу, которая определяет стоимость количества золота, равного вашему весу (рис. 2.3).

 

Рис. 2.3.

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

1. Выполните пункты 1…5 Задания 1.1

2. Выделите форму и измените свойство Name на frmZadanie2_3, а свойству Caption Шутка

3. Создайте на форме frmZadanie2_3 элемент-надпись и задайте его свойству Name значение lblGold, а свойству Caption присвоим значение «Отвечает ли ваш вес золотому эквиваленту?».

4. Дважды щелкните по элементу-кнопке на панели инструментов и поместите кнопку на форме. Задаем для свойства Name значение cmdGold, а свойству Caption присвоим значение "Введите свой вес в кг".

5. Дважды щелкните на кнопке и откройте окно с подпрограммой сmdGold_Click(). Добавьте в подпрограмму следующий фрагмент

Private Sub cmdGold_Click()

Dim strRc As String

Dim sngWeight As Single

Dim sngGold As Single

strRc = InputВох("Введите свой вес в кг:")

‘ преобразование строки в число

sngWeight = Val (strRc)

sngGold = 15000 * sngWeight

' преобразование числа в строку

strRc = Str(sngGold)

MsgBox "Стоимость вашего веса в золотом эквиваленте" _

& strRc & " $"

MsgBox " Драгоценный Вы мой,несомненно Вы именно столько и стоите !" & _

" Если же цена золота упадет, то питайтесь более плотно," & _

" чтобы сохранить свою стоимость!"

End Sub

Обратите внимание!

Для переноса строки программного кода используется так подчеркивания «_» после пробела. В процедуре используются две стандартных функции Val и Str. Функция Val преобразует строку в число, функция Str преобразует число любого типа в строку.

6. Запустите программу клавишей F5.

Контрольное задание

Измените программу 2.3 так, чтобы она определяла вес бриллианта, равного по стоимости вашему весу. Примерная формула пересчета

Стоимость веса(руб)= 780*Bec (кг).

Стоимость одного карата 20 000 (руб).

Вес бриллианта = Стоимость веса/Стоимость одного карата.

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

 

1. Для чего нужны вещественные переменные? Как они описываются?

2. Что такое приоритеты операций и почему они важны?

3. Чем отличается тип Single от типа Double. В каких случаях эти типы должны использоваться?

4. Что означает оператор sngWeight = Val(strRc)? Можно ли его записать в виде

sngWeight = strRc?

5. Что означает оператор strRc = Str(sngGold)? Корректна ли будет запись

strRc = sngGold?

6. Что означает символ &, используемый в операторе MsgBox

7. Для чего используется функции Str() и Val()?

Задание для закрепления знаний

Создайте программу, которая изменяет единицы измерения веса: килограммы в фунты. Форма должно иметь два текстовых элемента (TextBox), озаглавленных как «Ваш вес в кг» и «Ваш вес в фунтах», а также кнопку «Переведи в фунты»

Формула перевода: 1 фунт = 0.41 кг.

 

Задание 2.6. Переменные типа дата/время

Основная цель задания

1.Изучить переменные для хранения даты и времени.

2. Изучить функции для работы с такими переменными.

Краткая справка

Переменная типа дата/время имеет длину 8 байт. Это переменная является

комбинацией трех целых чисел, соответствующих номеру дня, месяца и года. Пример объявления переменной:

Dim dtmWinter As Date

Основные функции для работы с переменными типа дата/время приведены в Приложении 3. Важнейшие из них:

• CDate — преобразует числовое выражение или строку в дату.

• Date — возвращает текущую системную дату или устанавливает системную дату. Пример: dtmNow=Date

• DateSerial(год, месяц, лень) — возвращают дату, заданную днем, месяцем и годом.

• Dау(дата) — возвращает число от I до 31, соответствующее номеру дня в аргументе «дата».

• Моnth(дата) — возвращает число от 1 до 12, соответствующее месяцу.

• Yеаг(дата) — возвращает число, соответствующее году переданной в параметре даты.

Другие стандартные функции для обработки переменных типа дата/время Описаны в Приложении 3 (табл. 28).

Задание 2.7

Напишите программу, которая выводила сегодняшнюю дату, а также год месяц и день сегодняшней даты. Кроме того после ввода вашей даты рождения она бы указывала сколько дней прошло от вашего рождения до сегодняшнего дня. Кроме того, вычислите дату на10 000 день от даты вашего рождения (рис. 2.4).

 

Рис.2.4.

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

1. Выполните пункты 1…5 Задания 1.1

2. Выделите форму и измените свойство Name на frmZadanie2_4, а свойству Caption задайте значение Правильно определите дату.

3. Разместите на форме 7 текстовых полей со свойствами Name, значение которых определите как: txtNow, txtYear, txtMonth, txtDay, txtBirth. txtNumDay, txtDay10000 соответственно, а их свойствам Text – значения оставьте пустыми. Сверху над текстовыми полями поместите 7 надписей со следующими значениями их свойств Caption: Сегодня, Год, Месяц, День, День рождения, Число дней, Дата 10000 дней.

4. Добавьте кнопку на форму frmZadanie2_4. В окне свойств задайте свойству

Name этой кнопки значение cmdDate. Задайте свойству Caption кнопки значение &Дата.

5. Щелкните дважды по кнопке Дата и добавьте в процедуру обработчик события код

Private Sub cmdDate_Click()

Dim dtmNow As Date

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

‘определяем ceгодняшнюю дату

dtmNow = Date

‘ раскладываем даmу на год, месяц и день

intYear = Year(dtmNow)

intMonth = Month (dtmNow)

intDay = Day(dtmNow)

‘присваиваем значения переменных свойству Text текстовых элементов

txtNow.Text = Str(dtmNow)

txtYear.Text = Str(intYear)

txtMonth.Text = Str(intMonth)

txtDay.Text = Str(intDay)

End Sub

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

Private Sub cmdBirth_Click()

Dim dtmNow 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

7. Запустите программу клавишей F5. Результат выполнения программы после введения даты рождения и нажатия кнопок представлен на рисунке внизу.

Контрольное задание

Измените программу 2.4 так, чтобы она вместо даты 10000-го дня от Дня рождения могла определять дату 10000-го часа от Дня рождения.

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

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

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

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

Задание для закрепления знаний

 

Составьте программу, которая вычисляет количество дней до нового года.

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

Задание 2.8. Область видимости переменных

Основная цель задания

1. Изучить области видимости локальных и глобальных переменных.

Краткая справка

 

Если переменная описана внутри процедуры с помощью ключевою слова Dim (локальная переменная), то ее область видимости будет ограничена кодом данной процедуры.

Если переменная объявлена в разделе глобальных объявлений модуля/формы (секция (General) (Declarations)) с помощью ключевого слова Private, то она будет доступна для всех процедур модуля. Но для кода других модулей или форм такая переменная все равно будет «невидимой».

Если переменная объявлена в разделе глобальных объявлений модуля/формы (секция (General) (Declarations)) с помощью ключевого слона Public, то она доступна из всех модулей и форм проекта. Такие переменные часто называются открытыми, или глобальными. Если переменная объявлена в разделе глобальных объявлений программного модуля, то доступ к ней возможен просто через ее имя. Если переменная объявлена как Public в разделе глобальных объявлений формы, то из других форм и модулей доступ к ней должен осуществляться через конструкцию ИмяФормы.ИмяПеременной.

Задание 2.9

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

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

1. Выполните пункты 1…5 Задания 1.1

2. Выделите форму и измените свойство Name на frmZadanie2_5, а свойству Caption задайте значение Первое слово.

3. Добавьте 3 кнопки на форму. В окне свойств задайте следующие значения свойствам Name кнопок: cmdWord1, cmdWord2 и cmdUnit . Задайте следующие значения свойствам Caption кнопок: &Первое слово, &Второе слово и &Обьединить.

4. Дважды щелкните на форме, чтобы открыть окно программы.

Вставьте следующие строки в секцию(General)(Declaration)

Option Explicit

Private strWord1 As String

Private strWord2 As String

 

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

5. Дважды щелкните на кнопке cmdWord1, чтобы открыть окно программы. Введите тело процедуры события Click кнопки cmdWord, выделенное жирным шрифтом:

 

Private Sub cmdWord1_Click()

strWord1= Application.InputBox(prompt:="Введите первое слово ", Type:=2)

End Sub

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

Private Sub cmdWord2_Click()

strWord2 = Application.InputBox(prompt:="Введите второе слово ", Type:=2)

End Sub

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

Private Sub cmdUnit_Click()

MsgBox strWord1 &" "& strWord2

End Sub

8. Запустите программу. Нажмите кнопку Первое слово, чтобы вызвать диалоговое окно InputBox для ввода первого слова. Введите первое слово и нажмите ОК Затем нажмите кнопку Второе слово. Введите второе слово и нажмите ОК. А для получения сообщения нажмите кнопку Объединить.

Контрольное задание

Измените программу так, чтобы она выводила сообщение «Первое слово и Второе слово сидели на трубе». Первое слово и Второе слово являются: переменной частью сообщения и вводятся с помощью окна ввода.

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

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

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

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

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

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

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

Задание для закрепления знаний

Составьте программу для вычисления объема комнаты. Программа должна содержать четыре кнопки Длина (м), Ширина (м). Высота (м)), Вычислить объем. Нажатие на кнопку Длина(м) вызывает окно InputBox для ввода значения длины комнаты. Полученное значение отображается в окне-надписи, расположенном на форме и озаглавленном «Длина комнаты». Аналогично, «Объем» приводит к расчету объема комнаты, который показывается пользователю с помощью окна MsgBox. Программа также должна иметь кнопку «Выход» для ее завершения.









Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2018 zdamsam.ru Размещенные материалы защищены законодательством РФ.