海南世纪云图网络科技有限公司
咨询热线:400-822-8458 客户服务:0898-32183600

Asp在任意的几个数字中求出最大值与最小值函数

发表于:2011-07-05 00:00:00来源:SOUAB.COM人气:3780

<% Function   Max(Price)
Dim   n,   m
If   UBound(Price)   >   0   Then
m   =   Price(0)
For   n   =   1   To   UBound(Price)
If   Price(n)   >   m   Then   m   =   Price(n)
Next
Max   =   m
Else
Max   =   Null
End   If
End   Function

Function   Min(Price)
Dim   n,   m
If   UBound(Price)   >   0   Then
m   =   Price(0)
For   n   =   1   To   UBound(Price)
If   Price(n)   <   m   Then   m   =   Price(n)
Next
Min   =   m
Else
Min   =   Null
End   If
End   Function
Dim   ary
ary   =   Array(12,13,41,61,8,38,90)
Response.Write   Max(ary)
Response.Write   " <BR><BR> "
Response.Write   Min(ary) %>

文章整理: 世纪云图  https://www.yuntop.cc/

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

版权申明:本站文章部份来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站部份转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。

微信
网站建设
软件业务
网络营销
400电话