Tuesday 11/30/2010

Dim numbers(,) As Integer = {{1, 2}, {3, 4}, {5, 6}, {7, 8}}
Dim numberOfRows As Integer = numbers.GetLength(0)
Dim numberOfColumns As Integer = numbers.GetLength(1)
Dim sumOfFirstRow As Integer = numbers(0, 0) + numbers(0, 1)

Dim numbersString As String = " "
For i As Integer = 0 To numbers.GetLength(0) - 1
For j As Integer = 0 To numbers.GetLength(1) - 1
numbersString &= numbers(i, j) & " "
Next
numbersString &= vbCrLf
Next
MessageBox.Show(numbersString, "Numbers Test")

Here is a tutorial dealing with ticks

Dim ticksBefore As Long
Dim ticksAfter As Long
Dim tickSeconds As Double

Do
ticksBefore = Now.Ticks
Console.WriteLine("Press enter to see elapsed time")
Console.ReadLine()
ticksAfter = Now.Ticks
tickSeconds = (ticksAfter - ticksBefore) / 10000000.0
Console.WriteLine("Elapsed time: " & tickSeconds.ToString)
Console.WriteLine()
Loop

Here is a tutorial I wrote on a rectangular array containing strings

Dim recArray(4, 4) As String
Dim wholeString As String = ""

recArray(0, 0) = "Mary"
recArray(0, 1) = "Thompson"
recArray(1, 0) = "John"
recArray(1, 1) = "Martin"
recArray(2, 0) = "Kirstin"
recArray(2, 1) = "Newbury"

For y = 0 To recArray.GetUpperBound(0)
For x = 0 To recArray.GetUpperBound(1)
wholeString = recArray(y, 0) & " " & recArray(y, 1)
Next
Console.WriteLine(wholeString)
Next

Console.ReadLine()