'统计评委1到评委28的值
Dim dt As Table = Tables("活动数据库")
For m1 As Integer = 0 To dt.rows.count - 1
Dim p1 As Single = dt.Rows(m1)("评委1")
Dim p2 As Single = dt.Rows(m1)("评委2")
Dim p3 As Single = dt.Rows(m1)("评委3")
Dim p4 As Single = dt.Rows(m1)("评委4")
Dim p5 As Single = dt.Rows(m1)("评委5")
Dim p6 As Single = dt.Rows(m1)("评委6")
Dim p7 As Single = dt.Rows(m1)("评委7")
Dim p8 As Single = dt.Rows(m1)("评委8")
Dim p9 As Single = dt.Rows(m1)("评委9")
Dim p10 As Single = dt.Rows(m1)("评委10")
Dim p11 As Single = dt.Rows(m1)("评委11")
Dim p12 As Single = dt.Rows(m1)("评委12")
Dim p13 As Single = dt.Rows(m1)("评委13")
Dim p14 As Single = dt.Rows(m1)("评委14")
Dim p15 As Single = dt.Rows(m1)("评委15")
Dim p16 As Single = dt.Rows(m1)("评委16")
Dim p17 As Single = dt.Rows(m1)("评委17")
Dim p18 As Single = dt.Rows(m1)("评委18")
Dim p19 As Single = dt.Rows(m1)("评委19")
Dim p20 As Single = dt.Rows(m1)("评委20")
Dim p21 As Single = dt.Rows(m1)("评委21")
Dim p22 As Single = dt.Rows(m1)("评委22")
Dim p23 As Single = dt.Rows(m1)("评委23")
Dim p24 As Single = dt.Rows(m1)("评委24")
Dim p25 As Single = dt.Rows(m1)("评委25")
Dim p26 As Single = dt.Rows(m1)("评委26")
Dim p27 As Single = dt.Rows(m1)("评委27")
Dim p28 As Single = dt.Rows(m1)("评委28")
Dim ary() As Single = {p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28}
array.sort(ary)
Dim zdz As Single = 0
Dim zxz As Single = 0
For i As Integer = 0 To 2
zxz += ary(i)
dt.Rows(m1)("最小值之和") = zxz
Next
For i As Integer = ary.length - 3 To ary.length - 1
zdz += ary(i)
dt.Rows(m1)("最大值之和") = zdz
Next
Next
Next
加好友 
发短信
Post By：2023/5/8 19:20:00 [只看该作者]
