Порядок выполнения. 14. Установите на форме следующие объекты и измените им свойства:

14. Установите на форме следующие объекты и измените им свойства:

15.

16. В разделе общих объявлений объявите массив Dim Mas(10)

17. В окне кода процедуры обработки события Click для объекта CmdMas набрать:

'

Заполнение случайными числами

txtMas.Text = " "

For i = 1 To 10

mas(i) = Int(Rnd * 100)

txtMas.Text = txtMas.Text + " " + Str(mas(i))

Next i

18. В окне кода процедуры обработки события Click для объекта CmdSort набрать

For i = 1 To 10

For j = 1 To 9

If mas(j) > mas(j + 1) Then

k = mas(j)

mas(j) = mas(j + 1)

mas(j + 1) = k

End If

Next j

Next i

txtSort.Text = " "

For i = 1 To 10

txtSort.Text = txtSort.Text + " " + Str(mas(i))

Next i

19. В окне кода процедуры обработки события Click для объекта CmdMax набрать

Max = mas(1)

For i = 2 To 10

If mas(i) > Max Then Max = mas(i)

Next i

TxtMax.Text = Max

20. Самостоятельно набрать код для нахождения минимального значения в массиве

21. В окне кода процедуры обработки события Click для объекта CmdSr набрать

s = 0

For i = 1 To 10

s = s + mas(i)

Next i

TxtSR.Text = s / 10

22. Проверьте работу программы

23. Измените программу так, чтобы массив заполнялся буквами русского алфавита, для этого:

- измените тип массива

- в окне кода процедуры обработки события Click для объекта CmdMas набрать

txtMas.Text = " "

For i = 1 To 10

mas(i) = Chr((Rnd * 32) + 224) ' коды русских букв от 224 до 255

txtMas.Text = txtMas.Text + " " + mas(i)

Next i

- в остальных процедурах уберите обращение к функции Str()

24. Проверьте работу программы. Объясните причину ошибки при вызове программы, определяющей среднее значение