Cuando yo estudiaba... me dejaban problemas similares... era divertido desarrollarlos
A mi se me ocurre hacerlo de la siguiente manera, pero en ningun momento uso un if ni un do while, es mas por mas que trato de utilizarlos no se me ocurre en donde....
No tengo mi PC a la mano pero te puedo dar una idea...
Crea 3 variables de tipo entero...
Código vb:
Ver originalDIM PACO AS INTEGER
DIM ZONIA AS INTEGER
DIM TOTAL AS INTEGER
Ahora en el evento keypress o keydown del formulario tendrías que hacer algo asi..
no tengo mi pc, como ya dije... por lo que no se cuales son los keycode... para saberlo pordrias usar este codigo
te va a salir un mensaje con el codigo de la letra.
Ahora retomando el prgrama
Código vb:
Ver originalSelect case keycode
case tecla 1 (remplazalo por el keycode de la tecla 1):
PACO = PACO +1
case tecla 2 (remplazalo por el keycode de la tecla 2):
ZONIA = ZONIA+1
case tecla 0 (remplazalo por el keycode de la tecla 0):
TOTAL=PACO +ZONIA
msgbox "Paco tubo " & PACO & " votos con un porcentaje de " & TOTAL * PACO/100 & "ZONIA tubo " & ZONIA & " votos con un porcentaje de " & TOTAL * ZONIA /100 & " Total de votos emitidos " & TOTAL
'VACEAMOS LAS 3 VARIABLES PARA REINICIAR TODO
PACO=0
ZONIA =0
TOTAL =0
End selct
Puede que mi logica no este bien... ya que no tengo mi pc a la mano... pero ahí esta la idea...