按键用递归法求最大最小值

最新推荐文章于 2020-09-04 10:38:19 发布

原创最新推荐文章于 2020-09-04 10:38:19 发布 · 913 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function

按键精灵专栏收录该内容

4 篇文章

订阅专栏

Function min(NumArray,ArrayLength) if(ArrayLength =1) if NumArray(0)>NumArray(1) then min = NumArray(1) else min = NumArray(0) end if else If min(NumArray,ArrayLength-1)>NumArray(ArrayLength) then min = NumArray(ArrayLength) Else min = min(NumArray,ArrayLength-1) End if end if End Function Function max(NumArray,ArrayLength) if(ArrayLength =1) if NumArray(0)<NumArray(1) then max = NumArray(1) else max = NumArray(0) end if else If max(NumArray,ArrayLength-1)<NumArray(ArrayLength) then max = NumArray(ArrayLength) Else max = max(NumArray,ArrayLength-1) End if end if End Function Dim Array(9) Array(0) = 121 Array(1) = 12 Array(2) = 2 Array(3) = 22 Array(4) = 3 Array(5) = 25 Array(6) = 12 Array(7) = 29 Array(8) = 222 Array(9) = 211 MsgBox min(Array,9) MsgBox max(Array,9)