太...........
程序：
cls
dim a(4)
for i=1 to 11:read n:a(n)=a(n)+1:next i
for i=1 to 4:?chr$(48+i);":";a(i):next i
DATA 1,4,3,2,4,4,3,1,3,2,1
end

CLS
FOR I=1 TO 11:READ A:A(A)=A(I)+1:NEXT I
FOR I=1 TO 4
PRINT I;":";A(I)
NEXT I
DATA 1,4,3,2,4,4,3,1,3,2,1
END

Is very 简单!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
This:
dim a(11)
DATA 1,4,3,2,4,4,3,1,3,2,1
for i=1 to 11
  read x
  a(x)=a(x)+1
next i
for i=1 to 11
  print i;a(i)
next i
end