Информатика и выч. техника \ Информатика

Работа с массивами. Свойства первого комбинированного списка. Изменение свойств списков. Пример оформления пользовательской формы, страница 2

End If

If m(i) < min Then

min = m(i)

End If

Next i

Label2.Caption = "максимальный элемент массива = " + CStr(max)

Label3.Caption = "минимальный элемент массива = " + CStr(min)

32. Перейдите в процедуру обработки третьей командной кнопки "Элементы массива, кратные 7":

Private Sub CommandButton3_Click()

33. Введите с клавиатуры программный код:

Функция Mod возвраща-ет остаток от деления двух целых чисел
 


ComboBox2.Clear

For i = 1 To 20

If m(i) Mod 7 = 0 Then

ComboBox2.AddItem "m(" + CStr(i) + ") = " + CStr(m(i))

End If

Next i

34. Перейдите в процедуру обработки четвертой командной кнопки "Сумма массива":

Private Sub CommandButton4_Click()

35. Введите с клавиатуры программный код:

sum = 0

For i = 1 To 20

sum = sum + m(i)

Next i

Label5.Caption = "Суммаэлементовмассива = " + CStr(sum)

36. Запустите программу на выполнение с помощью команды меню "Run" или функциональной клавиши F5.

37. Нажмите на все кнопки и проверьте правильность расчетов.

38. Снова нажмите кнопки ("Ввод массива" и т.д.) и проверьте изменения в расчетах.

39. Закройте приложение.

40. Сохраните файл (команды меню "File" и "Save") в папке "Мои документы"  под именем массивы, выбрав тип: Книга Excel с поддержкой макросов.

41.  Проанализируйте блок-схемы выполненных расчетных задач:

Параметры цикла: от 1 до 20, шаг = 1.

Задание 2

"Расчет среднего значения элементов массива"

1.  Добавьте методом перетаскивания на пользовательскую форму инструмент надпись (Label).

2.  Измените эту надпись (Label6). Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите Label6 и оставьте поле пустым). Проверьте изменения.

3.  В этом же инструменте (Label1) измените свойство:

-  BorderStyle (стиль границы): 1.

4.  Измените надпись на четвертой кнопке. Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption на "Сумма и среднее значение массива".

5.  Измените у четвертой кнопки свойство WordWrap (перенос текста по словам) на True. Проверьте изменения.


№

Инструмент

Свойства

1

Label6

Caption: Очистить и оставить пустым

Borderstyle: 1

2

CommandButton4

Caption: Сумма и среднее значение элементов массива

WordWrap: True (переносить текст по словам)

6.  Измените у четвертой кнопки свойство WordWrap (перенос текста по словам) на True. Проверьте изменения.

7.  Перейдите в процедуру обработки четвертой командной кнопки "Сумма и среднее значение массива": Private Sub CommandButton4_Click()

8.  Измените программный код в разделе General:

Dim m(20), max, min, sum As Integer, sz As Single

9.  Измените программный код в процедуре обработки кнопки:

sum = 0

sz=0

For i = 1 To 20

sum = sum + m(i)

Next i

Label5.Caption = "Сумма элементов массива = " + CStr(sum)

sz=sum/20

Label6.Caption = "Среднее значение = " + Format(sz,"0.000")

10. Запустите программу на выполнение с помощью команды меню "Run" или функциональной клавиши F5.

11. Нажмите на все кнопки и проверьте работу приложения.

12. Сохраните результаты работы (команды меню "File" и "Save").

13. Проанализируйте изменение блок-схемы данной расчетной задачи:

Задание 3

"Изменение размерности массива"

1.  Добавьте методом перетаскивания на пользовательскую форму инструмент текстовое поле (TextBox).

Текстовое поле (Textbox)

Текстовое поле (Textbox)

2.  Свойства не изменяйте.

3.  Перейдите в процедуру обработки первой командной кнопки "Ввод массива": Private Sub CommandButton1_Click()

4.  Измените программный код в разделе General:

Dim m(20), max, min, sum, n As Integer, sz As Single

5.  Измените программный код в процедуре обработки кнопки:

n = CInt(TextBox1.Text)

ComboBox1.Clear

For i = 1 To n

m(i) = Int(Rnd * 20) - 5

ComboBox1.AddItem "m(" + CStr(i) + ") = " + CStr(m(i))

Next i

6.  Измените последовательно программный код второй, третьей и четвертой процедур обработки командных кнопок:

Private Sub CommandButton2_Click()

max = m(1)

min = m(1)

For i = 2 To n

If m(i) > max Then

max = m(i)

End If

If m(i) < min Then

min = m(i)

End If

Next i

Label2.Caption = "максимальный элемент массива = " + CStr(max)

Label3.Caption = "минимальный элемент массива = " + CStr(min)

End Sub

____________________________________________________

Private Sub CommandButton3_Click()

ComboBox2.Clear

For i = 1 To n

If m(i) Mod 7 = 0 Then

ComboBox2.AddItem "m(" + CStr(i) + ") = " + CStr(m(i))

End If

Next i

End Sub

__________________________________________________

Private Sub CommandButton4_Click()

sum = 0

sz = 0

For i = 1 To n

sum = sum + m(i)

Next i

Label5.Caption = "Сумма элементов массива = " + CStr(sum)

sz = sum / n

Label6.Caption = "Среднее значение = " + Format(sz, "0.000")

End Sub

Изменение размер-ности массива

7.  Запустите программу на выполнение с помощью команды меню "Run" или функциональной клавиши F5.

8.  Введите в текстовом поле размерность массива = 5.

9.  Нажмите на все кнопки и проверьте работу приложения.

10. Не выходя из приложения, измените размерность массива, нажмите кнопки и проверьте работу программы. Например:

11. Сохраните результаты работы (команды меню "File" и "Save").

12. Проанализируйте изменение блок-схемы первой расчетной задачи "Ввод массива":

Скачать файл