主题：运行程序就未响应，是不是for循环太多了。怎么改

可以参考下面的代码计算一下各段代码执行的时间，看哪一段代码慢:

Dim t1 As Date = Date.Now
Dim Sum As Long
For i As Integer = 1 To 10000000
    Sum = Sum + i
Next
Output.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")

另外可以看看：http://www.foxtable.com/webhelp/topics/2225.htm