size_t length() const;         

#include <string>
#include <iostream>
 
using namespace std;
 
int main(int argc, char *argv[])
{
  string str = "C++";
 
  size_t tamanho = str.length();
  cout << "Esta string contém " << tamanho 
    << " caracteres.\n\n"; 
       
  system("PAUSE"); // pausa o programa
  return 0;
}

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // cria e inicializa um array de inteiros
      int[] valores = { 14, 69, 21, 30, 17, 23, 14 };

      Console.Write("Informe o valor a ser pesquisado: ");
      string valor = Console.ReadLine();

      int pos = Array.IndexOf(valores, Convert.ToInt32(valor));

      if (pos > -1) {
        Console.WriteLine("O valor pesquisado foi encontrado no índice: " + pos);
      }
      else {
        Console.WriteLine("O valor pesquisado não foi encontrado.");
      }

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

// declara, constrói e inicializa um vetor de 5 inteiros
int valores[] = {4, 21, 8, 120, 1};

package estudos;

import javax.swing.JOptionPane;

public class Estudos {
  public static void main(String[] args) {
    // declara, constrói e inicializa um vetor de 5 inteiros
    int valores[] = {4, 21, 8, 120, 1};
        
    // vamos ler um valor inteiro
    int pesquisa = Integer.parseInt(JOptionPane.showInputDialog("Valor:"));
        
    // vamos verificar se o valor informado está contido no vetor
    boolean encontrado = false;
    for(int i = 0; i < valores.length; i++){
      if(valores[i] == pesquisa){
        encontrado = true;
        break;
      }
    }
        
    if(encontrado){
       JOptionPane.showMessageDialog(null, "O valor está no vetor");
    }
    else{
       JOptionPane.showMessageDialog(null, "O valor não está no vetor");
    }
  }
}

' Esta macro AutoCAD VBA demonstra como podemos
' calcular a distância entre dois pontos na área de
' desenho do AutoCAD
Sub DistanciaDoisPontos()
  ' vamos declarar os dois pontos geométricos
  Dim p As Variant
  Dim q As Variant
  ' para guardar as coordenadas temporárias
  Dim x As Double, y As Double, z As Double
  ' para guardar a distância
  Dim distancia As Double

  ' vamos pedir para o usuário informar os dois pontos
  p = ThisDrawing.Utility.GetPoint(, vbCrLf & _
    "Indique o primeiro ponto: ")
  q = ThisDrawing.Utility.GetPoint(p, vbCrLf & _
    "Indique o segundo ponto: ")

  ' agora calculamos a distância entre os dois pontos informados
  x = p(0) - q(0)
  y = p(1) - q(1)
  z = p(2) - q(2)
  distancia = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
 
  ' e mostramos o resultado
  MsgBox "A distância entre os dois pontos é: " & distancia
End Sub