пользователей: 30398
предметов: 12406
вопросов: 234839
Конспект-online
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

28 ВОПРОС.VB. Типовые программы обработки массивов. Изменение размеров массивов. Сортировка.

Базовые программы обработки одномерного массива

  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

 


10.08.2015; 17:13
хиты: 162
рейтинг:0
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2024. All Rights Reserved. помощь