package arquivodecodigos;

// Este exemplo mostra como verificar se uma
// string é um valor númerico
public class Estudos {

  public static void main(String[] args) {
    String valor = "2334554";
    boolean valido = true;

    for (int i = 0; i < valor.length(); i++) {
      Character caractere = valor.charAt(i);
      if (!Character.isDigit(caractere)) {
        valido = false;
        break;
      }
    }

    if (valido) {
      System.out.println("Valor numérico valido");
    } 
    else {
      System.out.println("NãO é um valor numerico valido");
    }

    System.exit(0);
  }
} 

Imports System

Module Program
  Sub Main(args As String())
    Dim site As String = "Arquivo de Códigos"

    ' obtém o tamanho da string
    Dim tam As Integer = site.Length

    Console.WriteLine("A string contém " & tam &
      " caracteres")

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

Informe o primeiro valor: 3
Informe o segundo valor: 7
3 vezes 7 é 21

; Vamos definir as variáveis que vamos
; usar no programa
(defvar n1)
(defvar n2)
(defvar produto)

; Este o programa principal
(defun Multiplicacao()
  ; Vamos ler o primeiro valor
  (princ "Informe o primeiro valor: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  (setq n1 (read))
  ; Vamos ler o segundo valor
  (princ "Informe o segundo valor: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  (setq n2 (read))
  
  ; Agora vamos efetuar a multiplicação dos
  ; dois valores informados
  (setq produto (* n1 n2))
  
  ; E mostramos o resultado
  (format t "~D vezes ~D é ~D" n1 n2
    produto)
)

; Auto-executa a função Multiplicacao()
(Multiplicacao)

using System;

namespace Estudos{
  class Program{
    static void Main(string[] args) {
      // cria e inicializa um array de strings
      string[] cidades = {"Goiânia", "São Paulo",
     "Rio de Janeiro", "Curitiba"};

      Console.WriteLine("Ordem original:");
      for (int i = 0; i < cidades.Length; i++)
        Console.WriteLine(cidades[i]);

      // inverte a ordem dos elementos
      Array.Reverse(cidades);

      // exibe os elementos na ordem inversa
      Console.WriteLine();
      Console.WriteLine("Ordem inversa:");
      for (int i = 0; i < cidades.Length; i++)
        Console.WriteLine(cidades[i]);

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