|
本帖最后由 gaojie.cd 于 2011-9-15 11:51 编辑
4# panhao1
先尝试一下求LIST中最大值的代码吧。
Private Sub RunScript(ByVal x As List(Of Double), ByRef A As Object)
'your code goes here…
Dim max As Double = x(0)
For i As Integer=0 To (x.count - 1)
If x(i) >= max Then
max = x(i)
Else max = max
End If
a = max
Next
End Sub
其实求最小值也是一样思路,改几个符号就行了的。
再来求和和求平均值
Private Sub RunScript(ByVal x As List(Of Integer), ByRef A As Object, ByRef B As Object)
'your code goes here…
Dim am As Double = 0
Dim ev As Double
For i As Integer=0 To (x.Count - 1)
am = am + x(i)
ev = am / i
Next
a = am
b = ev
End Sub |
|