你最好把DATA分开!

楼上编的是错的！
CLS
DATA JX01 90 86 80 78 95 88 
DATA JX02 87 83 92 88 90 79
DATA JX03 95 81 98 89 88 94
DATA JX04 84 72 69 70 65 77
DATA JX05 90 88 79 95 80 93
DATA JX06 92 88 90 79 95 81
DATA JX07 98 94 90 92 94 99
DATA JX08 87 89 88 86 90 88
DATA JX09 80 78 95 88 87 83
DATA JX10 92 88 79 63 70 82
DIM n$(10),a(10,6),s(10),v(10)
FOR i=1 TO 10
    READ n$(i):FOR j=1 TO 6:READ a(i,j):s(i)=s(i)+a(i,j):NEXT j
    v(i)=s(i)/6
    PRINT n$(i);FOR j=1 TO 6:PRINT a(i,j);:NEXT i:PRINT s(i);v(i)
NEXT i
END

CLS
INPUT N$
FOR I = 1 TO 10
  READ A$(I)
  A$(I) = A$(I) + " "
  FOR J = 6 TO LEN(A$(I))
    B$ = MID$(A$(I), J, 1)
    IF B$ = " " THEN SUM(I) = SUM(I) + VAL(A$): A$ = "" ELSE A$ = A$ + B$
  NEXT J
NEXT I
FOR I = 1 TO 9: FOR J = I + 1 TO 10
  IF SUM(I) < SUM(J) THEN SWAP SUM(I), SUM(J): SWAP A$(I), A$(J)
NEXT J, I
FOR I = 1 TO 10
  IF LEFT$(A$(I), 4) = UCASE$(N$) THEN PRINT A$(I); SUM(I); I
NEXT I
DATA JX01 90 86 80 78 95 88
DATA JX02 87 83 92 88 90 79
DATA JX03 95 81 98 89 88 94
DATA JX04 84 72 69 70 65 77
DATA JX05 90 88 79 95 80 93
DATA JX06 92 88 90 79 95 81
DATA JX07 98 94 90 92 94 99
DATA JX08 87 89 88 86 90 88
DATA JX09 80 78 95 88 87 83
DATA JX10 92 88 79 63 70 82
我的最完善......................加30分.................

CLS
INPUT N$
FOR I = 1 TO 10
  READ A$(I)
  A$(I) = A$(I) + " "
  FOR J = 6 TO LEN(A$(I))
    B$ = MID$(A$(I), J, 1)
    IF B$ = " " THEN SUM(I) = SUM(I) + VAL(A$): A$ = "" ELSE A$ = A$ + B$
  NEXT J
NEXT I
FOR I = 1 TO 9: FOR J = I + 1 TO 10
  IF SUM(I) < SUM(J) THEN SWAP SUM(I), SUM(J): SWAP A$(I), A$(J)
NEXT J, I
FOR I = 1 TO 10
  IF LEFT$(A$(I), 4) = UCASE$(N$) THEN PRINT A$(I); SUM(I); I
NEXT I
DATA JX01 90 86 80 78 95 88
DATA JX02 87 83 92 88 90 79
DATA JX03 95 81 98 89 88 94
DATA JX04 84 72 69 70 65 77
DATA JX05 90 88 79 95 80 93
DATA JX06 92 88 90 79 95 81
DATA JX07 98 94 90 92 94 99
DATA JX08 87 89 88 86 90 88
DATA JX09 80 78 95 88 87 83
DATA JX10 92 88 79 63 70 82

CLS
INPUT A$
DATA JX01,90,86,80,78,95,88
DATA JX02,90,86,80,78,95,88
DATA JX03,95,81,98,89,88,94
DATA JX04,84,72,69,70,65,77
DATA JX05,90,88,79,95,80,93
DATA JX06,92,88,90,79,95,81
DATA JX07,98,94,90,92,94,99
DATA JX08,87,89,88,86,90,88
DATA JX09,80,78,95,88,87,83
DATA JX10,92,88,79,63,70,82
FOR I = 1 TO 10: READ A$(I): S = 0
FOR J = 2 TO 7
READ A(I, J): S = S + A(I, J)
NEXT J: B(I) = S: NEXT I
FOR I = 1 TO 10
IF A$ = A$(I) THEN
FOR J = 2 TO 7: PRINT A(I, J); : NEXT J: PRINT
PRINT B(I), : Z = B(I): GOTO 1
END IF
NEXT I
1 FOR I = 1 TO 9: FOR J = I + 1 TO 10
IF B(I) > B(J) THEN SWAP B(I), B(J)
NEXT J, I
FOR I = 1 TO 10
IF B(I) = Z THEN PRINT I: END
NEXT I
END