/*
 Este exemplo mostra como obter a quantidade de
 palavras em um TextBox. 

 Veja que usamos a técnica de contar as palavras
 contidas em um array após retirar as quebras de
 linhas e espaços duplicados na string. 
*/
    
private void button1_Click(object sender, EventArgs e){
  // Obtém o texto da caixa de texto
  string texto = textBox1.Text.Trim();

  // Remove as quebras de linhas substituindo-as por
  // espaços
  texto = texto.Replace(Environment.NewLine, " ");

  // remove os espaços em excesso
  while(texto.IndexOf("  ") >= 0){
    texto = texto.Replace("  ", " ");
  }

  // Obtém um array de palavras
  string[] palavras = texto.Split(" ");

  // Obtém a quantidade de palavras
  int quant = palavras.Length;

  // Exibe o resultado
  MessageBox.Show("O TextBox contém " + quant + 
    " palavras.");
}

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

<?
  // 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 a quantidade de colunas de uma determinada tabela
  $query = "SELECT * FROM produtos";
  $result = mysqli_query($con, $query);
  echo "Esta tabela (retornada) possui " . 
    mysqli_field_count($con) . " colunas";
  
  // vamos fechar a conexão
  mysqli_close($con);
?>

<?
  // 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: " . 
      $con->connect_error;
    exit(); // vamos sair daqui 
  }   
 
  // obtém a quantidade de colunas de uma determinada tabela
  $con->query("SELECT * FROM produtos");  
  echo "Esta tabela possui " . $con->field_count .
    " colunas";
  
  // vamos fechar a conexão
  $con->close();
?>

procedure TForm3.Button1Click(Sender: TObject);
var
  valores: array[11..20] of Integer;
  inicio, fim: Integer;
begin
  // vamos obter o índice inicial do vetor
  inicio := Low(valores);

  // vamos obter o índice final da vetor
  fim := High(valores);

  // vamos exibir o resultado
  ShowMessage('O índice inicial do vetor é: ' + IntToStr(inicio));
  ShowMessage('O índice final do vetor é: ' + IntToStr(fim));
  ShowMessage('O tamanho do vetor é: ' + IntToStr((fim - inicio) + 1));
end;