Function max(ByVal arr)'定義了函數max。
迪姆·阿魯納姆島
arrNum=UBound(arr)
max=arr(1)
對於i=1到arrNum
如果max & lt=arr(i)然後max=arr(i)
然後
文檔.寫入最大值
結束功能
& lt/script & gt；
& lt腳本語言= " VBscript " & gt
尺寸a(5)
a(1)=11
a(2)=33
a(3)=55
a(4)=99
a(5)=22
Max(a)'調用函數
& lt/script & gt；