Contar los aciertos

lvaro
01 de Marzo del 2006
Verán, estoy realizando una aplicación para rellenar un text o un exámen y para combrobar que la repuesta es correcta estoy usando las secuencias If...Then...Else, y quería saber qué tengo que hacer para que las puntue, es decir, que si hay 10 cajas de texto con la respuesta correcta automáticamente me ponga en una label la nota, en este caso un 10.Gracias de antemano


epa
01 de Marzo del 2006
Hola Alvaro:

Si por ejemplo tienes 10 preguntas, creas una variable de tipo integer, la cual se valla incrementando en uno por cada acierto(1 en caso de 10 preguntas, si son mas o menos divides la cantidad de preguntas por 10 y eso te de un valor promedio por pregunta)
al finalizar el control haces que te despliegue el resultado de la variable, ya sea en un msgbox, label, etc

ej:
Dim intNota as integer

If resultado1 = respuesta1 then
intNota = intNota + 1
ElseIf resultado2 = respuesta2 then
intNota = intNota + 1
End if
ETC...

lblNota.caption = intResultado