Private Shared Function getMedian(ByVal datas As Decimal()) As String
Dim median As String
If datas.Length = 0 Then
median = "无"
ElseIf datas.Length = 1 Then
median = datas(0).ToString()
ElseIf datas.Length Mod 2 = 0 Then
Dim index As Integer = datas.Length / 2
Dim value As Decimal = (datas(index - 1) + datas(index)) / 2
median = String.Format("({0}+{1})/2={2}", datas(index - 1), datas(index), value)
Else
median = datas(datas.Length / 2).ToString()
End If
Return median
End Function
这个是放在全局代码吗？我要怎么放进全局代码，怎么调用？
加好友 
发短信
Post By：2022/8/2 1:52:00 [只看该作者]
