用两种不同的方式来求实现数字字符串的最大，最小和平均值-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

用两种不同的方式来求实现数字字符串的最大，最小和平均值
用两种不同的方式来求实现数字字符串的最大，最小和平均值
<%@ LANGUAGE = "VBScript"
ENABLESESSIONSTATE = False %>
<%
\\\'1. Selecting the numbers from a string:
myString = "2, 4, 6, 8, 10, 12"
aValues = Split(myString, ",", -1, 1)

Function Min(someNumbers)
dblLowestSoFar = Null
For I = LBound(someNumbers) to UBound(someNumbers)
If IsNumeric(someNumbers(I)) Then
If CDbl(someNumbers(I)) < dblLowestSoFar Or IsNull(dblLowestSoFar) Then
dblLowestSoFar = CDbl(someNumbers(I))
End If
End If
Next
Min = dblLowestSoFar
End Function

Function Max(someNumbers)
dblHighestSoFar = Null
For I = LBound(someNumbers) to UBound(someNumbers)
If IsNumeric(someNumbers(I)) Then
If CDbl(someNumbers(I)) > dblHighestSoFar Or IsNull(dblHighestSoFar) Then
dblHighestSoFar = CDbl(someNumbers(I))
End If
End If
Next
Max = dblHighestSoFar
End Function

Function Avg(someNumbers)
dblHighestSoFar = Null
For I = LBound(someNumbers) to UBound(someNumbers)
If IsNumeric(someNumbers(I)) Then
If CDbl(someNumbers(I)) > dblHighestSoFar Or IsNull(dblHighestSoFar) Then
dblHighestSoFar = CDbl(someNumbers(I)) + CDbl(someNumbers(I)) /
End If
End If
Next
Avg = dblHighestSoFar
End Function

\\\'2. Or, selecting the numbers from a database:
Set cnDZ = Server.CreateObject("ADODB.Connection")
cnDZ.Open "DSN=myDatabase"
Set rsLo = cnDZ.Execute("SELECT Min(PRICE) AS loPRICE FROM TBLADS")
Set rsHi = cnDZ.Execute("SELECT Max(PRICE) AS hiPRICE FROM TBLADS")
Set rsAvg = cnDZ.Execute("SELECT Avg(PRICE) AS avgPRICE FROM TBLADS")
%>
<html>
<body>
1. Selecting the numbers from a string: 
The lowest number is: <%=Min(aValues)%> 
The highest number is: <%=Max(aValues)%> 
The average number is: <%=Avg(aValues)%> 
 
2. Selecting the numbers from a database: 
The lowest priced ad is: <%=FormatCurrency(Int(rsLo("loPRICE")))%> 
The highest priced ad is: <%=FormatCurrency(Int(rsHi("hiPRICE")))%> 
The average selling price of these ads is: <%=FormatCurrency(Int(rsAvg("avgPRICE")))%>
</body>
</html>
<%
cnDZ.Close
Set cnDZ = Nothing
rsLo.Close
Set rsLo = Nothing
rsHi.Close
Set rsHi = Nothing
rsAvg.Close
Set rsAvg = Nothing
%>

返回类别: 教程
上一教程: 使用REPEATER模板
下一教程: 网址和邮件地址的转变函数

您可以阅读与"用两种不同的方式来求实现数字字符串的最大，最小和平均值"相关的教程:
· 使用SPLIT分割多字符的字符串的方式
· 取得汉字字符串的首字母串
· 再来一套加解密字符串的FUNCTION
· 检测含有中文字符串的实际长度
· ASP中存储过程调用的两种方法，以及不采用存储过程的方法比较


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接