 |
34) Типовые программы обработки массивов. Изменение размеров массивов. Циклический сдвиг.
|
|
|
|
34) Типовые программы обработки массивов. Изменение размеров массивов. Циклический сдвиг.
Типовые программы обработки массивов
Одномерного:
· Ввод массива (при помощи InputBox)
· Вычисление суммы элементов массива
· Нахождение наибольшего элемента массива и порядкового номера этого элемента
· Циклический сдвиг
· Вставка в последовательность заданного элемента
· Исключение заданного элемента из последовательности
· Вывод последовательности элементов массива
Двумерного:
· Ввод и вывод массива
· Определение максимального элемента матрицы и его адреса.
· Определение максимальных элементов строк матрицы
· Определение максимальных элементов столбцов матрицы
· Найти значение суммы элементов каждого столбца матрицы
· Найти сумму элементов матрицы, расположенных выше главной диагонали
· Вычеркнуть из матрицы строку с номером k
· Вставить строку между k-той и k+1-й строками матрицы
Ввод одномерного массива
Пусть имеется одномерный массив из n элементов x1, x2, …, xn.
Опишем и введем этот массив:
· Ввод при помощи текстового окна:
Dim x() As Single
Private Sub Button1_Click()
Dim n, i As Integer
n = CSng(InputBox(" Введите n" ))
ReDim x(0 To n-1)
For i = 0 To n-1
x(i) = CSng(TextBox1. Text)
Next i
End Sub
· Ввод при помощи функции InputBox:
Dim x() As Single
Private Sub Button1_Click()
Dim n As Integer, i As Integer
n = CSng(InputBox(" Введите n" ))
ReDim x(0 To n-1)
For i = 0 To n-1
x(i) = CSng(InputBox(" x(" + CStr(i) + " )", " массив аргументов" ))
Next i
EndSub
Изменение размеров массива
Для этого существует оператор ReDim.
Dim MyArray() As String 'а затем в нужном месте Вашей программы объявляете уже конкретное количество элементов
ReDim MyArray(10) As String 'Данная запись оператора ReDim полностью очищает массив от содержимого и создает новый пустой массив.
|
|
|
Для того, чтобы добавить запись в массив, не удаляя содержимого, необходимо его переопределить с ключевым словом Preserve
ReDim Preserve MyArray(10) As String 'Новая запись добавляется в конец массива.
Сортировка
Private Sub sortVa ()
Dim 1Va (2) As String
1Va (0) = " lion"
1Va (1) = " turtle"
1 (2) = " ostrich"
Array. Sort(1Va)
End Sub
Циклический сдвиг
For I=0 to N-1
A(I)=A(I+1)
Next I
35) Типовые программы обработки массивов. Сортировка
36) Подпрограммы VB. Механизм передачи информации между подпрограммами. Передача аргументов по ссылке. Передача аргументов по значению.
Подпрограмма – это отдельная функционально независимая часть программы. Любая подпрограмма обладает той же структурой, которой обладает и вся программа.
Процедура Sub — это последовательность операторов Visual Basic, заключенных между операторами Sub и End Sub. Процедура Sub выполняет задачу и возвращает контроль коду вызова, но она не возвращает значения в код вызова.
При каждом вызове процедуры ее операторы выполняются, начиная с первого исполняемого оператора после оператора Sub и заканчивая первым из операторов End Sub, Exit Sub или Return.
Процедуру Sub можно определять в модулях, классах и структурах. По умолчанию она является Public, что означает, что ее можно вызывать из любого места в приложении, которое имеет доступ к модулю, классу или структуре, в котором она определена. Другими словами, method описывает процедуру Sub или Function, доступ к которой осуществляется вне модуля, класса или структуры, в которой определена эта процедура. Дополнительные сведения см. в разделе Процедуры в Visual Basic.
Процедура Sub может принимать аргументы, например константы, переменные или выражения, которые передаются ей вызывающим кодом.
Для объявления процедуры Sub используется следующий синтаксис:
[ модификаторы ] Sub дополнительное_имя [( список_параметров )]
' Statements of the Sub procedure.
|
|
|
End Sub
Механизм передачи информации между подпрограммами.
Подпрограммы и функции не окончательно изолированы от остальной части, приложения. Большинство процедур принимает аргументы от вызывающей программы. Напомним: аргументы являются значениями, предаваемыми процедуре, обрабатывающей их. Это и является способом связи подпрограммы или функции с остальным приложением.
Механизм, используемый при передаче параметров, является одним из наиболее важных моментов работы процедур. В рассматриваемых ранее примерах использовался стандартный механизм: передача аргументов по ссылке. Другой механизм предусматривает передачу аргументов по значению. Чаще используют первый механизм.
Передача аргументов по назначению.
Если элемент кода вызова, содержащийся в аргументе, является неизменяемым, объявите соответствующий параметр ByVal (Visual Basic). Никакой код не может изменить значение неизменяемого элемента.
Если элемент является изменяемым, но процедура не должна изменить его значение, объявите параметр ByVal. Только вызывающий код может изменить значение изменяемого элемента, который передается по значению.
Передача аргументов по ссылке
Если процедуре необходимо изменить базовый элемент в коде вызова, объявите соответствующий параметр ByRef (Visual Basic).
Если правильное выполнение кода зависит от изменения базового элемента в коде вызывающей процедуры, объявите параметр ByRef. Если параметр передается его по значению или код вызова переопределяет ByRef механизма передачи, заключив аргумент в круглые скобки, вызов процедуры может привести к непредсказуемым результатам.
|
|
|
