Dim Spisok(1 To 5) As String

Dim x As Integer

Spisok(1)="Андреева": Spisok(2)="Борисова"

Spisok(3)="Иванов": Spisok(4)="Петров"

Spisok(5)="Грекова"

For x=1 To 5

List1.AddItem Spisok(x)

Next x

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

Form1.Show

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

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

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

2. Программный код для формы:

Private Sub Form_Load()

Form1.Show

For i=0 To 9

Line (1+400*i, 1)-(300+400*i, 300), QBColor(5+i), B

Print i+1

Next i

End Sub

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

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

1. Создать новый проект и программу, которая позволит создать список слов, выбрать из списка слова, заканчивающиеся на заданную букву, определить количество остальных (не заканчивающихся на букву) слов. Слова, соответствующие условию отбора должны выводиться в форму. Если список слов пуст, программа должно выводить на экран сообщение. Программа должна содержать 4 окна: главное и справочное окна, рабочее окно приложения, окно сведений о разработчике. Переключение между окнами должно осуществляться с помощью меню.

2. Добавить к проекту 3 формы. Макеты главной формы и форм – справочных окон показаны на рис. 55, 56, 57. (см. практ. р. № 5.1) Задать формам свойства Name: главной – menu, разработчик – razrab, о программе – oprog. Самостоятельно записать коды для кнопок закрыть в справочных окнах.

3. Создать на главной форме меню в соотв. с рис. 55.

&программа (name=prog) нажать кнопки NEXT иà

&поиск (name=spisok, index=0) нажать кнопку NEXT

&выход (name=spisok, index=1) нажать кнопки NEXT иß

&справка (name=spr) нажать кнопки NEXT иà

&о программе (name=spravka, index=0) нажать кнопку NEXT

&разработчик (name=spravka, index=1)

Записать для меню программный код:

Private Sub spisok_Click(Index As Integer)

Select Case Index

Case 0

menu.Enabled=False

Load poisk

Poisk.Show

Case 1

End

End Select

End Sub

Private Sub spravka_Click(Index As Integer)

Select Case Index

Case 0

menu.Enabled=False

Load razrab

Razrab.Show

Case 1

glavn.Enabled=False

Load oprog

Oprog.Show

End Select

End Sub

4. Оформить 4-ю форму по образцу (рис. 58). Задать ей свойство name – Poisk. Записать следующие программные коды для объектов формы:

 

Программный код для раздела General Declarations: