```vbscript

<%

Dim sum, arr, i

arr = Array(, , , , ) '定义个数组

sum = '初始化总和为零

For i = to UBound(arr)

sum = sum + arr(i)

Next

Response.Write("The sum is: " & sum)

%>

```

上述代码会输出数组元素的总和。