ScriptControl带数组执行表达式的问题？

Question

在窗体上添加ScriptControl控件，执行下列代码：
Private Sub Command1_Click()
Dim x
Dim y
Dim S As Long
x = 10
y = 15
ScriptControl1.ExecuteStatement "x=" & x
ScriptControl1.ExecuteStatement "y=" & y
S = ScriptControl1.Eval("x+y+60")
MsgBox S
End Sub
MsgBox显示 ：85
程序正常执行
但将x换成一位数组x(1)，将y换成一位数组y(1)，执行下列代码：Private Sub Command1_Click()
Dim x(1) As Long
Dim y(1) As Long
Dim S As Long
x(1) = 10
y(1) = 15
ScriptControl1.ExecuteStatement "x(1)=" & x(1)
ScriptControl1.ExecuteStatement "y(1)=" & y(1)
S = ScriptControl1.Eval("x(1)+y(1)+60")
MsgBox S
End Sub
系统报错：实时错误‘13’，类型不匹配‘x’
请各位朋友指点！
在此多谢啦！

Answer 1

ScriptControl1.ExecuteStatement "Dim x(1) as Long"
ScriptControl1.ExecuteStatement "Dim y(1) as Long"
ScriptControl1.ExecuteStatement "x(1)=" & x(1)
ScriptControl1.ExecuteStatement "y(1)=" & y(1)
S = ScriptControl1.Eval("x(1)+y(1)+60")
MsgBox S