Задачи на закрепление материала. Пример 20. Создать программу, которая при вводе имени пользователя и числа от 1 до 10 в текстовые поля формы выдает в метку label1 предсказание в зависимости
Пример 20. Создать программу, которая при вводе имени пользователя и числа от 1 до 10 в текстовые поля формы выдает в метку label1 предсказание в зависимости от введенного значения.
При разработке программы использовать одномерный массив, объявляемый в процедуре Fortuna, содержащей все возможные предсказания.
Технология выполнения
- Откройте приложение Word, сохраните документ и перейдите в редактор VBA.
- Создайте форму (рис. 38).
- Пропишите обработчики событий нажатия на кнопки «Вывести предсказание» и «Закрыть».
Рис. 38.Форма примера 20 в рабочем состоянии
При обработке процедуры нажатия кнопки Вывести можно опираться на нижеприведенный листинг.
Примечание. Обратите внимание на создание процедуры, содержащей массив предсказаний, и вызов этой процедуры из процедуры нажатия кнопки «Вывести предсказание», учитывая «защиту от дурака».
Sub fortune(a As String, b As Integer)
Dim today(1 To 10)
today(1) = «Вы станете богатым и знаменитым за 15 минут»
today(2) = «Вам предстоит обед с незнакомцем»
today(3) = «Стоимость Ваших вкладов удвоится!»
today(4) = «Вы получите большой букет от своего почитателя»
today(5) = «Вы опоздаете на пару»
today(6) = «Все Ваши мечты сбудутся»
today(7) = «Вам вернут долг»
today(8) = «Вы выучите лекцию и ответите на опрос»
today(9) = "Вы встретите своего давнего знакомого»
today(10) = «На Вас обратят внимание»
Label3.Caption = a & «, Вас ожидает следующее:» & today(b)
End Sub
Private Sub CommandButton1_Click()
Dim a As String
Dim b As Integer
a = TextBox1.Text
b = Val(TextBox2.Text)
If b > 0 And b <= 10 Then
Call fortune(a, b)
Else: Label3.Caption = «Вы ввели не то число!»
End If
End Sub
- Откомпилируйте программу.
- Запустите приложение на выполнение.
Пример 21. Создать форму, в текстовые поля которой вводятся имя и пароль. Если пароль введен правильно, то пользователь получает доступ к списку некоторой группы, отражаемой в элементе listbox, при этом выдается сообщение о допуске пользователя к списку. Список организуется программно.
Дата добавления: 2016-04-14; просмотров: 899;