'Este exemplo mostra como obter a diferença de dias
'entre duas datas

Module Module1
  Sub Main()
    Dim inicio As New DateTime(2007, 5, 1) 'ano, mês, dia
    Dim fim As New DateTime(2007, 5, 20) 'ano, mês, dia
    Dim dif As TimeSpan = fim.Subtract(inicio)
    Dim dias As Integer = dif.Days

    'exibe a diferença em dias
    Console.WriteLine("A diferença é de: " & dias & " dias")

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim var1 As String ' ainda não foi inicializada...é null
    Dim var2 As String = Nothing ' é null
    Dim var3 As String = "" ' está vazia

    If String.IsNullOrEmpty(var1) Then
      Console.WriteLine("A variável var1 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var2) Then
      Console.WriteLine("A variável var2 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var3) Then
      Console.WriteLine("A variável var3 ainda é null ou vazia")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim valor As Integer = 7

Select Case valor
  Case 1 To 5
    Console.WriteLine("Entre 1 e 5 (inclusive)")
  Case 6, 7, 8
    Console.WriteLine("Entre 6 e 8 (inclusive)")
  Case 9 To 10
    Console.WriteLine("Igual a 9 ou 10")
  Case Else
    Console.WriteLine("Não encontrado no teste")
End Select

# cria uma string
palavra = "BRASIL"
print("A letra é: {0}".format(palavra(2)))

var a = new Array();
a[0] = 12;
a[1] = false;
a[2] = "texto";
a[3] = a;