数字を比較する関数について (ID:111158)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自分でつくったら？ Option Explicit Private Sub Command1_Click() Dim a a = Array(5, 2, 4, 6, 3) MsgBox lMax(a) End Sub Private Function lMax(a) As Long Dim buf As Long Dim i As Long buf = a(0) For i = 0 To UBound(a) buf = IIf(buf > a(i), buf, a(i)) Next lMax = buf End Function