Module Module1
  Sub Main()
    'cria um objeto da classe Cliente
    Dim cl As New Cliente()

    'define o nome do cliente
    cl.DefineNome("Osmar J. Silva")

    'obtém o nome do cliente
    Dim nome As String = cl.ObterNome()

    'exibe o resultado
    Console.WriteLine("O nome do cliente é: " & nome)

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

  'cria a definição da classe Cliente  
  Class Cliente
    'define a propriedade nome
    Private nome As String

    'um método que permite definir o nome do cliente
    Public Sub DefineNome(ByVal nome As String)
      Me.nome = nome
    End Sub

    'um método que permite obter o nome do cliente
    Public Function ObterNome() As String
      Return Me.nome
    End Function

  End Class
  'fim da classe 

End Module

For valor As Integer = 1 To 10 Step 1
  Console.WriteLine(valor)
Next

For valor As Integer = 1

To 10

Step 1

For numero As Integer = 0 To 20 Step 2
  Console.WriteLine(numero)
Next

For numero As Integer = 10 To 0 Step -1
  Console.WriteLine(numero)
Next

Imports System

Module Program
  Sub Main(args As String())
    ' cria um array de inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5}

    ' exibe os valores do primeiro array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    ' cria um segundo array e copia os elementos
    ' do primeiro para o segundo
    Dim valores2() As Integer = {6, 7, 8, 9, 10, 15, 20}
    valores.CopyTo(valores2, 0)
    Console.WriteLine()

    ' exibe os valores do segundo array
    For Each valor As Integer In valores2
      Console.WriteLine(valor)
    Next

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

Imports System

Module Program
  Sub Main(args As String())
    Dim valor As Integer

    Console.Write("Informe um número inteiro: ")
    valor = Val(Console.ReadLine())

    If valor Mod 2 = 0 Then
      Console.WriteLine("O número é par")
    Else
      Console.WriteLine("O número é ímpar")
    End If

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module