主题：混合计算统计的代码要怎么写？

请教各位 想在一个代码里体现多种运算的代码怎么写 作为一个开发小白深知以下代码错误很多 脑瓜不够用转不过来 还请多多包涵 

目前，检测份数、最大值、最小值已统计出。其他代码还未成立

Dim t As Table = Tables("PPRV")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "送检单位"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

t.Subtotal()

 

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

    r = t.Rows(i,True)

    If r.IsGroup '如果是分组行

        Dim f As String = "送检单位 = '" & r("送检单位") & "'"

        Dim v As String = " 检测份数:" & t.Compute("Count(送检单位)",f)

        v = v & " 阳性数量(≥50):" & t.Compute("Sum(结果) = 'P'",f )   这里是想统计结果列的 ≥50的数据的数量

        v = v & " 阳性数量(≥80):" & t.Compute("Sum([结果]>=80)",f)  这里是想统计结果列的 ≥80的数据的数量

        v = v & " 阴性数量:" & t.Compute("Sum([判定]='N')",f) 这里是想统计判定列等于字符N的数量

        v = v & " 最大值:" & t.Compute("Max(结果)",f)

        v = v & " 最小值:" & t.Compute("Min(结果)",f)

        v = v & " 平均值:" & t.Compute("Average(结果)",f) 这里想统计结果列里面数据 排除掉50以下的数据的 其他数据平均值

        v = v & " 标准偏差:" & t.Compute("Std(结果)",f)   这里想统计结果列里面数据 排除掉50以下的数据的 其他数据标准偏差

        v = v & " 离散度:" & t.Compute("([标准偏差]/[平均值])",f)  这里想作一个除法运算 用上面统计出的平均值与标准偏差来计算离散度 并且显示为百分数

       

        r("送检单位") = "送检单位:" & r("送检单位") & v

    End If

Next