Informe o ano: 2024
O ano informado é bissexto.

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos solicitar que o usuário informe um ano
    Console.Write("Informe o ano: ")
    Dim ano As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar se o ano informado é bissexto
    If (((ano Mod 4 = 0) And (ano Mod 100 <> 0)) Or (ano Mod 400 = 0)) Then
      Console.WriteLine("O ano informado é bissexto.")
    Else
      Console.WriteLine("O ano informado não é bissexto.")
    End If

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

End Module

package arquivodecodigos;

public class Estudos{
  public static void main(String[] args){
    int valores[][] = {{1, 2, 3}, {4, 5, 6}};
     
    // varre todos os elementos do array e os
    // exibe usando linhas e colunas
    for(int lin = 0; lin < valores.length; lin++){
      for(int col = 0; col < valores[lin].length; col++){
        System.out.printf("%d  ", valores[lin][col]);
      }
      System.out.println();
    }     
 
    System.exit(0);
  }
}

1  2  3  
4  5  6

<?
  class Pessoa{
    private $nome;
  }

  $pessoa = new Pessoa;
  $pessoa->nome = "Osmar J. Silva";
?>

Fatal error: Cannot access private property 
Pessoa::$nome in C:\Apache_Web_Server\htdocs\testes.php 
on line 7

<?
  class Pessoa{
    private function somar($a, $b){
      return $a + $b;
    }
  }

  $pessoa = new Pessoa;
  echo $pessoa->somar(4, 2);
?>

Fatal error: Call to private method Pessoa::somar() 
from context '' in C:\Apache_Web_Server\htdocs\testes.php 
on line 9

package arquivodecodigos;

import java.util.regex.*;
 
public class Estudos{ 
  public static void main(String args[]){ 
    String padrao = "\\s";
    Pattern regPat = Pattern.compile(padrao);
    String frase = "Esta frase contém alguns espaços"; 
    System.out.println(frase);
    Matcher matcher = regPat.matcher(frase);
    String res = matcher.replaceAll("");
    System.out.println("Sem espaços: " + res);
  } 
}

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