本程序将特值X±3S的数值剔除，再计算各元素的平均值和标准离差，用无限次迭代剔除后剩余数据计算各元素异常下限值及其他各种参数。异常下限：各元素异常下限为T=X+KS式中：T—异常下限      K—1.65～2.0  X—平均值（代表了背景值）变异系数：为了解各元素在工区中的分布变化情况，用下式计算出各元素在本工区内的变异系数。Cv：变异系数Cv=S/XDim avgDim devDim lines, lineDim delnum, times, lastdelDim K, maxtimesSub 异常下限计算()On Error GoTo ErrK = InputBox("输入K值", "输