Свойства объекта Список
Свойство | Описание |
ListIndex | Возвращает номер выбранного элемента списка. Нумерация элементов списка начинается с нуля |
ListCount | Возвращает число элементов списка |
TopIndex | Возвращает элемент списка с наибольшим номером |
ColumCount | Устанавливает число столбцов в списке |
List | Возвращает элемент списка, стоящего на пересечении указанной строки и столбца Синтаксис: List(строка, столбец) |
Text | Возвращает выбранный в списке элемент |
Методы
Метод | Описание |
Clear | Удаляет все элементы списка |
AddItem | Добавляет элемент в список |
RemoveItem | Удаляет заданный элемент |
è Удалите текстовое поле с именем «txtSin»
è На место удалённого объекта вставьте ListBox (Список) и именем «lstSin» (обратите внимание, впереди стоит латинская буква «L» малая, а не «1 (единица)»)
è Удалите следующую строку «txtSin = txtSin +”x=” + ÄStr(i)+ “, y=”+Str(y) + vbCrlf»
è На место удалённой строки в коде программы вставьте следующую запись:
lstSin.AddItem ”x=” + Str(i)+ “, y=”+Str(y)
è Посмотрите, как работает программа
è Напишите программу для табуляции функции у = Cos(x)
è Сохраните файл под именем «Табуляция функции»
Практическая работа №5. Работа с массивами
Задание.
Найдите значение максимального элемента одномерного массива |
Массив – это совокупность нескольких переменных одного типа, которые могут принимать одинаковые или различные значения, объединенных одним общим именем (идентификатором) и идентифицируемых (адресуемых) вычисляемым индексом.
|
|
Различают статические и динамические массивы. Границы статических массивов устанавливаются на этапе разработки и могут изменяться только в новой версии программы. Динамические массивы изменяют свои границы в ходе выполнения программы.
Компонентами массива могут быть не только простейшие данные, но и структурные, в том числе массивы. В этом случае мы получаем массив массивов - многомерный массив. Для индексации элементарных компонент в этом случае может потребоваться два, три и более индексов.
Для решения этой задачи мы будем использовать две локальные процедуры – в первой введём элементы массива, а во второй – находить максимальный элемент, а также его вывод
è Блок-схема.
Наша блок-схема разбита на два блока: 1) ввод элементов массива, 2) нахождение максимального элемента. Каждый блок представляет собой отдельную программу (процедуру), которая выполняет определённую операцию. Для заполнения массива можно использовать цикл с предусловием или с постусловием. |
è Откройте приложение MS Excel.
è Выполните команду РазработчикàРедактор Visual Basic или нажмите < Alt+F11 >.
|
|
è Добавьте форму (команда Insertà UserForm)
è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)
è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления ( ViewàToolBox ), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка), ListBox (Список).
è В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 4.
Таблица 4
Элемент управления | Свойства | Значения |
UserForm | Caption | Нахождение максимального элемента |
Label1 | Caption | Число элементов |
TextBox1 | Name | txtRazmer |
Label2 | Caption | Массив |
ListBox1 | Name | lstMassiv |
Label3 | Caption | Максимальный элемент |
TextBox2 | Name | txtMax |
CommadButton1 | Name | cmdVvodMassiva |
Caption | Ввод массива | |
CommadButton2 | Name | cmdMaxElement |
Caption | Максимальный элемент |
è Примерный интерфейс программы может выглядеть так:
è Код программы:
Dim Massiv() As Single, Size As Integer
Private Sub cmdVvodMassiva_Click()
Dim i As Integer
Size = Val(txtSize.Text)
ReDim Massiv(Size)
i = 1
Do While i <= Size
Massiv(i) = Val(InputBox("Массив(" + Str(i) + Ä")=","Ввод массива"))
lstMassiv.AddItem "A(" + Str(i) + ")=" + ÄStr(Massiv(i))
i = i + 1
Loop
End Sub
Private Sub cmdMaxElement_Click()
|
|
Dim i As Integer
Max! = Massiv(1)
i = 1
Do Until i > Size
If Massiv(i) > Max Then Max = Massiv(i)
i = i + 1
Loop
txtMax.Text = Str(Max)
End Sub
è Задайте массив из 15 элементов и посмотрите как работает программа.
è Измените циклы в программе первый сделайте используя ключевое слово «Until» (с постусловием), а второй с ключевым словом «While» (с предусловием)
è Измените, код программы так, что бы она искала минимальный элемент в массиве
è Сохраните файл под именем «Нахождение максимального элемента»
Дата добавления: 2015-12-17; просмотров: 22; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!