Imports System
Public Module Module1
Public Sub Main()
Dim i, j As Integer
Dim o as object
Dim Matrix(0 To 20, 0 To 2) As Integer
Matrix(0, 0) = 0
Matrix(0, 1) = 0
Matrix(0, 2) = 0
For i = 1 to 20 Step 1
For j = 0 to 2 Step 1
If j = 0 Then
Matrix(i, j) = i
ElseIF j = 1 Then
Matrix(i, j) = i * 3
ElseIf j = 2 Then
Matrix(i, j) =(i - 1) * 2
End If
Next
For i = 0 to 20 Step 1
Console.Write("[" & Matrix(i, j) & ", ")
ElseIf j < 2 Then
Console.Write(Matrix(i, j) & ", ")
Console.WriteLine(Matrix(i,j) & "]")
Else
Console.WriteLine(Matrix(i, j))
End Sub
End Module
