在表單上添加ScriptControl控制元件，執行下列代碼：
Private Sub Command1_Click()：85
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顯示
程式正常執行
但將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’
請各位朋友指點！
在此多謝啦！
uj5u.com熱心網友回復：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/73757.html
標籤：VB基礎類