CLS
DIM a(5, 6), b(5), c(5)
FOR i = 1 TO 5
c(i) = 1
FOR j = 1 TO 6
RANDOMIZE TIMER
a(i, j) = INT(RND * 61 + 40)
b(i) = b(i) + a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 5
FOR j = 1 TO 5
IF b(i) < b(j) THEN c(i) = c(i) + 1
NEXT j
NEXT
FOR i = 1 TO 5
PRINT i;
FOR j = 1 TO 6
PRINT USING "###"; a(i, j);
NEXT j
PRINT b(i); c(i)
NEXT i
FOR i = 1 TO 5
IF c(i) = 1 THEN PRINT 1, b(i), i
NEXT
END
程序比较长，但是应该很好懂，各个循环的功能应该很明确，不知道是否达到你的要求？若要详细解释请留言。

这题不算难，你动脑筋的话可以做出来，为什么要求助别人呢