LOTUS SCRIPT中 刪除數組中最后兩個值用什么函數？

LOTUS SCRIPT中 刪除數組中最后兩個值
用什么函數？ --------------------编程问答--------------------
方法很多，简单的一个方法就是定义2个数组赋值。以下代码手敲，需要自己验证，思路就是取道数组然后用while找到最后2个然后处理

dim ws as new notesuiworkspace
dim doc as notesdocument
dim array1() as variant
dim array2() as variant
dim x as interger
set doc = ws.currentdocument.document
x = ubound(doc.FIELDNAME)

if x>1 then

redim array1(x)
redim array2(x-2)
for y = 0 to x
if x - y >2 then
array2(y) = array1(y)
y = y + 1
next
end if

补充：企业软件 ,  Lotus