主题：请问如何判断同行中最大值的列，并显示出该列名

Dim r as row = Tables("xxx").Rows（0）

dim v as double = r ("第一列")

dim mc as string = "第一列"

Dim nms() as string  = {“第一列", "第二列","第三列"}

For each nm as string in nms

     if r(nm) > v then

         v= r(nm)

         mc = nm

     end if

next 

output.Show(mc)