Sp.Refresh

End Sub

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

Private Sub sp_Click()

tekstr.Caption=sp.Text

End Sub

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

Private Sub ochis_Click()

Sp.Clear

Nst.SetFocus

End Sub

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

Private Sub Form_Activate()

Nst.SetFocus

maxl="*"

minl=Space(256)

End Sub

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

Private Sub opred_Click()

Dim i As Integer

maxl="*"

minl=Space(256)

For i=0 To ilem-1

If Len(maxl)<=Len(stl(i)) Then

maxl=stl(i)

End If

If Len(minl)>=Len(stl(i)) Then

minl=stl(i)

End If

Next i

max.Caption=maxl

min.Caption=minl

Nst.SetFocus

End Sub

Форма отчета: дискета или иной носитель с файлами форм и проектов работы № 3; текстовый файл с изображениями форм и текстами программных кодов.

Тема 4. Метод PRINT и стандартные окна сообщений