import java.io.FileReader;
import java.io.IOException;
import java.io.StreamTokenizer;


public class Palabras {

	int cont_pal =0;
	int cont_num =0;
	
	public Palabras()throws IOException
	{
		StreamTokenizer st = new StreamTokenizer(new FileReader("C:/Users/T800/Desktop/perro.txt"));
		while(st.nextToken() != StreamTokenizer.TT_EOF){
			
			if(st.ttype == StreamTokenizer.TT_WORD){
				cont_pal++;
			}
			else if(st.ttype == StreamTokenizer.TT_NUMBER){
				cont_num++;
			}
	
		}
		
	System.out.println("Numero de palabras: "+cont_pal);
	System.out.println("Numero de palabras: "+cont_num);
	}
	
	public static void main(String[] args) throws IOException {
		
		new Palabras();
		

	}

}

#include<stdio.h> 
 #include<stdlib.h> 

 struct fecha 
 { 
  int dia, mes, year; 
 } fechauno, fechados; 

 int main (void) 
 { 
  int a, m, d, total; 
   
  printf("Dame la primera fecha más reciente (dd/mm/aa):\n"); 
  scanf("%d*%d*%d", &fechauno.dia , &fechauno.mes, &fechauno.year); 
  printf("Dame la segunda fecha (dd/mm/aa):\n"); 
  scanf("%d*%d*%d", &fechados.dia , &fechados.mes, &fechados.year); 
   
  a = (fechauno.year - fechados.year) * 365; 
  m = (fechauno.mes - fechados.mes) * 30; 
  d = fechauno.dia - fechados.dia; 
  
  total = a + m + d; 
   
  printf("\n\nHay %d días entre las dos fechas insertadas.\n"); 
  system(" pause "); 
  return 0; 
 }

Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + "2"
End Sub

....

Private Sub Command2_Click()
If Text1.Text = "1111" Then
Form2.Show
Else: MsgBox "error de clave"
End If

If Text1.Text = "3312" Then
Form3.Show
Else: MsgBox "error de clave"
End If
End Sub