Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Порядок выполнения. 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. Проверьте работу программы. Объясните причину ошибки при вызове программы, определяющей среднее значение



Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал