用VBS编写函数，并返回一个数组中的最大值
展开全部
<script language="VBscript">
function max(ByVal arr) '定义函数max
Dim arrNum,i
arrNum=UBound(arr)
max=arr(1)
for i=1 to arrNum
if max<=arr(i) then max=arr(i)
next
document.write max
end function
</script>
<script language="VBscript">
dim a(5)
a(1)=11
a(2)=33
a(3)=55
a(4)=99
a(5)=22
max(a) '调用函数
</script>
function max(ByVal arr) '定义函数max
Dim arrNum,i
arrNum=UBound(arr)
max=arr(1)
for i=1 to arrNum
if max<=arr(i) then max=arr(i)
next
document.write max
end function
</script>
<script language="VBscript">
dim a(5)
a(1)=11
a(2)=33
a(3)=55
a(4)=99
a(5)=22
max(a) '调用函数
</script>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
