'Este exemplo mostra como obter o nome do diretório
'a partir do qual a aplicação está sendo executada

Module Module1
  Sub Main()
    Dim dir As String = Environment.CurrentDirectory

    Console.WriteLine("O diretório atual é: " & dir)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

Informe o valor para a linha 0 e coluna 0: 3
Informe o valor para a linha 0 e coluna 1: 7
Informe o valor para a linha 0 e coluna 2: 9
Informe o valor para a linha 1 e coluna 0: 2
Informe o valor para a linha 1 e coluna 1: 4
Informe o valor para a linha 1 e coluna 2: 1
Informe o valor para a linha 2 e coluna 0: 5
Informe o valor para a linha 2 e coluna 1: 6
Informe o valor para a linha 2 e coluna 2: 8

   3   7   9
   2   4   1
   5   6   8

A soma dos elementos da diagonal principal é: 15

Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17