[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » VB массивы (VB массивы)
VB массивы
ilimДата: Пятница, 04.02.2011, 05:31 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Online
Массив нужен для того чтоб писать меньше кода(но это только в том случае, если переменные имеют много общего), и если его использовать программа будет быстрее работать.
В массиве могут участвовать переменные и объекты, начнем с переменных:
Скажу только что массиве используются(переменные ил объекты) с одинаковыми именами, и почти всегда в цикле.
Для объявления массива надо написать:
Dim Mass(число) As Тип(ну там Long, String...)
Например:
Dim Mass(10) As Long
Теперь сделаем простую программу(Заполнение массива). Код:

Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов
Private Sub Form_Load()
' Заполняем массив:
Mass(0) = "Хей" ' только надо помнить, что самый первый индекс равен 0
Mass(1) = "Бляха"
Mass(2) = "..."
' ...
Mass(10) = "The End(т.е. - упор)" ' И так до упора
End Sub

Вот пример заполнения массива автоматом, программа с помощью оператора Rnd заполняет массив значением 0 ил словом "Bla", в конце выводится сообщение, в котором написанно как массив заполнен. Вот код:

Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов
Dim r As Long ' Переменная для хранения чисел
Dim G As String ' Переменная для хранения символов
Private Sub Form_Load()
Randomize ' Это чтоб в функции Rnd генерировались разные числа
For i = 0 To 10 ' Цикл, будет 10 раз повторяться
Mass(i) = 0 ' Все числа массива приравниваем к 0
r = Rnd * 1 ' Генерируем случайное число(от 0 до 1) и записываем его в переменную R
If r = 0 Then ' Если R=0 то:
Mass(i) = "Bla" ' Записываем в массив(индекс зависит от переменной i) слово "Bla"
End If
G = G & i & " = " + Mass(i) + Chr(13) ' Переменная G = G(это содержимое переменной)&i(это перенная содержит число повторений цикла) + " = " + Mass(i)(значение массива(ил "Bla" ил "0")) + Chr(13)(ну это Enter(т.е. новая строка))
Next i
MsgBox G, 48, "" ' Выводим сообщение с содержанием G(а G содержит значение массива)
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » VB массивы (VB массивы)
Страница 1 из 11
Поиск: