vb算十个分数总和