函數max（ByVal arr）‘定義了函數max。
迪姆·阿倫姆島
arr num = 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；