Ejercicio de entrenamiento para la primera prueba de VBA:
Ingresar por teclado el nombre y las tres notas trimestrales de 19 alumnos.
Luego de ingresados los datos de la última persona informar:
a) Cantidad de alumnos Aprobados.
b) Cantidad de alumnos que tienen promedio >=6 pero adeudan el 3er trimestre.
c) Cantidad de alumnos que rinden en diciembre.
d) Cantidad de alumnos que rinden en marzo.
e) Promedio general de todas las notas ingresadas.
f) Cantidad de alumnos cuyo nombre tiene más de 15 caracteres.
g) Promedio de notas de los que rinden en marzo.
Recuerden lo sigiente:
InputBox se usa para introducir datos por teclado en una variable:
a=InputBox("Ingrese su edad")
MsgBox se usa para mostrar resultados por pantalla:
MsgBox("El triángulo es escaleno")
If EndIf se usa para bifurcar el programa. Recuerden que ELSE es opcional, es decir que lo usamos cuando nos parezca CONVENIENTE, en cambio el End If es OBLIGATORIO.
For Next se usa para REPETIR todas las instrucciones que están en su INTERIOR:
For i=1 to 5
MsgBox(i)
Next i
mostraría los números del 1 al 5 de a uno por vez.
Dim A as double crea una variable numérica. Estas variables se usan para edades, precios, velocidades, sueldos, contadores, acumuladores, promedios, etc.
Dim B as string crea una variable string. Estas variables se usan para nombres, direcciones, descripciones, etc.
c=c+1 es un contador, se usa siempre dentro de un for next y muchas veces además dentro de un If Endif
s=s+A es un acumulador o sumador, se usa siempre dentro de un for next y muchas veces además dentro de un If Endif
cstr convierte a string un número y se usa para "mezclar" en un MsgBox una leyenda con una variable numérica:
MsgBox("La cantidad de alumnos mayores de 18 años es " & cstr(cant))
en donde cant sería el contador (variable numérica).
len devuelve la cantidad de caracteres que tiene una variable string incluyendo los espacios en blanco, ejemplo:
Dim nom as string, largo as double
nom="Juan Carlos"
largo=len(nom)
MsgBox("La cantidad de caracteres que tiene " & nom & " es " & cstr(largo))
Esto mostraría el mensaje:
La cantidad de caracteres que tiene el nombre Juan Carlos es 11
int devuelve la parte entera de un número, ejemplo:
Dim a as double
a=int(5/2)
Msgbox(a)
esto mostraría 2 porque la parte entera de 2,5 es 2.
No duden en verme el miércoles hasta las 13 hs o el jueves todo el día si tienen dudas.
Éxitos,
Alf
