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

#include <string>
#include <iostream>

using namespace std;

int main(int argc, char *argv[]){
  string str = "Gosto muito de PHP";
  string temp;

  // vamos percorrer os caracteres da primeira string
  // e adicioná-los na segunda um de cada vez
  for(int i = 0; i < str.length(); i++){
    temp.push_back(str[i]);
  }

  // exibe o resultado
  cout << temp << "\n\n";

  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

#include <string>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
  string str = "Gosto muito de PHP";
  string temp;

  // vamos percorrer os caracteres da primeira string
  // e adicioná-los na segunda um de cada vez.
  // desta vez vamos obter o resultado invertido
  for(int i = str.length() - 1; i >= 0; i--){
    temp.push_back(str[i]);
  }

  // exibe o resultado
  cout << "String original: " << str << endl;
  cout << "String invertida: " << temp << endl;;

  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

<?
  // vamos efetuar a conexão com o banco
  $con = new mysqli("localhost", "root",
    "osmar1234", "estudos");

  // conexão efetuada com sucesso?
  if($con->connect_errno){
    echo "Não foi possível efetuar a conexão: " . 
      $mysqli->connect_error;
    exit(); // vamos sair daqui 
  }

  // obtém os nomes dos campos da tabela, seus tipos e 
  // detalhes adicionais
  $query = mysqli_query($con, "SHOW FULL COLUMNS FROM usuarios");
 
  // títulos da tabela HTML
  $titulos = array('Campo', 'Tipo', 'Collation', 'Null', 
    'Chave', 'Padrão', 'Extra');
 
  echo '<table border="1"><tr>';
  
  for($i = 0; $i < count($titulos); $i++){
    echo '<td>' . $titulos[$i] . '</td>'; 
  }    
   
  echo '</tr>';
 
  while($result = mysqli_fetch_array($query)){  
    echo '<tr>';
   
    for($i = 0; $i < count($titulos); $i++){
      echo '<td>' . $result[$i] . '&nbsp;</td>';     
    }   

    echo '</tr>';
  }
 
  echo '</table>';
  
  mysqli_close($con); // fecha a conexão 
?>

# vamos criar um novo objeto QgsVectorLayer com o local
# do nosso shapefile
camada = QgsVectorLayer("C:\\dados\\GO_Municipios_2022.shp",
  "Municípios Estado de Goiás", "ogr")

# vamos testar se a camada é válida  
if not camada.isValid():
  print("Não foi possível carregar a camada %s" % camada.name())
else:
  # vamos adicionar a camada à relação de camadas  
  QgsProject.instance().addMapLayer(camada)

using System;

namespace Estudos{
  class Program{
    static void Main(string[] args) {
      string texto = "  temos espaços no início e fim   ";
      Console.WriteLine("Com espaços: ." + texto + ".");

      // remove os espaços no fim da string
      texto = texto.TrimEnd();
      Console.WriteLine("Sem espaços: ." + texto + ".");

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

Com espaços: .  temos espaços no início e fim   .
Sem espaços: .  temos espaços no início e fim.