Verified answer

Te envio el codigo del programa, espero que sea lo que consultas:

Pero te explico, utilizamos las funciones ASC para determinar el codigo ascci de cada letra.

Los codigo ascii de mayusculas van del 65 al 90 y las minusculas van de 97 a 122 entonces vamos leyendo cada caracter (utilizando la funcion MID) de la palabra introducida y verificamos si esta entre estos rangos y contamos la cantidad de mayusculas y la cantidad de minusculas.

Solo necesitas abrir un nuevo proyecto de visual basic agregar un boton con el nombre Command1 y copiar el código.

Espero haberte ilustrado.

Private Sub Command1_Click()

Dim texto As String

Dim contMayusculas As Integer

Dim contMinusculas As Integer

texto = InputBox("Introduzca un Texto", "Cuenta Mayusculas y Minusculas")

contMayusculas = 0

contMinusculas = 0

For i = 1 To Len(texto)

If Asc(Mid(texto, i, 1)) >= 65 And Asc(Mid(texto, i, 1)) <= 90 Then

contMayusculas = contMayusculas + 1

End If

If Asc(Mid(texto, i, 1)) >= 97 And Asc(Mid(texto, i, 1)) <= 122 Then

contMinusculas = contMinusculas + 1

End If

Next i

MsgBox "La palabra " + texto + " contiene " + CStr(contMayusculas) + " mayuscula(s) y " + CStr(contMinusculas) + " minuscula(s)"

End Sub

Lo siento entendí mal, pero para contar vocales mayusculas y minusculas solamente es mucho mas facil, aqui va el código:

Private Sub Command2_Click()

Dim texto As String

Dim contMayusculas As Integer

Dim contMinusculas As Integer

texto = InputBox("Introduzca un Texto", "Cuenta vocales Mayusculas y Minusculas")

contMayusculas = 0

contMinusculas = 0

For i = 1 To Len(texto)

If Mid(texto, i, 1) = "A" Or Mid(texto, i, 1) = "E" Or Mid(texto, i, 1) = "I" Or Mid(texto, i, 1) = "O" Or Mid(texto, i, 1) = "U" Then

contMayusculas = contMayusculas + 1

End If

If Mid(texto, i, 1) = "a" Or Mid(texto, i, 1) = "e" Or Mid(texto, i, 1) = "i" Or Mid(texto, i, 1) = "o" Or Mid(texto, i, 1) = "u" Then

contMinusculas = contMinusculas + 1

End If

Next i

MsgBox "La palabra " + texto + " contiene " + CStr(contMayusculas) + " vocal(es) mayuscula(s) y " + CStr(contMinusculas) + " vocal(es) minuscula(s)"

End Sub

Crea un arreglo con las vocales mayúsculas y minúsculas, y otro con las consonantes. Mete la cadena y compárala con los arreglos, contabilizando la aparición de cada vocal y consonante. Agrégale tantos arreglos como necesites, por ejemplo, si necesitas uno con las puntuaciones, crea uno con comas, puntos y comas, espacios, puntos, etc. Si quieres sorprender a tu maestro, agrega las vocales acentuadas al arreglo de vocales, así contabilizará también estas y te sacaras un diez.