Module Estudos

  Sub Main()
    ' declara um array de strings
    ' Nota: o array contém 10 elementos, cujos índices
    ' vão de 0 à 9
    Dim cidades(9) As String

    ' define um valor para o terceiro elemento
    cidades(2) = "Goiânia"

    ' exibe o valor do 3º elemento
    Console.WriteLine(cidades(2))

    ' pausa o programa
    Console.WriteLine("Pressione qualquer tecla para fechar...")
    Console.ReadKey()
  End Sub

End Module

Imports System

Module Program
  Sub Main(args As String())
    Dim palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If String.Compare(palavra1, palavra2) = 0 Then
      Console.WriteLine("As duas strings são iguais")
......

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

Imports System

Module Program
  Sub Main(args As String())
    ' vamos pedir ao usuário que informe um número inteiro
    Console.Write("Informe um número inteiro: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' vamos calcular o sucessor do número informado
    Dim sucessor As Integer = numero + 1

    ' vamos calcular o antecessor do número informado
    Dim antecessor As Integer = numero - 1
......

Dim numero As Integer = 0

While numero <= 10
......

Dim numero As Integer = 10

While numero >= 0
......

Dim pode As Boolean = True
Dim valor As Integer = 1

While pode
  Console.WriteLine(valor)
......