Базовые программы обработки одномерного массива
1) Ввод одномерного массива
Пусть имеется одномерный массив из n элементов x1,x2,…,xn.
Опишем и введем этот массив:
a) Ввод при помощи текстового окна:
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(TextBox1.Text)
Next i
End Sub
b) Ввод при помощи функции 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
End Sub
Изменение размеров массива 'Изменение размеров массива очень удобно, когда Вы не знаете сколько
'элементов в нем будет содержаться. Для этого существует оператор 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