simcode集成vb出错,请高手帮助

各位高手 , 兄弟想用 isight 中的 simcode 集成 vb6.0 可执行程序计算长方形的面积 , 运行出错 , 现将源码及相关情况贴出 , 请高手帮忙 , 万分感谢 .

输入文件名称为 input.txt, 如下图所示 .

输出文件为 output.txt ，如下图所示。

VB6.0 的源代码如下：

Public Sub Form_Load()

Dim text1 As String, text, aa

Dim aaa() As Double

Dim n As Integer

Dim a As Double

Dim b As Double

Dim i, j As Integer

Dim s As Double

n = 0

j = 0

Open "E:/cal/input.txt" For Input As #1
（打开 input.txt ）

Do While Not EOF(1)

Line Input #1, text1

ReDim Preserve aaa(n) As Double

text = Split(text1, " ")
( 采用 split 将中间含有空格的字符分开 )


For Each aa In text

If IsNumeric(aa) Then
（如果有含有数字的字符，将它转化为数字）

aaa(j) = Val(aa)

j = j + 1

End If

Next aa

n = n + 1

Loop

Close #1

s = 1

a = aaa(0)
（将存储数字的数组分别赋给 a 和 b ）

b = aaa(1)

s = a * b
（求长与宽的乘积，即面积）

Open "E:/cal/output.txt" For Output As #2
（打开输出文件）

Print #2, "area(m2) s=" & Str(s)
（写入输出文件）

MsgBox (" 已将信息写入文件 ")
（输出写入的提示信息）

Close #2
（关闭输出文件）
End Sub

再把 isight-FD 集成的全过程贴出来，请高手指导。

第一步 拉 simcode 到目标下。

第二步 添加可执行文件 vbcal.exe

第三步 设置输入变量

第四步 设置输出变量

第五步 设置命令选项

第六步 设置输入模式

第七步 设置输出模式



第八步 运行程序

第九步 VB中的提示信息立刻显示出来，但程序显示还在执行。

第十步 执行过程很长，如下所示。

第十一步 从isight中修改长和宽的值，计算结果根本没有改变。

第十二步 最后提示信息

小弟实在是不明白怎么回事，请高手指点，感激涕零。万分感谢啊,现在很着急,请多帮助.