Resolución de uno de los ejercicios de la evaluación. (Para ver y analizar en clase).
Private Sub CommandButton1_Click()
Dim b As String
Dim i As Integer
Dim p As String
Dim t As String
Dim s As Integer
Dim c As Integer
Dim c1 As Integer
Dim j As Integer
Dim li As String
Dim ld As String
Dim g As Integer
Dim f As Integer
Rem' Ingreso de palabras
For i = 1 To 5
b = UCase(InputBox("Ingresa palabra"))
Rem' para ver si terminan en s
s = Len(b)
p = Right(b, 1)
t = Left(b, 1)
If p = "S" Then
Rem' cuenta palabras en plural
c = c + 1
End If
Rem' para ver si comienza con a
If t = "A" Then
Rem' cuenta palabras que comienzan con a
c1 = c1 + 1
End If
Rem'para ver si es palíndromo
f = 0
For j = 1 To s
li = Mid(b, j, 1)
ld = Mid(b, s - j + 1, 1)
If li <> ld Then
f = f + 1
End If
Next j
If f = 0 Then
MsgBox ("es palíndromo ")
Rem' cuenta palíndromos
g = g + 1
Else
MsgBox ("no es palíndromo")
End If
Next i
MsgBox ("en plural: " & c & " Que comienzan con A: " & c1 & " Palíndromos: " & g)
End Sub
Aclaración: la palabra rem ' significa que lo que sigue es un comentario no una instrucción, lo puse para que no se pierdan y distingan las distintas partes del programa.
a) Probar el ejercicio en su pc y verificar su eficacia.
b) Completar la prueba de escritorio para un lote de datos cualquiera.
Ejercicios del día:
1) Ingresar una frase por teclado. Informar la cantidad de palabras que forman la frase. Pista: las palabras están separadas siempre por 1 espacio en blanco.
2) Ingresar una frase por teclado. Informar la cantidad de letras en total, sin contar los espacios.
3) Crear un programa que genere una escala descendente. El desde, el hasta y el intervalo ingresan por teclado. (Utilizar: For I=A to B step C)
