CLEAR accept "input:" to str1 =GetNums(str1,48,57) &&数字 =GetNums(str1,65,90) &&大写字母 =GetNums(str1,97,122) &&小写字母 =GetNums(str1,32,32) &&空格 return *统计字串 *str1:字串, n1:开始字母ASSIC码, n2:结束字母ASSIC码 function GetNums parameter str1, n1, n2 n = len(str1) k = 0 FOR i = 1 TO n str2=substr(str1,i,1) if ASC(str2) >= n1 and ASC(str2) <= n2 k = k+1 endif * ?str2 ENDFOR ? alltrim(str(k,12)) return k
麻烦采纳,谢谢!