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

1. Создать новый проект и программу. Программа создает список чисел. Заполнение списка осуществляется кнопкой добавить. При добавлении числа автоматически в форме отображаются максимальное и минимальное из чисел списка. При выделении числа в списке оно автоматически отображается меткой текущее число. Выделенное в списке число можно удалить одноименной кнопкой. Кнопка переопределить предназначена для отображения на форме новых максимального и минимального из чисел списка после удаления позиций списка. Кнопка очистить список удаляет все содержимое списка.

2. Внешний вид формы показан на рис. 20. Установить на форме все необходимые объекты, свойства Name указаны на рисунке рядом с объектами. Записать для проекта и объектов формы следующие программные коды:

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

Dim lngMaxNum As Single

Dim lngMinNum As Single

Dim strList(100) As Single

Dim intListElem As Integer

Программный код для кнопки добавить:

Private Sub dobav_Click()

If newchis.Text<>"" Then

Spisok.AddItem newchis.Text

strList(intListElem)=newchis.Text

intListElem=intListElem+1

If lngMaxNum<=newchis.Text Then

lngMaxNum=newchis.Text

End If

If lngMinNum>=newchis.Text Then

lngMinNum=newchis.Text

End If

newchis.Text=""

maxnum.Caption=lngMaxNum

minnum.Caption=lngMinNum

End If

Newchis.SetFocus

End Sub

Программный код для кнопки удалить:

Private Sub udal_Click()

Dim i As Integer

For i=spisok.ListIndex To 99

strList(i)=strList(i+1)

Next i

intListElem=intListElem-1

Spisok.RemoveItem spisok.ListIndex

tekchis.Caption=""

Spisok.Refresh

Newchis.SetFocus

End Sub

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

Private Sub opred_Click()

Dim i As Integer

lngMaxNum=-14000000000#

lngMinNum=14000000000#

For i=0 To intListElem-1

If lngMaxNum<=strList(i) Then

lngMaxNum=strList(i)

End If

If lngMinNum>=strList(i) Then

lngMinNum=strList(i)

End If

Next i

maxnum.Caption=lngMaxNum

minnum.Caption=lngMinNum

Newchis.SetFocus

End Sub

Программный код для кнопки очистить:

Private Sub ochis_Click()

Dim i As Integer

Spisok.Clear

For i=1 To intListElem

strList(i)=0

Next i

Newchis.SetFocus

maxnum.Caption=""

minnum.Caption=""

End Sub

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

Private Sub Form_Activate()

Newchis.SetFocus

lngMaxNum=-14000000000#

lngMinNum=14000000000#

End Sub

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

Private Sub spisok_Click()

tekchis.Caption=spisok.Text