vb统计各分数段人数