VB2019 VB2017 VB2015 VB2013 VB2012 VB2010 VB2008 VB6 VB Sample Code 中文VB About Us

Lesson 10 Creating Arrays


In this Lesson, we shall learn how to work with a group of variables. A group of variables of the same data type is known as an array in Visual Basic 2015. To work with a single item, we only need to declare one variable. However,  to deal with multiple items of similar type, we need to declare an array of variables. Otherwise, it will be rather tedious and time-consuming to declare one hundred different names. In order to fix the issue, we declare only one array to store those names. We differentiate each item in the array by using subscript, for example, name(1), name(2),name(3) .......etc.

A two-dimensional array in Visual Basic 2015 is a table of items that is made up of rows and columns. The way to reference an element in a one-dimensional array is ArrayName(x), where x is the index or position number of the element. The way to reference an element in a two-dimensional array is ArrayName(x,y), where (x,y) is the index or position number of the element. Usually, it is sufficient to use one dimensional and two-dimensional array , you only need to use higher dimensional arrays if you need to deal with more complex problems. Let me illustrate the arrays with tables.

10.2 Dimension of an Array

In Visual Basic 2015, an array can be one-dimensional or multidimensional. One dimensional array is like a list of items or a table that consists of one row of items or one column of items.

Table 10.1: One Dimensional Array
Student Name Name(0) Name(1) Name(2) Name(3) Name(4) Name(5) Name(6)
Table 10.2: Two Dimensional Array
Name(0,0) Name(0,1) Name(0,2) Name(0,3)
Name(1,0) Name(1,1) Name(1,2) Name(1,3)
Name(2,0) Name(2,1) Name(2,2) Name(2,3)
Name(3,0) Name(3,1) Name(3,2) Name(3,3)

10.2 Declaring Arrays

In Visual Basic 2015, we can use the Public or Dim statement to declare an array just as the way we declare a single variable. The Public statement declares an array that can be used throughout an application while the Dim statement declares an array that could be used only in a local procedure or module. The statement to declare a one-dimensional array is as follows:

Dim arrayName(n) as dataType

where n indicates the last index in the array. Please note that n does not indicate the number of elements in the array, it is one less than the number of elements (n-1) because the first element is always the zeroth element. The first element is arrayName(0), the second element is arrayName(1), the third element is arrayName(2) and so on. The number of elements in an array is also known as length, we can retrieve the length of an array using the syntax arrayName.length  For example,

Dim CusName(10) as String

will declare an array that consists of  11 elements starting from CusName(0) through to CusName(10)

To find out the length of the array, you can write the following code:

Example 10.1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim CusName(10) As String
MsgBox(CusName.Length)

End Sub

Running the program will produce a message box that displays the length of the array i.e 11, as shown in Figure 10.1

VB2013_figure10.1
Figure 10.1

You might also declare an array with a non-zero starting index buy initialize an index value other than zero, as follows:

Dim arrayname As DataType()

arrayName=New String(){1,2,3,....,n)

This array will consist of n elements, starting with arrayName(1)

 Example 10.2

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim CusName As String()
CusName = New String() {1, 2, 3}
MsgBox(CusName.Length)

End Sub

The message box will display the length as 3

 

The statement to declare a two-dimensional array is as follow:

Dim ArrayName(m,n) as dataType

where m and n indicate the last indices in the array. The number of elements or the length of the array is (m+1)x(n+1)

Example 10.3

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim CusName(5,6) As String
MsgBox(CusName.Length)

End Sub

Running the visual basic 2015 program and the message box will display a length of 42, as shown in Figure 10.2

VB2013_figure10.2
Figure 10.2

Example 10.4

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim num As Integer
Dim CusName(5) As String

For num = 0 To 5
CusName(num) = InputBox("Enter the customer name", "Enter Name")
ListBox1.Items.Add(CusName(num))
Next
End Sub

This program will prompt the user to enter names in an input box for a total of 6 times and the names will be entered into a list box, as shown in Figure 10.3 and Figure 10.4

VB2013_figure10.3
 Figure 10.3 
VB2013_figure10.4
Figure 10.4 




Copyright©2008 Dr.Liew Voon Kiong. All rights reserved |Contact|Privacy Policy