Практическая работа № 6-3 «Как вас зовут?»
1. На листе Excel с помощью Панели Элементов управления спроектируйте кнопку вызова формы и назовите ее «Имя», переименуйте Лист1 в лист «Имя».
2. Выделите кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.
3.Выделите
кнопку «Имя», нажмите на панели элементов
управления кнопку «Исходный текст»
.
4.Запишите программу:
Private Sub CommandButton1_Click()
Dim Имя As String
Имя = InputBox("Как вас зовут?", "Вопрос")
MsgBox "Привет! " & Имя, 1, "Приветствие"
End Sub
5.Переключитесь на лист «ИМЯ»
6.Отключите
режим конструктора
7.При запуске программы у Вас получится:
8.Спроектируйте аналогичные кнопки со следующими вопросами:
Сколько Вам лет?
Что Вам нравится?
И т.д. 9. Сохраните свою работу.
Практическая работа № 6-4 «Моя вселенная»
Спроектируйте вопросник «Моя Вселенная»:
Мое любимое занятие...
Мой любимый цвет...
Мое любимое животное…
Мой лучший друг...
Мой любимый звук...
Мой любимый запах...
Моя любимая игра...
Моя любимая одежда...
Моя любимая музыка...
Мое любимое время года...
Что я больше всего на свете люблю делать...
Место, где я больше всего люблю бывать...
Мой любимый певец или группа...
Мои любимые герои...
Я чувствую в себе способности к ...
Человек, которым я больше всего восхищаюсь ...
Лучше всего я умею ...
Я знаю, что смогу ...
Я уверен в себе потому, что ...
На листе Excel создайте кнопку, назовите ее «Ответь на вопросы».
2. Выделите кнопку «Ответь на вопросы», нажмите на панели элементов управления кнопку «Исходный текст» .
Запишите программу таким образом, чтобы после первого вопроса и ответа на него вызывался второй вопрос и т.д.:
Private Sub CommandButton1_Click()
Dim Вопрос As String
Вопрос = InputBox("Ваше любимое занятие?", "Любимое занятие")
MsgBox "Мое любимое занятие - " & Вопрос, 1, "Ответ"
Вопрос = InputBox("Ваш любимый цвет?", "Любимый цвет")
MsgBox "Мой любимый цвет - " & Вопрос, 1, "Ответ"
и т.д.
End Sub
Не забудьте изменить имя заголовка формы. Оно должно соответствовать вопросу. Например:
5. Сохраните свою работу.
Практическая работа № 6-5 «Мне нравится»
Спроектируйте вопросник «Мне нравится»:
Мне нравится в школе то, что …
Мне не нравится в школе то, что …
Я просто в восторге от того, что …
Мне не нравится на уроке то, что …
Вот было бы здорово, если бы на уроке можно было бы …
Подберите вопросы и составьте самостоятельно задание.
Практическая работа № 6-6 «Вычислитель»
Спроектируйте на листе Excel кнопки вызова форм, с помощью которых можно Сложить, вычесть, умножить и т.д. два числа.
1. На листе Excel с помощью Панели Элементов управления спроектируйте кнопку вызова формы и назовите ее «Сложение», переименуйте Лист1 в лист «Вычислитель».
Выделите кнопку, вызовите через правую кнопку мыши Свойства и отформатируйте ее на панели Properties.
В кнопке «Исходный текст» запишите программу:
Private Sub CommandButton1_Click()
Dim Число1 As String, Число2 As String
Dim a As Integer, b As Integer
Число1 = InputBox("Введите первое число", "Первое число")
Число2 = InputBox("Введите второе число", "Второе число")
a = Val(Число1)
b = Val(Число2)
MsgBox Число1 & "+" & Число2 & "=" & a + b, 1, "Сложение"
End Sub