Programación VB para contar el número de letras mayúsculas en un archivo determinado
2 errores
La entrada no se lee carácter por carácter, por lo que lo que obtienes para n no es la cantidad total de datos.
Has llegado al final del archivo, pero aún estás leyendo (Entrada?#1,?C), por lo que aparece un error.
Puedes contar caracteres mientras lees
¿Abrir?"f:\wj15.txt"? "Para "Entrada?¿Como?#1
¿Hacer?Mientras?No?EOF(1)
Entrada?¿Como?#1
¿Hacer?¿Mientras? EOF(1)
Entrada?p>
Entrada?#1,?x
Para?i?=?1?A?Len(x)
C?=?Asc(Mid(x,?i,?1))
Si?C?>=?65?Y?C?<=?90?Entonces ?a?=?a?+?1
Siguiente?i
Bucle
Cerrar?#1
¿Imprimir?