DECLARE SUB can (sum, k, a$())
CLS
n = 8
su = 0
DIM b$(7)
FOR i = 0 TO 6
INPUT "b$(i)"; b$(i)
CALL can(su, n, b$())
NEXT i
END

SUB can (sum, k, a$())
SELECT CASE a$(i)
CASE "a", "j"
sum1 = k * 1
k = k - 1
sum = sum1 + sum
PRINT "sum1="; sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "b", "k"
sum1 = k * 2
k = k - 1
sum = sum + sum1
PRINT "sum1="; sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "c", "l", "t"
sum1 = k * 3
k = k - 1
sum = sum1 + sum
PRINT "k="; k
PRINT "sum="; sum

CASE "d", "m", "u"
sum1 = k * 4
k = k - 1
sum = sum1 + sum
PRINT "k="; k
PRINT "sum="; sum
CASE "e", "n", "v"
sum1 = k * 5
k = k - 1
sum = sum + sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "f", "w"
sum1 = k * 6
k = k - 1
sum = sum + sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "g", "p", "x"
sum1 = k * 7
k = k - 1
sum = sum + sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "h", "y"
sum1 = k * 8
k = k - 1
sum = sum + sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "r", "z"
sum1 = k * 9
k = k - 1
sum = sum + sum1
PRINT "k="; k
PRINT "sum="; sum
CASE "0" TO "9"
sum1 = k * VAL(a$(i))
k = k - 1
sum = sum + sum1
PRINT "k="; k
PRINT "sum="; sum
END SELECT
END SUB
当输入第一个数字或者字母的时候还是正确的，可是后面就不对了，不知道是怎么回事？大家帮我看看啊！