Программирование
Веб программирование

VB.Net массивы

 
 

Массивы нужны для более удобного хранения информации. По сути массив это та же переменная, но обращаться к ней надо по индексу. Синтаксис:

Dim Переменная(количество индексов) As Тип

Для того, чтобы всё это понять мы сделаем программку(Заполнение массива случайными числами). На форме размести 1 метку(Label), 3 кнопки(У Button1 свойство Text = "Назад", Button2.Text = "Вперед", Button3.text = "Все содержимое"). Код:

Public Class Form1
Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Dim Mass(10) As Byte' Объявляем массив состоящий из 10 элементов, объявляем типом Byte, т.к. нам надо в нем хранить числа меньше 255(можно объявить Integer, но зачем тратить лишние 3 байта оперативной памяти?)
Dim i As Byte
Dim Number As Byte = 5

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load' При загрузке формы:
Randomize()' Если ты не забыл, этот оператор нужен чтобы функция Rnd() генерировала всегда разные числа

For i = 0 To 10' Цикл длится от 0 до 10
Mass(i) = Fix(Rnd() * 100) ' Заполняем массив случайными числами
Next i
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click' При нажатии на кнопку 'Назад':
Button2.Enabled = True' Разблокируем Button2

If Number <= 0 Then' Если переменная Number меньше 0, то:
Button1.Enabled = False' Блокируем кнопку 'Назад'
Else' Если переменная Number больше 0, то в метке показываем значение предыдущего массива:
Number = Number - 1
Label1.Text = "Индекс массива: " & Number & ". Значение: " & Mass(Number) & "."
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click' При нажатии на кнопку 'Вперед':

Button1.Enabled = True' Разблокируем Button1

If Number >= 10 Then' Если переменная Number больше 10, то:
Button2.Enabled = False' Блокируем кнопку 'Вперед'
Else' Если переменная Number меньше или равна 10, то в метке показываем значение слудующего массива:
Number = Number + 1
Label1.Text = "Индекс массива: " & Number & ". Значение: " & Mass(Number) & "."
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click' При нажатии на кнопку 'Всё содержимое':
Dim All As String

For i = 0 To 10' В цикле записываем все значения массивов в переменную, функция vbCrLf нужна для перевода строки:
All = All & "Индекс массива: " & i & ". Значение: " & Mass(i) & vbCrLf
Next i
MsgBox(All)
End Sub
End Class 

Возможно это не самый наглядный пример использования массива, но главное не это, главное чтобы ты понял что такое массив, и как его объявлять. Кстати, если ты сам не знаешь сколько должен хранить массив то надо писать так:

Dim mass() As Integer 

Исходник


Есть вопросы? Спроси на нашем форуме!!
Миша [16.05.2011 15:56]

Не находит ошибок. Но когда нажимаю F5 он мне просто показывает пустое окно формы :( хотя на форму я перетащил и все три кнопки и метку :(

доброжелатель [15.06.2011 03:36]

можно объявить Integer, но зачем тратить лишние 3 байта оперативной памяти? Если так беспокоетесь о памяти, то в конце надо была

Erase Mass

антон [30.07.2011 12:35]

а как же обьявить redim mass(такойто индекс)??
ато ошибку в след уроке выдает

Олег [15.10.2011 23:38]

Как создать массив елементов управления WPF?

Xamelion [10.12.2011 22:44]

еще бы урок как брать данные из эксель таблицы

Ваня [05.12.2012 13:01]

Он там ошибок куча допустил((



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.