海南(nán)世紀雲圖網絡科技有限公司
咨詢熱線:400-822-8458 客戶服務:0898-32183600

Asp在任意的幾個數字中(zhōng)求出最大(dà)值與最小(xiǎo)值函數

發表于:2011-07-05 00:00:00來源:SOUAB.COM人氣:3673

<% 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/

以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!

版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)們,我(wǒ)們收到後立即删除,謝謝!

特别注意:本站部份轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系,版權歸原作者所有。

微信
網站建設
軟件業務
網絡營銷
400電話(huà)