问题已经解决
问题主要出在对c1...c10=0的赋值上，将该句改成c1=0 c2=0 c3=0 ... c10=0就可以了，不过在此在情大家告诉我，若用数组怎么写？即让c(i)代替，i从1取值到10，c(1)、c(2)、c(3)、c(4)、c(5)、c(6)、c(7)、c(8)、c(9)、c(10)代表10个单位，只要有一个符合条件的就加1，怎么写？谢谢
dim i
dim c(11)
for i=1 to 10
if cond(i) then c(i)=c(i)+1
next 'i