CLS
DATA WANG,ZHANG,LI
DIM a$(1 TO 3),a(1 TO 3):FOR i=1 TO 3:READ a$(i):NEXT i
DO
1 INPUT"请输入你支持的人，输入EXIT弃权，OFF结束:",b$
  IF b$="WANG" OR b$="ZHANG" OR b$="LI" THEN
     IF b$="WANG" THEN a(1)=a(1)+1
     IF b$="ZHANG" THEN a(2)=a(2)+1
     IF b$="LI" THEN a(3)=a(3)+1
  ELSEIF b$="EXIT" THEN
     GOTO 1
  ELSEIF b$="OFF" THEN
     EXIT DO
  ELSE PRINT"此票无效"
LOOP
MAX=0:M$=""
FOR i=1 TO 3
    PRINT a$(i);":"a$(i);"票"
    IF a(i)>MAX THEN MAX=a(i):M$=a$(i)
NEXT i
PRINT M$;"胜出"
END

太复杂了，我是初学者，应该有更简单的吧

cls
input a$
while a$<>"end"
a(val(a$))=a(val(a$))+1
wend
for i=1 to 3
print i;a(i),
if a(i)>max then max=i
next i
print max;"获胜"
end