Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Порядок выполнения. 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. Проверьте работу программы. Объясните причину ошибки при вызове программы, определяющей среднее значение
|