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

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

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

Dim chismin As Single

Dim i, n As Integer

If vibor(0).Value Then

chismin=chisarr(1)

For i=2 To chiskol

If chisarr(i)<chismin Then chismin=chisarr(i)

Next i

result.Caption=chismin

ElseIf vibor(1).Value Then

For i=1 To chiskol

If chisarr(i)<0 Then n=n+1

Next i

result.Caption=n

End If

3. Программный код для кнопки добавить, а также описание глобальных переменных записать аналогично работе № 3.1, пп. 4 и 5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.