public class Estudos{
  public static void main(String[] args){
    int valor = 4;

    switch(valor){
      case 1:
        System.out.println("Valor é 1"); 
        break;
      case 2:
        System.out.println("Valor é 2"); 
        break;
      case 3:
        System.out.println("Valor é 3"); 
        break;
      default:
        System.out.println("Valor diferente de 1, 2 e 3"); 
        break;
    }   
  }
}

Estudos.java:5: possible loss of precision
found   : long
required: int
    switch(valor){
           ^
1 error

static void Main(string[] args){
  // vamos obter a data de hoje
  DateTime hoje = DateTime.Now;

  // exibe a data de hoje
  System.Console.WriteLine("Hoje é {0:d}", hoje);

  // vamos adicionar 3 meses à data de hoje
  DateTime data_futura = hoje.AddMonths(3);

  // exibe a data daqui a três meses
  System.Console.WriteLine("Daqui a 3 meses será {0:d}", data_futura);

  // pausa o programa
  System.Console.Write("\nPressione qualquer tecla para sair...");
  Console.ReadKey();
}

static void Main(string[] args){
  // vamos obter a data de hoje
  DateTime hoje = DateTime.Now;

  // exibe a data de hoje
  System.Console.WriteLine("Hoje é {0:d}", hoje);

  // vamos subtrair 5 meses da data de hoje
  DateTime data_passado = hoje.AddMonths(-5);

  // exibe a data 5 meses atrás
  System.Console.WriteLine("Há 5 meses era {0:d}", data_passado);

  // pausa o programa
  System.Console.Write("\nPressione qualquer tecla para sair...");
  Console.ReadKey();
}

# nome e caminho do diretório a ser testado
diretorio = "C:\\estudos_ruby\\escola"

if File.exist? diretorio
  puts "O diretório existe"
else
  puts "O diretório não existe"
end

Console.WriteLine("O tipo decimal ocupa " + sizeof(decimal) +
  " bytes");

decimal valor = 34.50;

Literal of type double cannot be implicitly converted 
to type 'decimal'; use an 'M' suffix to create a 
literal of this type

decimal valor = 34.50m;

decimal valor = 34;

var
  valor: integer;
  pvalor: ^integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: integer;
  pvalor: ^integer;
begin
  // atribui um valor à variável valor
  valor := 20;

  // vamos atribuir à pvalor o endereço de valor
  pvalor := @valor;

  // vamos usar o ponteiro pvalor para alterar o
  // valor de valor
  pvalor^ := 30;

  // vamos obter o novo valor da variável valor
  ShowMessage('Valor de valor: ' + IntToStr(valor));
end;

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "Gosto muito de VB.NET e você?"
    Dim letra As Char = "o"
    Dim quant As Integer = 0
    Dim pos As Integer = -1, pos_ant As Integer = -1
    Dim cont As Integer = 0

    ' mostra a frase
    Console.WriteLine("A frase é: " & frase)

    While cont < frase.Length
      pos = frase.IndexOf(letra, cont)
      If pos <> pos_ant And pos <> -1 Then
        Console.WriteLine("""" & letra &
          """ encontrada na posição " & pos)
        quant += 1
      End If
      cont += 1
      pos_ant = pos
    End While

    ' mostra a quantidade de ocorrências da letra "o"
    Console.WriteLine("Encontrei " & quant & " ocorrências da " _
       & "letra " & letra)

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