Private Sub UserForm_Activate()

ListBox1.AddItem "Профессор"

ListBox1.AddItem "Доцент"

…

5) напишите код процедуры для обработки события Initialize формы, которое происходит, когда форма инициализируется. Процедура заполняет поле со спи­скомComboBox1. Добавьте в поле со списком 4 города.

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Москва"

…

6) напишите код процедуры для обработки события Click элемен­та "Кнопка" с именем CommandButtonl. Предусмотрите в макросе обработку следующих ситуаций:

а) если не введена фамилия:

If TextBox1 = "" Then _

MsgBox "Вы не ввели фамилию": Exit Sub

б) если не выбра­на в списке должность или не указан город. Свойство ListIndex содержит порядковый номер выбранной в списке строки. Строки в списке нумеруются, начиная с 0. Если не выбрана ни одна строка, свойство ListIndex имеет значение -1.

index = ListBox1.ListIndex

If index = -1 Then _

MsgBox "Вы забыли выбрать должность": Exit Sub

7) для определения того, какое значение было выбрано из списка ListBox1 воспользуйтесь оператором выбора:

Select Case index

Case 0: mes = "Профессор"

Case 1: mes = "Доцент"

…

End Select

8) занесите введенное в поле TextBox1, выбранное из списка ListBox1 и из поля со списком ComboBox1 значения в список ListBox2 с помощью метода AddItem.

9) для удаления выбранного пункта из списка используется метод RemoveItem Index. Параметр index указывает на порядковый номер удаляемого пункта и является обязательным.

Ind = ListBox2.ListIndex

ListBox2.RemoveItem (Ind)

Предусмотрите ситуацию, когда не отмечена строка в списке при удалении.

 

ЗАДАНИЕ №2.

Измените форму и напишите процедуры для решения задачи согласно варианту:

Варианты заданий