Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Порядок выполнения. 14. Установите на форме следующие объекты и измените им свойства:
|
|
14. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командные кнопки | Name | CmdMas |
| Caption | Заполнение и вывод массива | |
| Name | CmdSort | |
| Caption | Сортировка массива | |
| Name | CmdMAx | |
| Caption | Определить | |
| Name | CmdSr | |
| Caption | Определить | |
| Рамки | Caption | Max и Min значения в массиве |
| Caption | Среднее значение | |
| Текстовые окна | Name | TxtMas |
| Name | TxtSort | |
| Name | TxtMax | |
| Name | TxtMin | |
| Name | TxtSr |
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. Проверьте работу программы. Объясните причину ошибки при вызове программы, определяющей среднее значение
|
|