Visual Basic 常用数学算法集书中收录了所有代码

				Sub MDIAN1(X(), N, XMED)
				    Call SORT(N, X())
				    N2 = N / 2
				    If 2 * N2 = N Then
				        XMED = 0.5 * (X(N2) + X(N2 + 1))
				    Else
				        XMED = X(N2 + 1)
				    End If
				End Sub