Практическая работа № 4.11

1. Создать новый проект и программу для вывода на форму двух списков: в первый поместить названия книг, рекомендуемых для чтения, а во второй во время работы программы поместить список прочитанных книг. Макет формы показан на рис. 30.

2. Программный код для кнопки пуск:

Dim NazKn1(1 To 3) As String, NazKn2(1 To 5) As String

NazKn1(1)="Программирование на VB"

NazKn1(2)="Информатика"

NazKn1(3)="Основы программирования"

Dim x, y As Integer

For x=1 To 3

List1.AddItem NazKn1(x)

Next x

For y=1 To 5

NazKn2(y)=InputBox("Введите, пожалуйста, название книги", "Ввод названий прочитанных книг")