function haha(str as string) as stringfor i=1 to len(str)if not isnumeric(mid(str,i,1)) thena=a&mid(str,i,1)end ifnexthaha=aend function 分别检查传入的字符串的每一位字符是否是数字,如果不是,则保存.遍历...