CLS
INPUT n
DIM a$(n)
FOR i = 1 TO n
  INPUT a$(i)
NEXT i
FOR i = 1 TO n
  FOR j = 1 TO LEN(a$(i))
    b$ = MID$(a$(i), j, 1): p = 0
    IF b$ >= "A" AND b$ <= "Z" THEN dx = dx + 1: p = 1
    IF b$ >= "a" AND b$ <= "z" THEN xx = xx + 1: p = 1
    IF b$ = " " THEN kg = kg + 1: p = 1
    IF b$ = "," THEN dh = dh + 1: p = 1
    IF b$ = "." THEN jh = jh + 1: p = 1
    IF p = 0 THEN qt = qt + 1
  NEXT j
NEXT i
PRINT "dx="; dx
PRINT "xx="; xx
PRINT "kg="; kg
PRINT "dh="; dh
PRINT "jh="; jh
PRINT "qt="; qt
END
加多少分？

IF b$ >= "A" AND b$ <= "Z" THEN dx = dx + 1: p = 1
    IF b$ >= "a" AND b$ <= "z" THEN xx = xx + 1: p = 1
    IF b$ = " " THEN kg = kg + 1: p = 1
    IF b$ = "," THEN dh = dh + 1: p = 1
    IF b$ = "." THEN jh = jh + 1: p = 1
可以改成if……
        ……
        elseif……
        ……
        ……
        endif来提高效率
也可以直接使用select语句。