Sub Initialize
\'[LotusScript]將陣列其中一個元素移除
Dim i As Integer
Dim array(6) As String
array(0) = "Alpha"
array(1) = "Beta"
array(2) = "Gamma"
array(3) = "Delta"
array(4) = "Epsilon"
array(5) = "Zeta"
array(6) = "Eta"
For i = Lbound(array) To Ubound(array)
Print i & "," & array(i)
Next i
Print "***********"
Dim result As Variant
result = Fulltrim(Arrayreplace(array, "Delta", ""))
For i = Lbound(result) To Ubound(result)
Print i & "," & result(i)
Next i
End Sub