Практическая работа № 5–6 “Пословицы”

Спроектируйте на листе Excel кнопку вызова формы, с помощью которой можно дополнить пословицу “ПУГАНАЯ ВОРОНА и... боится”.

1. С помощью Панели элементов управления спроектируйте кнопку вызова формы и назовите ее “Пословицы”, переименуйте Лист1 в “Пословицы”.

2. Выделите кнопку, вызовите через правую кнопку мыши Свойства и отформатируйте ее на панели Properties.

3. К кнопке “Исходный текст” присоедините программу:

Private Sub CommandButton1_Click()

Dim Ответ As String

Ответ = InputBox("Дополни пословицу: ПУГАНАЯ ВОРОНА и... боится", "Введи ответ")

MsgBox "Пуганая ворона и" & Ответ & " боится", 1, "Пословица"

End Sub

У вас получится:

4. Дополните программу пословицами таким образом, чтобы после первого вопроса и ответа на него вызывался второй вопрос и т.д.

5. Сохраните работу.

Практическая работа № 5–7 “Полевой букет”

Эта работа позволит понять, как переносить информацию из диалоговых окон в пользовательскую форму.

Соберем на поляне букет из четырех наименований цветов.

1. После щелчка кнопки “Пуск” должны последовательно появиться диалоговые окна для ввода названий четырех цветов (для мальчиков — автомобилей).

2. Поместите введенные текстовые строки в поля метки пользовательской формы.

3. Проведите объединение этих текстовых строк.

4. В первом случае выведите объединенные текстовые строки в поле пользовательской формы в одну строку.

5. Во втором случае расположите объединенные текстовые строки в поле пользовательской формы “столбиком”. Для вывода текстовых строк в столбик надо при объединении между текстовыми строками вставить особый невидимый символ — символ перехода на новую строку. В коде ASCII это 13. Функция CHR(Код) преобразовывает код в один символ. Символ перехода на новую строку — CHR(13).

Окно для ввода текстовых строк

Образец пользовательской формы

Программа на кнопку “Пуск”

Private Sub CommandButton1_Click()

Rem Объявление переменных

Dim slovo1 As String

Dim slovo2 As String

Dim slovo3 As String

Dim slovo4 As String

Dim Slova As String

Rem Ввод текстовых строк через окно ввода

slovo1 = InputBox("Введите название цветка 1", "Вопрос")

Rem Размещение введенной текстовой строки в поле ПФ

Label1.Caption = slovo1

slovo2 = InputBox("Введите название цветка 2", "Вопрос")

Label2.Caption = slovo2

slovo3 = InputBox("Введите название цветка 3", "Вопрос")

Label3.Caption = slovo3

slovo4 = InputBox("Введите название цветка 4", "Вопрос")

Label4.Caption = slovo4

Rem Объединение текстовых строк для вывода в строку

Slova = slovo1 + " " + slovo2 + " " + slovo3 + " " + slovo4

Rem Размещение объединенной текстовой строки в поле ПФ

Label5.Caption = Slova

Rem Подготовка переменной Slova для нового объединения строк

Slova = ""

Rem Объединение текстовых строк для вывода в столбик

Slova = slovo1 + " " + Chr(13) + slovo2 + " " + Chr(13) + slovo3 + " " + Chr(13) + slovo4

Rem Размещение объединенной текстовой строки в поле ПФ

Label6.Caption = Slova

End Sub

6. Создайте на листе Excel кнопку для вывода формы.

7. Сохраните свою работу.

Практическая работа № 5–8 “Моя Вселенная”

Спроектируйте вопросник “Моя Вселенная”. Например:

Мое любимое занятие...

Мой любимый цвет...

Мое любимое животное…

Мой лучший друг...

1. На листе Excel создайте кнопку, назовите ее “Ответь на вопросы”.

2. Выделите кнопку “Ответь на вопросы”, нажмите на панели элементов управления кнопку “Исходный текст” .

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

Private Sub CommandButton1_Click()

Dim Вопрос As String

Вопрос = InputBox("Ваше любимое занятие? ", "Любимое занятие")

MsgBox "Мое любимое занятие — " & Вопрос, 1, "Ответ"

Вопрос = InputBox("Ваш любимый цвет? ", "Любимый цвет")

MsgBox "Мой любимый цвет — " & Вопрос, 1, "Ответ"

…..

End Sub

4. Не забудьте изменить имя заголовка формы. Оно должно соответствовать вопросу.

5. Сохраните свою работу.