解答

練習問題

４．複数の引数の中からもっとも小さい数を返すMinimum関数を作りなさい。

解答例

Private Function Minimum(ParamArray Numbers() As Variant) As Variant

Dim ArrayCount As Integer

Dim K As Integer

Dim Stock As Variant

ArrayCount = UBound(Numbers())

Stock = Numbers(0)

For K=1 To ArrayCount

    If Stock > Numbers(K) Then Stock = Numbers(K)

Next K

Minimum = Stock

End Function

解説

・これが自作できればもはや初級者ではない。

・この手の関数は上限や下限の決まっている物があるときに役に立つ。